write_csv_value_i Subroutine

private subroutine write_csv_value_i(unit_id, value)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: unit_id
integer, intent(in) :: value

Source Code

   subroutine write_csv_value_i(unit_id, value)
      integer, intent(in) :: unit_id
      integer, intent(in) :: value

      write(unit_id,'(i0)', advance='no') value

   end subroutine write_csv_value_i