check_namelist_potential Subroutine

public subroutine check_namelist_potential()

Check variables read from namelist "potential"

Arguments

None

Calls

proc~~check_namelist_potential~~CallsGraph proc~check_namelist_potential check_namelist_potential proc~integer_to_character integer_to_character proc~check_namelist_potential->proc~integer_to_character interface~incorrect_value incorrect_value proc~check_namelist_potential->interface~incorrect_value proc~incorrect_value_ch incorrect_value_ch interface~incorrect_value->proc~incorrect_value_ch proc~incorrect_value_dp incorrect_value_dp interface~incorrect_value->proc~incorrect_value_dp proc~incorrect_value_int32 incorrect_value_int32 interface~incorrect_value->proc~incorrect_value_int32 proc~incorrect_value_sp incorrect_value_sp interface~incorrect_value->proc~incorrect_value_sp proc~write_error write_error proc~incorrect_value_ch->proc~write_error proc~incorrect_value_dp->proc~write_error proc~incorrect_value_int32->proc~write_error proc~incorrect_value_sp->proc~write_error proc~write_message write_message proc~write_error->proc~write_message

Called by

proc~~check_namelist_potential~~CalledByGraph proc~check_namelist_potential check_namelist_potential proc~read_input_file read_input_file proc~read_input_file->proc~check_namelist_potential program~scattering SCATTERING program~scattering->proc~read_input_file

Contents

Variables

Source Code

check_namelist_potential

Variables

Type Visibility Attributes Name Initial
integer(kind=int32), public :: column_index_
integer(kind=int32), public :: legendre_index_

Source Code

      subroutine check_namelist_potential
         !! Check variables read from namelist "potential"
         !---------------------------------------------------------------------!
         integer(int32) :: legendre_index_, column_index_
         !---------------------------------------------------------------------!
         do legendre_index_ = 1, number_of_legendre_indices
            if (legendre_indices(legendre_index_) < 0) then
               call incorrect_value("legendre_indices(" //                     &
                  integer_to_character(legendre_index_) // ")",                &
                  legendre_indices(legendre_index_), input_unit)
            endif
         enddo

         do column_index_ = 1, total_number_of_coupling_terms
            if (vib_couplings(column_index_) < 0) then
               call incorrect_value("vib_couplings(" //                        &
                  integer_to_character(column_index_) // ")",                  &
                  vib_couplings(column_index_), input_unit)
            endif

            if (rot_couplings(column_index_) < 0) then
               call incorrect_value("rot_couplings(" //                        &
                  integer_to_character(column_index_) // ")",                  &
                  rot_couplings(column_index_), input_unit)
            endif

            if (vib_prime_couplings(column_index_) < 0) then
               call incorrect_value("vp1pes(" //                               &
                  integer_to_character(column_index_) // ")",                  &
                  vib_prime_couplings(column_index_), input_unit)
            endif

            if (rot_prime_couplings(column_index_) < 0) then
               call incorrect_value("rot_prime_couplings(" //                  &
                  integer_to_character(column_index_) // ")",                  &
                  rot_prime_couplings(column_index_), input_unit)
            endif
         enddo

      end subroutine check_namelist_potential