function indxr (lam, lammin, nrho, ntheta, nchi, irho, itheta, ichi)
IMPLICIT NONE


INTEGER :: indxr, nrho, ntheta, nchi, irho, itheta, ichi, lam, lammin
!c      indxr=ichi+(itheta-1)*nchi+(irho-1)*nchi*ntheta
!c     >     +(lam-lammin)*nchi*ntheta*nrho

indxr = irho + (itheta - 1) * nrho + (ichi - 1) * nrho * ntheta + (lam - lammin) * nchi * ntheta * nrho
RETURN
END function indxr