!---------------------------------------------------------------------------
SUBROUTINE get_aph_dim
USE FileUnits_Module
USE CommonInfo_Module
USE APH_Module
USE InputFile_Module
IMPLICIT NONE

NAMELIST / pot / nrho, ntheta, nchi

!==============================================================================
! Read in APH dimensions

OPEN (unit=In_Unit,file=TRIM(inputfile2))
READ (In_Unit, pot)
CLOSE(In_Unit)

nsize=nrho*ntheta*(nchi-1)
ndim=nsize

!==============================================================================
! Print to screen

WRITE(*,21) 'nrho  ',nrho
WRITE(*,21) 'ntheta',ntheta
WRITE(*,21) 'nchi  ',nchi
WRITE(*,22) 'nsize ',nsize
21 FORMAT(1X,a,9('.'),I4)
22 FORMAT(1X,a,9('.'),I7)

nchi=nchi-1

RETURN
END SUBROUTINE get_aph_dim