!------------------------------------------------------------------------
! param_c.h
!------------------------------------------------------------------------
integer, parameter :: nres=1
 integer, parameter :: im0=im0in,nm=nmin,  &
                       im=nres*(im0-1)+1,jm=im, &
                       im1=im-1, jm1=jm-1
!------------------------------------------------------------------------
integer, parameter :: nsub = nsubin, &
                      ixm = nsub, iym = ixm, &
                      ilm = (im - 1)/ixm +1, jlm = (jm - 1)/iym +1 
!-----------------------------------------------------------------------
integer, parameter :: lm = lmin, &
                      lm1 = lm-1, lp1 =lm +1  
integer,parameter:: cnm2=cnm2in
!-----------------------------------------------------------------------