Parent Directory | Revision Log | Patch
revision 156 by guez, Wed Apr 29 15:47:56 2015 UTC | revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC | |
---|---|---|
# | Line 35 | Line 35 |
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 temps1,temps2,temps3,temps4,temps5 | REAL temps1,temps2,temps3,temps4,temps5 |
42 | SAVE temps1,temps2,temps3,temps4,temps5 | SAVE 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. |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |