Subroutine getinfo
Use Numeric_Kinds_Module
Use CommonInfo_Module
Use QuantumNumber_Module

Implicit None

!=========================================================================================
! This subroutine obtains the dimensions of the arrays to be used. It also
!     functions to read in namelist information to be used throughout
!     the program and to store values in the appropriate modules.
!     Furthermore it calculates grid parameters and the reduced masses,
!     storing them in the appropriate modules.
!
! Variables:
!    ndim: dimension of wavefunction (APH coords) nrho*ntheta*nchi (chi = 0 to 60 degrees)

!=========================================================================================
!   I N T E R N A L S
! Real(dp) :: dummy(1000), dshift, dnorm

!=========================================================================================
! Open primary I/O files

  Call get_io

!=========================================================================================
! Get constants

  Call constant

!=========================================================================================
! Get factorials

  Call factor

!=========================================================================================
! Read in pesname

  CALL get_pesname

!=========================================================================================
! Get propagation time parameters

  Call get_time

!=========================================================================================
! Get energy grid parameters and potential energy cutoff

  !CALL get_energy

!=========================================================================================
! Get relevant quantum numbers

  CALL get_qnumbers

!=========================================================================================
! Get three-atom system information (input is irrelevant here)
! Initial call to h_apply will provide APH grid and Hamiltonian

  CALL get_aph_dim

  CALL calc_pot

  Call get_energy

  CALL find_group

  CALL v_read

  CALL aph_kinetic

  CALL get_erange

!=========================================================================================
!  Calculate the number of Chebychev expansion terms. 
!  This also calculates the argument for the bessel functions.

  Call get_cheby

!=========================================================================================
! Get asymptotic analysis and nip rho values

  CALL get_asymp_rho

!=========================================================================================
! Get logicals that determine which information is output to file

  CALL get_output

!=========================================================================================
Return
End Subroutine getinfo