source: tags/LIM1D_v3.20/SOURCES/source_3.20/lib_fortran.f @ 6

Last change on this file since 6 was 6, checked in by vancop, 8 years ago

initial import of v3.20 /Users/ioulianikolskaia/Boulot/CODES/LIM1D/ARCHIVE/TMP/LIM1D_v3.20/
File size: 1.0 KB
Line 
1      MODULE lib_fortran
2      !!======================================================================
3      !!                       ***  MODULE  lib_fortran  ***
4      !! Fortran utilities:  includes some low levels fortran functionality
5      IMPLICIT NONE
6      PRIVATE
7
8      PUBLIC SIGN
9
10      INTERFACE SIGN
11      MODULE PROCEDURE SIGN_1D
12      END INTERFACE
13
14      CONTAINS
15
16      FUNCTION SIGN_1D(pa,pb)
17      !!-----------------------------------------------------------------------
18      !!                  ***  FUNCTION SIGN_SCALAR  ***
19      !!
20      !! ** Purpose : overwrite f95 behaviour of intrinsinc sign function
21      !!-----------------------------------------------------------------------
22      REAL(8) :: pa,pb          ! input
23      REAL(8) :: SIGN_1D        ! result
24      !!-----------------------------------------------------------------------
25      IF ( pb >= 0.e0) THEN   ;   SIGN_1D = ABS(pa)
26      ELSE                    ;   SIGN_1D =-ABS(pa)
27      ENDIF
28
29      END FUNCTION SIGN_1D
30
31      END MODULE lib_fortran
Note: See TracBrowser for help on using the repository browser.