write_header Subroutine

  1. write_output_vtk.f90
  2. write_output_vtk
  3. write_header

private subroutine write_header(Write_data_format)

Write the header in the output file in the tecplot format

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: Write_data_format

Calls

proc~~write_header~2~~CallsGraph proc~write_header~2 write_header debugcall debugcall proc~write_header~2->debugcall

Called by

proc~~write_header~2~~CalledByGraph proc~write_header~2 write_header proc~write_file~2 write_file proc~write_file~2->proc~write_header~2

Contents

Source Code

write_header

Source Code

    subroutine write_header(Write_data_format)
        !< Write the header in the output file in the tecplot format
        implicit none
        character(len=*), intent(in) :: Write_data_format

        DebugCall("write_header")

        write(OUT_FILE_UNIT, fmt='(a)') '# vtk DataFile Version 3.1'
        write(OUT_FILE_UNIT, '(a)') 'cfd-iitm output'   ! comment line
        write(OUT_FILE_UNIT, '(a)') trim(Write_data_format)
        write(OUT_FILE_UNIT, '(a)') 'DATASET STRUCTURED_GRID'
        !write(OUT_FILE_UNIT, *)


    end subroutine write_header