write_header Subroutine

subroutine write_header(comm, file_type, rc)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: comm
character(len=*), intent(in) :: file_type
integer, intent(out), optional :: rc

Calls

proc~~write_header~~CallsGraph proc~write_header write_header mpi_comm_rank mpi_comm_rank proc~write_header->mpi_comm_rank proc~mapl_return MAPL_Return proc~write_header->proc~mapl_return proc~mapl_verify MAPL_Verify proc~write_header->proc~mapl_verify at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Called by

proc~~write_header~~CalledByGraph proc~write_header write_header proc~run~11 run proc~run~11->proc~write_header program~main~10 main program~main~10->proc~run~11

Source Code

   subroutine write_header(comm, file_type, rc)
      integer, intent(in) :: comm
      character(len=*), intent(in) :: file_type
      integer, optional, intent(out) :: rc

      integer :: status
      integer :: rank

      call MPI_Comm_rank(comm, rank, status)
      _VERIFY(status)
      _RETURN_UNLESS(rank == 0)

      write(*,*)'Tested with file type: '//trim(file_type)
      write(*,'(3(a10,","),6(a15,:,","))',iostat=status) &
           'NX', '# levs', '# writers', 'write (GB)', 'packet (GB)', &
           'Time (s)', 'Eff. BW (GB/s)', 'Avg. BW (GB/s)', 'Rel. Std. Dev.'

      _RETURN(status)
   end subroutine write_header