dmo.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\dmo.f
00002 !
00046                      DOUBLE PRECISION FUNCTION DMO
00047 !                    *****************************
00048 !
00049      &(T)
00050 !
00051 !***********************************************************************
00052 ! BIEF   V6P1                                   21/08/2010
00053 !***********************************************************************
00054 !
00055 !
00056 !
00057 !
00058 !
00059 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00060 !| T              |-->| THE ANGLE.
00061 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00062 !
00063       IMPLICIT NONE
00064 !
00065       INTEGER LNG,LU
00066       COMMON/INFO/LNG,LU
00067 !
00068 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00069 !
00070       DOUBLE PRECISION, INTENT(IN) :: T
00071 !
00072 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00073 !
00074       DOUBLE PRECISION D
00075       INTRINSIC ACOS,MOD
00076 !
00077 !---------------------------------------------------------------
00078 !
00079       D = MOD(T,360.D0)
00080       IF (D.LT.0.D0) D=D+360.D0
00081       DMO = D * ACOS (-1.D0) / 180.D0
00082 !
00083 !---------------------------------------------------------------
00084 !
00085       RETURN
00086       END

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