common /m1qn3a_l/ sscale,cold,warm
      common /m1qn3a_i/ itmax,isim,jcour
      common /m1qn3a_rl/ d1,t,tmin,tmax,gnorm,gnorms,eps1,ff,dk
      logical sscale,cold,warm
      integer itmax,isim,jcour
      double precision d1,t,tmin,tmax,gnorm,gnorms,eps1,ff,dk