Parent Directory | Revision Log | Patch
trunk/libf/dyn3d/vlxqs.f90 revision 66 by guez, Thu Sep 20 13:00:41 2012 UTC | trunk/dyn3d/vlxqs.f revision 105 by guez, Thu Sep 4 10:40:24 2014 UTC | |
---|---|---|
# | Line 38 | Line 38 |
38 | Logical first,testcpu | Logical first,testcpu |
39 | SAVE first,testcpu | SAVE first,testcpu |
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,testcpu/.true.,.false./ |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |