write_key_val_integer Subroutine

private subroutine write_key_val_integer(key, val, unit)

Writes a {key,val} pair where the value is of type integer

Type Bound

abstract_config_type

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: key
integer, intent(in) :: val
integer, intent(in) :: unit

Contents

Source Code

write_key_val_integer

Source Code

  subroutine write_key_val_integer(key, val, unit)
    character(len=*), intent(in) :: key
    integer, intent(in) :: val
    integer, intent(in) :: unit
    if (val < 0) then
       write(unit,'("  ",A," = ",I0)') format_key(key), val
    else
       write(unit,'("  ",A," = "," ",I0)') format_key(key), val
    endif
  end subroutine write_key_val_integer