Last change
on this file since 24 was
4,
checked in by vancop, 8 years ago
|
initial import /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.