Parent Directory | Revision Log | Patch
revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC | revision 178 by guez, Fri Mar 11 18:47:26 2016 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 | ||
43 | REAL ssum | EXTERNAL convflu |
INTEGER ismax, ismin | ||
EXTERNAL ssum, convflu, ismin, ismax | ||
44 | ||
45 | DO l = 1, llm | DO l = 1, llm |
46 | DO ij = 1, ip1jmp1 | DO ij = 1, ip1jmp1 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |