36 |
! Local |
! Local |
37 |
! --------- |
! --------- |
38 |
|
|
39 |
INTEGER i, ij, l, j, ii |
INTEGER ij, l |
40 |
INTEGER ijlqmin, iqmin, jqmin, lqmin |
REAL zm(ip1jmp1, llm) |
|
INTEGER ismin |
|
|
|
|
|
REAL zm(ip1jmp1, llm), newmasse |
|
41 |
REAL mu(ip1jmp1, llm) |
REAL mu(ip1jmp1, llm) |
42 |
REAL mv(ip1jm, llm) |
REAL mv(ip1jm, llm) |
43 |
REAL mw(ip1jmp1, llm+1) |
REAL mw(ip1jmp1, llm+1) |
44 |
REAL zq(ip1jmp1, llm), zz, qpn, qps |
REAL zq(ip1jmp1, llm), qpn, qps |
45 |
REAL zqg(ip1jmp1, llm), zqd(ip1jmp1, llm) |
REAL zqg(ip1jmp1, llm), zqd(ip1jmp1, llm) |
46 |
REAL zqs(ip1jmp1, llm), zqn(ip1jmp1, llm) |
REAL zqs(ip1jmp1, llm), zqn(ip1jmp1, llm) |
47 |
REAL zqh(ip1jmp1, llm), zqb(ip1jmp1, llm) |
REAL zqh(ip1jmp1, llm), zqb(ip1jmp1, llm) |
48 |
REAL temps0, temps1, temps2, temps3 |
REAL temps1, temps2, temps3 |
49 |
REAL ztemps1, ztemps2, ztemps3, ssum |
REAL ssum |
50 |
LOGICAL testcpu |
LOGICAL testcpu |
51 |
SAVE testcpu |
SAVE testcpu |
52 |
SAVE temps1, temps2, temps3 |
SAVE temps1, temps2, temps3 |