corlat.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\corlat.f
00002 !
00058                      SUBROUTINE CORLAT
00059 !                    *****************
00060 !
00061 !
00062 !***********************************************************************
00063 ! BIEF   V6P1                                   21/08/2010
00064 !***********************************************************************
00065 !
00066 !
00067 !
00068 !
00069 !
00070 !
00071 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00072 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00073 !
00074       USE BIEF, EX_CORLAT => CORLAT
00075 !EX   USE DECLARATIONS_TELEMAC2D
00076 !
00077       IMPLICIT NONE
00078       INTEGER LNG,LU
00079       COMMON/INFO/LNG,LU
00080 !
00081 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00082 !
00083 !     THIS SUBROUTINE MUST BE MODIFIED ACCORDING TO
00084 !     THE CALLING PROGRAM AND THE NEEDED MODIFICATION
00085 !     BY ADDING USE DECLARATIONS_"NAME OF CALLING CODE"
00086 !     ALL THE DATA STRUCTURE OF THIS CODE IS AVAILABLE
00087 !
00088 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00089 !
00090 !EX   INTEGER I
00091 !
00092 !-----------------------------------------------------------------------
00093 !
00094 !  EXAMPLE : MULTIPLIES BY A CONSTANT
00095 !
00096 !EX   DO I = 1 , NPOIN
00097 !EX     X(I) = X(I) * 1.D0
00098 !EX     Y(I) = Y(I) * 1.D0
00099 !EX   ENDDO
00100 !
00101 !-----------------------------------------------------------------------
00102 !
00103       IF(LNG.EQ.1) THEN
00104         WRITE(LU,*) 'CORLAT : PAS DE MODIFICATION DE LA LATITUDE'
00105       ENDIF
00106       IF(LNG.EQ.2) THEN
00107         WRITE(LU,*) 'CORLAT :NO MODIFICATION OF LATITUDE'
00108       ENDIF
00109 !
00110 !-----------------------------------------------------------------------
00111 !
00112       RETURN
00113       END

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