39 |
|
|
40 |
REAL q(ip1jmp1, llm) |
REAL q(ip1jmp1, llm) |
41 |
REAL airej2, airejjm, airescb(iim), airesch(iim) |
REAL airej2, airejjm, airescb(iim), airesch(iim) |
42 |
REAL sigv, dyq(ip1jmp1), dyqv(ip1jm) |
REAL dyq(ip1jmp1), dyqv(ip1jm) |
43 |
REAL adyqv(ip1jm), dyqmax(ip1jmp1) |
REAL adyqv(ip1jm), dyqmax(ip1jmp1) |
|
REAL qbyv(ip1jm, llm) |
|
44 |
|
|
45 |
REAL qpns, qpsn, apn, aps, dyn1, dys1, dyn2, dys2 |
REAL qpns, qpsn |
46 |
LOGICAL extremum, first |
LOGICAL first |
47 |
SAVE first |
SAVE first |
48 |
|
|
|
REAL convpn, convps, convmpn, convmps |
|
49 |
REAL sinlon(iip1), sinlondlon(iip1) |
REAL sinlon(iip1), sinlondlon(iip1) |
50 |
REAL coslon(iip1), coslondlon(iip1) |
REAL coslon(iip1), coslondlon(iip1) |
51 |
SAVE sinlon, coslon, sinlondlon, coslondlon |
SAVE sinlon, coslon, sinlondlon, coslondlon |