INTEGER (iprec), PARAMETER :: &
 !  isize = 155, jsize = 99, jwrap = 3, &
    isize = 78, jsize = 51, jwrap = 3, &
    iesize = 3, nptmax = 50000, &
    kmin (iesize) = (/1,81, 161/), kmax (iesize) = (/80,160, 200/), &
                   ksize = 200, kcsize = ksize, &
!   ksize = 153 , kcsize= 153,&
    ncoeff = 5
    LOGICAL :: asci_flag = .FALSE.