common /m1qn3_l/ inmemo
      common /m1qn3_i/ id,igg,idiag,iaux,ialpha,iybar,isbar,reentry
      logical inmemo
      integer id,igg,idiag,iaux,ialpha,iybar,isbar,reentry

CML      common /m1qn3_aux/ sscale,ntravu,m,mmemo,gnorm,ps
CML      logical sscale
CML      integer ntravu,m,mmemo
CML      double precision gnorm,ps
CML      common /m1qn3_aux/ ntravu,m,mmemo
CML      integer ntravu,m,mmemo