bief_dim2_ext.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\bief_dim2_ext.f
00002 !
00060                      INTEGER FUNCTION BIEF_DIM2_EXT
00061 !                    ******************************
00062 !
00063      &(IELM1,IELM2,STO,TYPEXT,MESH)
00064 !
00065 !***********************************************************************
00066 ! BIEF   V6P1                                   21/08/2010
00067 !***********************************************************************
00068 !
00069 !
00070 !
00071 !
00072 !
00073 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00074 !| IELM1          |-->| TYPE OF LINE ELEMENT
00075 !| IELM2          |-->| TYPE OF COLUMN ELEMENT
00076 !| MESH           |-->| MESH STRUCTURE
00077 !| STO            |-->| TYPE OF STORAGE
00078 !| TYPEXT         |-->| TYPE OF OFF-DIAGONAL TERMS
00079 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00080 !
00081       USE BIEF, EX_BIEF_DIM2_EXT => BIEF_DIM2_EXT
00082 !
00083       IMPLICIT NONE
00084       INTEGER LNG,LU
00085       COMMON/INFO/LNG,LU
00086 !
00087 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00088 !
00089       INTEGER         , INTENT(IN) :: IELM1,IELM2,STO
00090       CHARACTER(LEN=1), INTENT(IN) :: TYPEXT
00091       TYPE(BIEF_MESH) , INTENT(IN) :: MESH
00092 !
00093 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00094 !
00095       INTEGER NDIM
00096 !
00097 !-----------------------------------------------------------------------
00098 !
00099       IF(TYPEXT.EQ.'0') THEN
00100 !
00101         BIEF_DIM2_EXT = 1
00102 !
00103       ELSEIF(STO.EQ.1) THEN
00104 !
00105 !       NDIM IS HERE THE SECOND DIMENSION OF VECTOR
00106         NDIM =     BIEF_NBPEL(IELM1,MESH)*BIEF_NBPEL(IELM2,MESH)
00107      &       - MIN(BIEF_NBPEL(IELM1,MESH),BIEF_NBPEL(IELM2,MESH))
00108 !       SYMMETRICAL MATRIX
00109         IF(IELM1.EQ.IELM2.AND.TYPEXT.EQ.'S') THEN
00110           NDIM = NDIM / 2
00111         ENDIF
00112         BIEF_DIM2_EXT = NDIM
00113 !
00114       ELSEIF(STO.EQ.3) THEN
00115 !
00116 !       ASSEMBLED EBE STORAGE OR EDGE BASED
00117         BIEF_DIM2_EXT = 1
00118 !
00119       ELSE
00120 !
00121         IF(LNG.EQ.1) WRITE(LU,100) STO
00122         IF(LNG.EQ.2) WRITE(LU,101) STO
00123 100     FORMAT(1X,'BIEF_DIM2_EXT : STOCKAGE NON PREVU : ',1I6)
00124 101     FORMAT(1X,'BIEF_DIM2_EXT : UNKNOWN TYPE OF STORAGE: ',1I6)
00125         CALL PLANTE(1)
00126         STOP
00127 !
00128       ENDIF
00129 !
00130 !-----------------------------------------------------------------------
00131 !
00132       RETURN
00133       END

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