!cc
      indlsev(n,l) = jbasev + (n-l)/2 + 1
!cc