1 |
C $Header$ |
C $Header$ |
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,dk |
common /m1qn3a_rl/ d1,t,tmin,tmax,gnorm,gnorms,eps1,ff, |
7 |
|
& 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,dk |
double precision d1,t,tmin,tmax,gnorm,gnorms,eps1,ff,preco,precos, |
11 |
|
& ys,den,dk,dk1,ps,ps2,hp0 |