2 |
C $Name$ |
C $Name$ |
3 |
common /m1qn3a_l/ sscale,cold,warm |
common /m1qn3a_l/ sscale,cold,warm |
4 |
common /m1qn3a_i/ itmax,isim,jcour |
common /m1qn3a_i/ itmax,isim,jcour |
5 |
common /m1qn3a_rl/ d1,t,tmin,tmax,gnorm,gnorms,eps1,ff,dk |
common /m1qn3a_rl/ d1,t,tmin,tmax,gnorm,gnorms,eps1,ff, |
6 |
|
& preco,precos,ys,den,dk,dk1,ps,ps2,hp0 |
7 |
logical sscale,cold,warm |
logical sscale,cold,warm |
8 |
integer itmax,isim,jcour |
integer itmax,isim,jcour |
9 |
double precision d1,t,tmin,tmax,gnorm,gnorms,eps1,ff,dk |
double precision d1,t,tmin,tmax,gnorm,gnorms,eps1,ff,preco,precos, |
10 |
|
& ys,den,dk,dk1,ps,ps2,hp0 |