Actual source code: somefort.F

petsc-3.11.4 2019-09-28
Report Typos and Errors
  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 by
  5: !

  7: #include <petscconf.h>
  8: #if defined(PETSC_HAVE_MPIUNI)
  9: #include "petsc/mpiuni/mpiunifdef.h"
 10: #endif

 12:       subroutine MPIU_Abort(comm,ierr)
 13:       implicit none
 14:       integer comm,ierr,nierr

 16:       call MPI_Abort(comm,ierr,nierr)

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

 24: #if defined(PETSC_HAVE_FORTRAN_GET_COMMAND_ARGUMENT)
 25:       integer function PetscCommandArgumentCount()
 26:       implicit none
 27:       PetscCommandArgumentCount= command_argument_count()
 28:       return
 29:       end

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

 39: #endif