Parent Directory | Revision Log | Patch
trunk/libf/dyn3d/vlxqs.f90 revision 66 by guez, Thu Sep 20 13:00:41 2012 UTC | trunk/Sources/dyn3d/vlxqs.f revision 134 by guez, Wed Apr 29 15:47:56 2015 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 |