source: tags/LIM1D_v3.5/lib_fortran.f @ 57

Last change on this file since 57 was 57, checked in by vancop, 7 years ago

initial import of source_3.5
File size: 1.0 KB
RevLine 
[57]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.