32 |
! Local |
! Local |
33 |
! --------- |
! --------- |
34 |
|
|
35 |
INTEGER ij, l, j, i, iju, ijq, indu(ip1jmp1), niju |
INTEGER ij, l |
|
INTEGER n0, iadvplus(ip1jmp1, llm), nl(llm) |
|
36 |
|
|
37 |
REAL q(ip1jmp1, llm) |
REAL q(ip1jmp1, llm) |
38 |
REAL dzq(ip1jmp1, llm) |
REAL dzq(ip1jmp1, llm) |
39 |
|
|
|
|
|
|
REAL new_m, zm |
|
40 |
REAL dzqw(ip1jmp1) |
REAL dzqw(ip1jmp1) |
41 |
REAL adzqw(ip1jmp1), dzqmax(ip1jmp1) |
REAL adzqw(ip1jmp1), dzqmax(ip1jmp1) |
42 |
|
|
43 |
LOGICAL extremum, first |
LOGICAL first |
44 |
SAVE first |
SAVE first |
45 |
|
|
46 |
REAL ssum, cvmgp, cvmgt |
REAL ssum |
47 |
INTEGER ismax, ismin |
INTEGER ismax, ismin |
48 |
EXTERNAL ssum, convflu, ismin, ismax |
EXTERNAL ssum, convflu, ismin, ismax |
49 |
|
|