write_csv_header Subroutine

private subroutine write_csv_header(unit_id, text)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: unit_id
character(len=*), intent(in) :: text

Source Code

   subroutine write_csv_header(unit_id, text)
      integer, intent(in) :: unit_id
      character(len=*), intent(in) :: text

      write(unit_id,'(",",a)', advance='no') trim(text)

   end subroutine write_csv_header