um1x.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\um1x.f
00002 !
00077                      SUBROUTINE UM1X
00078 !                    ***************
00079 !
00080      &(X,D,S)
00081 !
00082 !***********************************************************************
00083 ! BIEF   V6P1                                   21/08/2010
00084 !***********************************************************************
00085 !
00086 !
00087 !
00088 !
00089 !
00090 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00091 !| D              |<--| BLOCK OF DIAGONAL MATRICES
00092 !| S              |-->| 2 : BLOCK WITH 4 MATRICES
00093 !|                |   | 3 : BLOCK WITH 9 MATRICES
00094 !| X              |<->| X AND X' (IN SITU TRANSFORMATION)
00095 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00096 !
00097       USE BIEF, EX_UM1X => UM1X
00098 !
00099       IMPLICIT NONE
00100       INTEGER LNG,LU
00101       COMMON/INFO/LNG,LU
00102 !
00103 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00104 !
00105 !     STRUCTURES OF VECTORS OR BLOCKS OF VECTORS
00106 !
00107       INTEGER, INTENT(IN)           :: S
00108       TYPE(BIEF_OBJ), INTENT(INOUT) :: X
00109       TYPE(BIEF_OBJ), INTENT(IN)    :: D
00110 !
00111 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00112 !
00113 !     BLOCKS OF 4 MATRICES:
00114 !
00115       IF(S.EQ.2) THEN
00116 !
00117 !     BLOCKS OF 4 MATRICES:
00118 !
00119         CALL UM1X04(X%ADR(1)%P,X%ADR(2)%P,D%ADR(3)%P)
00120 !
00121       ELSEIF(S.EQ.3) THEN
00122 !
00123 !     BLOCKS OF 9 MATRICES:
00124 !
00125         CALL UM1X09(X%ADR(1)%P,X%ADR(2)%P,X%ADR(3)%P,
00126      &              D%ADR(4)%P,D%ADR(5)%P,D%ADR(7)%P)
00127 !
00128       ELSE
00129 !
00130 !-----------------------------------------------------------------------
00131 !
00132 !  ERROR
00133 !
00134         IF(LNG.EQ.1) WRITE(LU,100) S
00135         IF(LNG.EQ.2) WRITE(LU,200) S
00136 100     FORMAT(1X,'UM1X (BIEF) : S NON PREVU :',1I6)
00137 200     FORMAT(1X,'UM1X (BIEF) : UNEXPECTED S :',1I6)
00138         CALL PLANTE(1)
00139         STOP
00140 !
00141       ENDIF
00142 !
00143 !-----------------------------------------------------------------------
00144 !                                                            -1
00145       RETURN
00146       END

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