source:
trunk/LMDZ.MARS/libf/bibio/cvmgp.F
@
1242
Last change on this file since 1242 was 38, checked in by , 14 years ago | |
---|---|
File size: 186 bytes |
Line | |
---|---|
1 | FUNCTION cvmgp(x1,x2,x3) |
2 | IMPLICIT NONE |
3 | |
4 | REAL x1,x2,x3,cvmgp |
5 | |
6 | IF(x3.ge.0) then |
7 | cvmgp=x1 |
8 | ELSE |
9 | cvmgp=x2 |
10 | ENDIF |
11 | |
12 | RETURN |
13 | END |
14 | C |
Note: See TracBrowser
for help on using the repository browser.