write_header Subroutine

subroutine write_header(comm, rc)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: comm
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~8 run proc~run~8->proc~write_header program~main~6 main program~main~6->proc~run~8

Source Code

   subroutine write_header(comm, rc)
      integer, intent(in) :: comm
      integer, optional, intent(out) :: rc

      integer :: status
      integer :: rank

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

      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