Actual source code: somefort.F
petsc-3.10.5 2019-03-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