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~21 run proc~run~21->proc~write_header~3 program~main~19 main program~main~19->proc~run~21

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(*,'(4(a6,","),4(a15,:,","))',iostat=status) 'NX', '# levs', '# writers', 'group size', 'Time (s)', 'G Time (s)', 'W Time (s)', 'BW (GB/sec)'

      _RETURN(status)
   end subroutine write_header