bief_sum.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\bief_sum.f
00002 !
00061                      DOUBLE PRECISION FUNCTION BIEF_SUM
00062 !                    **********************************
00063 !
00064      &( X )
00065 !
00066 !***********************************************************************
00067 ! BIEF   V6P1                                   21/08/2010
00068 !***********************************************************************
00069 !
00070 !
00071 !
00072 !
00073 !
00074 !
00075 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00076 !| X              |-->| BIEF_OBJ STRUCTURE OF WHICH X%R WILL BE SUMMED
00077 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00078 !
00079       USE BIEF, EX_BIEF_SUM => BIEF_SUM
00080 !
00081       IMPLICIT NONE
00082       INTEGER LNG,LU
00083       COMMON/INFO/LNG,LU
00084 !
00085 !-----------------------------------------------------------------------
00086 !
00087 !     STRUCTURES: VECTORS OR BLOCKS
00088 !
00089       TYPE(BIEF_OBJ), INTENT(IN) :: X
00090 !
00091 !-----------------------------------------------------------------------
00092 !
00093 !  CASE OF A VECTOR
00094 !
00095       IF(X%TYPE.EQ.2) THEN
00096 !
00097         BIEF_SUM = SOMME(X%R,X%DIM1*X%DIM2)
00098 !
00099 !-----------------------------------------------------------------------
00100 !
00101 !  CASE WHERE THE STRUCTURES ARE BLOCKS (TO BE CODED UP)
00102 !
00103 !     ELSEIF(X%TYPE.EQ.4) THEN
00104 !
00105 !-----------------------------------------------------------------------
00106 !
00107 !  ERROR
00108 !
00109       ELSE
00110 !
00111         IF (LNG.EQ.1) WRITE(LU,50) X%NAME,X%TYPE
00112         IF (LNG.EQ.1) WRITE(LU,53)
00113         IF (LNG.EQ.2) WRITE(LU,60) X%NAME,X%TYPE
00114         IF (LNG.EQ.2) WRITE(LU,63)
00115 50      FORMAT(1X,'BIEF_SUM (BIEF) : NOM DE X : ',A6,'  TYPE : ',1I6)
00116 53      FORMAT(1X,'                  CAS NON PREVU')
00117 60      FORMAT(1X,'BIEF_SUM (BIEF): NAME OF X : ',A6,'  TYPE : ',1I6)
00118 63      FORMAT(1X,'                 CASE NOT IMPLEMENTED')
00119         CALL PLANTE(1)
00120         STOP
00121 !
00122       ENDIF
00123 !
00124 !-----------------------------------------------------------------------
00125 !
00126       RETURN
00127       END

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