parmoy.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\parmoy.f
00002 !
00063                      SUBROUTINE PARMOY
00064 !                    *****************
00065 !
00066      &( X , MESH )
00067 !
00068 !***********************************************************************
00069 ! BIEF   V6P1                                   21/08/2010
00070 !***********************************************************************
00071 !
00072 !
00073 !
00074 !
00075 !
00076 !
00077 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00078 !| MESH           |-->| MESH STRUCTURE
00079 !| X              |<->| VECTOR OR BLOCK OF VECTORS.
00080 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00081 !
00082       USE BIEF, EX_PARMOY => PARMOY
00083 !
00084       IMPLICIT NONE
00085       INTEGER LNG,LU
00086       COMMON/INFO/LNG,LU
00087 !
00088 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00089 !
00090 !     STRUCTURES: MESH, VECTORS OR BLOCKS
00091 !
00092       TYPE(BIEF_MESH), INTENT(INOUT) :: MESH
00093       TYPE(BIEF_OBJ), INTENT(INOUT)  :: X
00094 !
00095 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00096 !
00097       INTEGER I,TYPX
00098 !
00099 !  COMPLEMENTS THE INTERFACES:
00100 !
00101       CALL PARCOM( X , 2 , MESH )
00102 !
00103 !-----------------------------------------------------------------------
00104 !
00105       TYPX = X%TYPE
00106 !
00107 !-----------------------------------------------------------------------
00108 !
00109 !  CASE WHERE THE STRUCTURES ARE BLOCKS
00110 !
00111       IF(TYPX.EQ.4) THEN
00112 !
00113         DO I=1,X%N
00114           CALL OS('X=XY    ',X=X%ADR(I)%P,Y=MESH%FAC)
00115         ENDDO
00116 !
00117 !-----------------------------------------------------------------------
00118 !
00119 !  CASE WHERE THE STRUCTURE IS A VECTOR
00120 !
00121       ELSEIF(TYPX.EQ.2) THEN
00122 !
00123         CALL OS('X=XY    ',X=X,Y=MESH%FAC)
00124 !
00125 !-----------------------------------------------------------------------
00126 !
00127 !  ERROR ON THE STRUCTURE
00128 !
00129       ELSE
00130 !
00131         IF (LNG.EQ.1) WRITE(LU,50) X%NAME,X%TYPE
00132         IF (LNG.EQ.1) WRITE(LU,53)
00133 50      FORMAT(1X,'PARMOY (BIEF) : NOM DE X : ',A6,'  TYPE : ',1I6)
00134 53      FORMAT(1X,'                CAS NON PREVU')
00135         IF (LNG.EQ.2) WRITE(LU,51) X%NAME,X%TYPE
00136         IF (LNG.EQ.2) WRITE(LU,54)
00137 51      FORMAT(1X,'PARMOY (BIEF) : NAME OF X: ',A6,'  TYPE : ',1I6)
00138 54      FORMAT(1X,'                UNEXPECTED CASE')
00139         CALL PLANTE(1)
00140         STOP
00141 !
00142       ENDIF
00143 !
00144 !-----------------------------------------------------------------------
00145 !
00146       RETURN
00147       END

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