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