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