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