35 |
REAL adxqu(ip1jmp1),dxqmax(ip1jmp1,llm) |
REAL adxqu(ip1jmp1),dxqmax(ip1jmp1,llm) |
36 |
REAL u_mq(ip1jmp1,llm) |
REAL u_mq(ip1jmp1,llm) |
37 |
|
|
38 |
Logical first,testcpu |
Logical first |
39 |
SAVE first,testcpu |
SAVE first |
40 |
|
|
41 |
REAL SSUM |
REAL temps1,temps2,temps3,temps4,temps5 |
42 |
REAL temps0,temps1,temps2,temps3,temps4,temps5 |
SAVE temps1,temps2,temps3,temps4,temps5 |
|
SAVE temps0,temps1,temps2,temps3,temps4,temps5 |
|
43 |
|
|
44 |
|
|
45 |
DATA first,testcpu/.true.,.false./ |
DATA first/.true./ |
46 |
|
|
47 |
IF(first) THEN |
IF(first) THEN |
48 |
temps1=0. |
temps1=0. |