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~3~~CallsGraph proc~write_header~3 write_header mpi_comm_rank mpi_comm_rank proc~write_header~3->mpi_comm_rank proc~mapl_return MAPL_Return proc~write_header~3->proc~mapl_return proc~mapl_verify MAPL_Verify proc~write_header~3->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~3~~CalledByGraph proc~write_header~3 write_header proc~run~26 run proc~run~26->proc~write_header~3 program~main~15 main program~main~15->proc~run~26

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