Integer Function aphindex_tc(totalchi,thetapt,chipt)
Implicit None

!=================================================================
! Function to compute APH vector component indices.
! The function name must be declared as an integer in the routine
!     in which it is called.

Integer,Intent(IN) :: totalchi
Integer,Intent(IN) :: thetapt , chipt


  aphindex_tc=totalchi*(thetapt-1)+chipt

End Function aphindex_tc