Actual source code: somefort.F90

  1: !
  2: !     Prevents: Warning: Same actual argument associated with INTENT(IN)
  3: !     argument 'errorcode' and INTENT(OUT) argument 'ierror' at (1)
  4: !     when MPI_Abort() is called directly
  5: !

  7: #include <petsc/finclude/petscsys.h>

  9:       subroutine MPIU_Abort(comm,ierr)
 10:       implicit none
 11:       MPI_Comm comm
 12:       PetscMPIInt ierr,nierr

 14:       call MPI_Abort(comm,ierr,nierr)

 16:       return
 17:       end
 18: #if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES)
 19: !DEC$ ATTRIBUTES DLLEXPORT::MPIU_Abort
 20: #endif

 22: !  This uses F2003 feature - and is the preferred mode for accessing command line arguments
 23: #if defined(PETSC_HAVE_FORTRAN_GET_COMMAND_ARGUMENT)
 24:       integer function PetscCommandArgumentCount()
 25:       implicit none
 26:       PetscCommandArgumentCount= command_argument_count()
 27:       return
 28:       end

 30:       subroutine PetscGetCommandArgument(n,val)
 31:       implicit none
 32:       integer n
 33:       character(*) val
 34:       call get_command_argument(n,val)
 35:       return
 36:       end
 37: #endif