/[lmdze]/trunk/Sources/dyn3d/vlxqs.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/vlxqs.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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.
Legend:
Removed from v.156  
changed lines
  Added in v.157
  ViewVC Help
Powered by ViewVC 1.1.21