!**** Declarations

      real*8  pi
      real*8  hart2eV, eV2hart
      real*8  hart2icm, icm2hart
      real*8  eV2icm, icm2eV
      real*8  deg2rad, rad2deg
      integer maxnin,maxnout

!**********************************************************
!**** Parameters
!*** maxnin:       max. number of neurons in input layer
!*** maxnout:      max. number of neurons in output layer

      parameter (maxnin=14,maxnout=15)

!**********************************************************
!**** Numerical Parameters
!*** infty:     largest possible double precision real value.
!*** iinfty:    largest possible integer value.

      !             3.14159265358979323846264338327950...
      parameter (pi=3.1415926536D0)

!**********************************************************
!**** Unit Conversion Parameters
!*** X2Y:      convert from X to Y.
!***
!*** hart:     hartree
!*** eV:       electron volt
!*** icm:      inverse centimeters (h*c/cm)
!****
!*** deg:      degree
!*** rad:      radians

      parameter (hart2icm=219474.69d0)
      parameter (hart2eV=27.211385d0)
      parameter (eV2icm=hart2icm/hart2eV)
      parameter (icm2hart=1.0d0/hart2icm)
      parameter (eV2hart=1.0d0/hart2eV)
      parameter (icm2eV=1.0d0/eV2icm)
      parameter (deg2rad=pi/180.0d0)
      parameter (rad2deg=1.0d0/deg2rad)