incorrect_value_int32 Subroutine

private subroutine incorrect_value_int32(name_, value_, unit_)

incorrect value encountered: variable_name = variable_value

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: name_

name of the variable
integer(kind=int32), intent(in) :: value_

value of the variable
integer(kind=int32), intent(in), optional :: unit_

optional, unit where the message will be written

Calls

proc~~incorrect_value_int32~~CallsGraph proc~incorrect_value_int32 incorrect_value_int32 proc~write_error write_error proc~incorrect_value_int32->proc~write_error proc~write_message write_message proc~write_error->proc~write_message

Called by

proc~~incorrect_value_int32~~CalledByGraph proc~incorrect_value_int32 incorrect_value_int32 interface~incorrect_value incorrect_value interface~incorrect_value->proc~incorrect_value_int32 proc~check_namelist_input check_namelist_input proc~check_namelist_input->interface~incorrect_value proc~write_header write_header proc~write_header->interface~incorrect_value proc~check_namelist_basis check_namelist_basis proc~check_namelist_basis->interface~incorrect_value proc~check_namelist_potential check_namelist_potential proc~check_namelist_potential->interface~incorrect_value proc~read_input_file read_input_file proc~read_input_file->proc~check_namelist_input proc~read_input_file->proc~check_namelist_basis proc~read_input_file->proc~check_namelist_potential program~scattering SCATTERING program~scattering->proc~write_header program~scattering->proc~read_input_file

Contents

Variables

Source Code

incorrect_value_int32

Variables

Type Visibility Attributes Name Initial
character(len=:), private, allocatable :: add_prefix_
character(len=20), private :: tmp_

Source Code

      subroutine incorrect_value_int32(name_, value_, unit_)
         !! ``incorrect value encountered:
         !!   variable_name = variable_value``
         !---------------------------------------------------------------------!
         character(len = *), intent(in)       :: name_
            !! name of the variable
         integer(int32), intent(in)           :: value_
            !! value of the variable
         integer(int32), optional, intent(in) :: unit_
            !! optional, unit where the message will be written
         !---------------------------------------------------------------------!
         character(len = 20)              :: tmp_
         character(len = :),  allocatable :: add_prefix_
         !---------------------------------------------------------------------!
         write(tmp_, '(i5)') value_
         add_prefix_ = 'Incorrect value encountered:  '//trim(name_)//' = '//  &
                       trim(tmp_)
         call write_error(add_prefix_, unit_)
         !---------------------------------------------------------------------!
      end subroutine incorrect_value_int32