c RS6K porting note: ishift now takes 64-bit integers , with a warning
if ( 0.le.me .and. me.le.nmax ) then
next = iparam(1,me)*m + iparam(2,me)
c RS6K porting note: ishift now takes 64-bit integers , with a warning
if ( 0.le.me .and. me.le.nmax ) then
next = iparam(1,me)*m + iparam(2,me)