check_dot.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\check_dot.f
00002 !
00052                      SUBROUTINE CHECK_DOT
00053 !                    ********************
00054 !
00055      &(X,T,TEXTE,MESH)
00056 !
00057 !***********************************************************************
00058 ! BIEF   V6P1                                   21/08/2010
00059 !***********************************************************************
00060 !
00061 !
00062 !
00063 !
00064 !
00065 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00066 !| MESH           |-->| MESH STRUCTURE
00067 !| T              |<->| A WORK BIEF_OBJ STRUCTURE
00068 !| TEXTE          |-->| A TEXT TO BE PRINTED
00069 !| X              |-->| THE BIEF_OBJ STRUCTURE WITH THE VECTOR
00070 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00071 !
00072       USE BIEF
00073 !
00074       IMPLICIT NONE
00075       INTEGER LNG,LU
00076       COMMON/INFO/LNG,LU
00077 !
00078 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00079 !
00080       CHARACTER(LEN=*) :: TEXTE
00081       TYPE(BIEF_OBJ)   :: X,T
00082       TYPE(BIEF_MESH)  :: MESH
00083 !
00084 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00085 !
00086       CALL OS('X=Y     ',X=T,Y=X)
00087       IF(NCSIZE.GT.1) CALL PARCOM(T,2,MESH)
00088       WRITE(LU,*) TEXTE,'=',P_DOTS(T,T,MESH)
00089 !
00090 !-----------------------------------------------------------------------
00091 !
00092       RETURN
00093       END

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