Parent Directory | Revision Log | Patch
revision 156 by guez, Wed Jul 8 17:03:45 2015 UTC | revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC | |
---|---|---|
# | Line 40 SUBROUTINE limx(s0, sx, sm, pente_max) | Line 40 SUBROUTINE limx(s0, sx, sm, pente_max) |
40 | REAL dxqu(ip1jmp1) | REAL dxqu(ip1jmp1) |
41 | REAL adxqu(ip1jmp1), dxqmax(ip1jmp1) | REAL adxqu(ip1jmp1), dxqmax(ip1jmp1) |
42 | ||
LOGICAL first | ||
SAVE first | ||
43 | REAL ssum | REAL ssum |
44 | INTEGER ismax, ismin | INTEGER ismax, ismin |
45 | EXTERNAL ssum, convflu, ismin, ismax | EXTERNAL ssum, convflu, ismin, ismax |
46 | ||
DATA first/.TRUE./ | ||
47 | DO l = 1, llm | DO l = 1, llm |
48 | DO ij = 1, ip1jmp1 | DO ij = 1, ip1jmp1 |
49 | q(ij, l) = s0(ij, l)/sm(ij, l) | q(ij, l) = s0(ij, l)/sm(ij, l) |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |