pfio_init Subroutine

public subroutine pfio_init()

Uses

  • proc~~pfio_init~~UsesGraph proc~pfio_init pfio_init mpi mpi proc~pfio_init->mpi

Arguments

None

Calls

proc~~pfio_init~~CallsGraph proc~pfio_init pfio_init mpi_comm_rank mpi_comm_rank proc~pfio_init->mpi_comm_rank proc~mapl_verify MAPL_Verify proc~pfio_init->proc~mapl_verify proc~mapl_throw_exception MAPL_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine pfio_init()
      use MPI
      character(len=5) :: buf
      integer :: rank, ierror, rc, status

      if (debug_unit == 0) then
         call MPI_Comm_rank(MPI_Comm_world, rank, ierror)
         _VERIFY(ierror)
         write(buf,'(i5.5)') rank
         open(newunit=debug_unit,file='pfio_debug.'//buf,status='unknown', form='formatted')
      end if
   end subroutine pfio_init