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

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,","),3(a15,:,","))',iostat=status) 'NX', '# levs', '# writers', 'group size', 'Time (s)', 'Rel. Std. dev.', 'BW (GB/sec)'

      _RETURN(status)
   end subroutine write_header