Parent Directory | Revision Log | Patch
trunk/dyn3d/vlspltqs.f revision 109 by guez, Wed Sep 17 10:08:00 2014 UTC | trunk/Sources/dyn3d/vlspltqs.f revision 157 by guez, Mon Jul 20 16:01:49 2015 UTC | |
---|---|---|
# | Line 51 contains | Line 51 contains |
51 | REAL mv(ip1jm, llm) | REAL mv(ip1jm, llm) |
52 | REAL mw(ip1jmp1, llm+1) | REAL mw(ip1jmp1, llm+1) |
53 | REAL zq(ip1jmp1, llm) | REAL zq(ip1jmp1, llm) |
REAL temps1, temps2, temps3 | ||
54 | REAL zzpbar, zzw | REAL zzpbar, zzw |
LOGICAL testcpu | ||
SAVE testcpu | ||
SAVE temps1, temps2, temps3 | ||
REAL qmin, qmax | ||
DATA qmin, qmax/0., 1.e33/ | ||
DATA testcpu/.false./ | ||
DATA temps1, temps2, temps3/0., 0., 0./ | ||
55 | ||
56 | !--pour rapport de melange saturant-- | !--pour rapport de melange saturant-- |
57 |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |