fcte2.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\artemis\fcte2.f
00002 !
00039                   DOUBLE PRECISION FUNCTION FCTE2
00040 !                 *******************************
00041 !
00042      &(XX)
00043 !
00044 !***********************************************************************
00045 ! ARTEMIS   V6P1                                   31/05/2011
00046 !***********************************************************************
00047 !
00048 !
00049 !
00050 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00051 !| XX             |-->| K*H
00052 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00053 !
00054       USE INTERFACE_ARTEMIS, EX_FCTE2 => FCTE2
00055       IMPLICIT NONE
00056 !
00057 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00058 !
00059       DOUBLE PRECISION, INTENT(IN) :: XX
00060 !
00061 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00062 !
00063       DOUBLE PRECISION  CHHX,SHHX , THHX,XXX
00064       INTRINSIC         SINH, COSH
00065 !
00066       XXX = 2.D0*XX
00067 !
00068       IF(XXX.LT.0.001D0) THEN
00069         FCTE2=-1.D0/12.D0
00070       ELSE
00071         SHHX = SINH(XXX)
00072         CHHX = COSH(XXX)
00073         THHX = SHHX/CHHX
00074         FCTE2=(THHX-XXX)*CHHX/(XXX*(SHHX+XXX)**2)
00075       ENDIF
00076 !
00077 !-----------------------------------------------------------------------
00078 !
00079       RETURN
00080       END

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