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) |
|
REAL temps1, temps2, temps3 |
|
48 |
REAL ssum |
REAL ssum |
|
LOGICAL testcpu |
|
|
SAVE testcpu |
|
|
SAVE temps1, temps2, temps3 |
|
49 |
REAL zzpbar, zzw |
REAL zzpbar, zzw |
50 |
|
|
|
REAL qmin, qmax |
|
|
DATA qmin, qmax/0., 1./ |
|
|
DATA testcpu/.FALSE./ |
|
|
DATA temps1, temps2, temps3/0., 0., 0./ |
|
|
|
|
51 |
zzpbar = 0.5*pdt |
zzpbar = 0.5*pdt |
52 |
zzw = pdt |
zzw = pdt |
53 |
|
|