allblo.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\allblo.f
00002 !
00064                      SUBROUTINE ALLBLO
00065 !                    *****************
00066 !
00067      &( BLO , NOM )
00068 !
00069 !***********************************************************************
00070 ! BIEF   V6P2                                   21/08/2010
00071 !***********************************************************************
00072 !
00073 !
00074 !
00075 !
00076 !
00077 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00078 !| BLO            |-->| THE BLOCK TO BE ALLOCATED
00079 !| NOM            |-->| FORTRAN NAME OF THIS BLOCK
00080 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00081 !
00082       USE BIEF, EX_ALLBLO => ALLBLO
00083 !
00084       IMPLICIT NONE
00085       INTEGER LNG,LU
00086       COMMON/INFO/LNG,LU
00087 !
00088 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00089 !
00090       TYPE(BIEF_OBJ)  , INTENT(INOUT) :: BLO
00091       CHARACTER(LEN=6), INTENT(IN)    :: NOM
00092 !
00093 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00094 !
00095       INTEGER ERR
00096 !
00097 !-----------------------------------------------------------------------
00098 !  COMMON PART FOR ALL OBJECTS
00099 !-----------------------------------------------------------------------
00100 !
00101 !     KEY OF THE OBJECT
00102 !
00103       BLO%KEY = 123456
00104 !
00105 !     TYPE OF THE OBJECT
00106 !
00107       BLO%TYPE = 4
00108 !
00109 !     NAME OF THE OBJECT
00110 !
00111       BLO%NAME = NOM
00112 !
00113 !-----------------------------------------------------------------------
00114 !  PART SPECIFIC TO BLOCKS
00115 !-----------------------------------------------------------------------
00116 !
00117 !     NUMBER OF OBJECTS IN THE BLOCK
00118 !
00119       BLO%N = 0
00120 !
00121 !     ALLOCATES THE POINTERS ARRAY ADR
00122 !
00123       BLO%MAXBLOCK = 256
00124       ALLOCATE(BLO%ADR(BLO%MAXBLOCK),STAT=ERR)
00125 !
00126 !-----------------------------------------------------------------------
00127 !
00128       IF(ERR.NE.0) THEN
00129         IF(LNG.EQ.1) WRITE(LU,10) NOM,ERR
00130         IF(LNG.EQ.2) WRITE(LU,20) NOM,ERR
00131 10      FORMAT(1X,'ERREUR A L''ALLOCATION DU BLOC : ',A6,/,1X,
00132      &            'CODE D''ERREUR : ',1I6)
00133 20      FORMAT(1X,'ERROR DURING ALLOCATION OF BLOCK: ',A6,/,1X,
00134      &            'ERROR CODE: ',1I6)
00135         CALL PLANTE(1)
00136         STOP
00137       ENDIF
00138 !
00139 !-----------------------------------------------------------------------
00140 !
00141       RETURN
00142       END

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0