write_key_val_real_array Subroutine

private subroutine write_key_val_real_array(self, key, val, unit)

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

Type Bound

abstract_config_type

Arguments

Type IntentOptional Attributes Name
class(abstract_config_type), intent(in) :: self
character(len=*), intent(in) :: key
real, intent(in), dimension(:) :: val
integer, intent(in) :: unit

Contents


Source Code

  subroutine write_key_val_real_array(self, key, val, unit)
    class(abstract_config_type), intent(in) :: self
    character(len = *), intent(in) :: key
    real, dimension(:), intent(in) :: val
    integer, intent(in) :: unit
    integer :: i
    character(len = 12) :: subscript
    do i = 1, size(val)
       write(subscript,'("(",I0,")")') i
       call self%write_key_val(trim(key)//subscript, val(i), unit)
    end do
  end subroutine write_key_val_real_array