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
|
Rev | Line | |
---|
[4] | 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.