addblo.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\addblo.f
00002 !
00056                      SUBROUTINE ADDBLO
00057 !                    *****************
00058 !
00059      &( BLOC , OBJ )
00060 !
00061 !***********************************************************************
00062 ! BIEF   V6P1                                   21/08/2010
00063 !***********************************************************************
00064 !
00065 !
00066 !
00067 !
00068 !
00069 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00070 !| BLOC           |<->| FORTRAN NAME OF BLOCK
00071 !| OBJ            |-->| BIEF_OBJ STRUCTURE TO BE ADDED IN THE BLOCK
00072 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00073 !
00074       USE BIEF, EX_ADDBLO => ADDBLO
00075 !
00076       IMPLICIT NONE
00077       INTEGER LNG,LU
00078       COMMON/INFO/LNG,LU
00079 !
00080 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00081 !
00082       TYPE(BIEF_OBJ), INTENT(INOUT)      :: BLOC
00083       TYPE(BIEF_OBJ), INTENT(IN), TARGET :: OBJ
00084 !
00085 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00086 !
00087 !     INCREASES THE NUMBER OF OBJECTS IN THE BLOCK
00088 !
00089       BLOC%N = BLOC%N + 1
00090       IF(BLOC%N.GT.BLOC%MAXBLOCK) THEN
00091         IF(LNG.EQ.1) THEN
00092           WRITE(LU,*) 'ADDBLO : ',OBJ%NAME,' TROP PETIT'
00093           WRITE(LU,*) '         AUGMENTER MAXBLOCK DANS ALLBLO'
00094           WRITE(LU,*) '         (ACTUELLEMENT : ',BLOC%MAXBLOCK,')'
00095         ENDIF
00096         IF(LNG.EQ.2) THEN
00097           WRITE(LU,*) 'ADDBLO : ',OBJ%NAME,' TOO SMALL'
00098           WRITE(LU,*) '         INCREASE MAXBLOCK IN ALLBLO'
00099           WRITE(LU,*) '         (CURRENTLY : ',BLOC%MAXBLOCK,')'
00100         ENDIF
00101         CALL PLANTE(1)
00102         STOP
00103       ENDIF
00104 !
00105 !     ASSIGNS THE TARGET OBJ TO THE POINTER OF RANK BLOC%N
00106 !
00107       BLOC%ADR(BLOC%N)%P => OBJ
00108 !
00109 !-----------------------------------------------------------------------
00110 !
00111 !      IF(LNG.EQ.1) THEN
00112 !        WRITE(LU,*) 'ADDBLO : ',OBJ%NAME,' AJOUTE A ',BLOC%NAME
00113 !      ENDIF
00114 !      IF(LNG.EQ.2) THEN
00115 !        WRITE(LU,*) 'ADDBLO : ',OBJ%NAME,'  ADDED TO ',BLOC%NAME
00116 !      ENDIF
00117 !
00118 !-----------------------------------------------------------------------
00119 !
00120       RETURN
00121       END

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