write_csv_value_r Subroutine

private subroutine write_csv_value_r(unit_id, value)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: unit_id
real(kind=rk), intent(in) :: value

Source Code

   subroutine write_csv_value_r(unit_id, value)
      integer, intent(in) :: unit_id
      real(rk), intent(in) :: value

      write(unit_id,'(",",es16.8)', advance='no') value

   end subroutine write_csv_value_r