output_observation_line_csv Subroutine

subroutine output_observation_line_csv(self, unit, time, values)

Arguments

Type IntentOptional Attributes Name
class(type_output_observation), intent(in) :: self
integer(kind=int32), intent(in) :: unit
real(kind=real64), intent(in) :: time
real(kind=real64), intent(in) :: values(:)

Source Code

    subroutine output_observation_line_csv(self, unit, time, values)
        implicit none
        class(type_output_observation), intent(in) :: self
        integer(int32), intent(in) :: unit
        real(real64), intent(in) :: time
        real(real64), intent(in) :: values(:)

        write (unit, '(*(es22.15,:,","))') time, values(1:self%num_observations)

    end subroutine output_observation_line_csv