check_namelist_basis Subroutine

public subroutine check_namelist_basis()

Check variables read from namelist "basis"

Arguments

None

Calls

proc~~check_namelist_basis~~CallsGraph proc~check_namelist_basis check_namelist_basis proc~integer_to_character integer_to_character proc~check_namelist_basis->proc~integer_to_character interface~incorrect_value incorrect_value proc~check_namelist_basis->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_basis~~CalledByGraph proc~check_namelist_basis check_namelist_basis proc~read_input_file read_input_file proc~read_input_file->proc~check_namelist_basis program~scattering SCATTERING program~scattering->proc~read_input_file

Contents

Variables

Source Code

check_namelist_basis

Variables

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

Source Code

      subroutine check_namelist_basis
         !! Check variables read from namelist "basis"
         !---------------------------------------------------------------------!
         integer(int32) :: level_index_
         !---------------------------------------------------------------------!
         do level_index_ = 1, number_of_basis_levels
            if (vib_levels(level_index_) < 0) then
               call incorrect_value("vib_levels(" //                           &
                  integer_to_character(level_index_) // ")",                   &
                  vib_levels(level_index_), input_unit)
            endif

            if (rot_levels(level_index_) < 0) then
               call incorrect_value("rot_levels(" //                           &
                  integer_to_character(level_index_) // ")",                   &
                  rot_levels(level_index_), input_unit)
            endif

            if (internal_energies(level_index_) < 0.0_dp) then
               call incorrect_value("internal_energies(" //                    &
                  integer_to_character(level_index_) // ")",                   &
                  internal_energies(level_index_), input_unit)
            endif
         enddo

      end subroutine check_namelist_basis