File: mpi_stubs.f90

package info (click to toggle)
lammps 20220106.git7586adbb6a%2Bds1-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 348,064 kB
  • sloc: cpp: 831,421; python: 24,896; xml: 14,949; f90: 10,845; ansic: 7,967; sh: 4,226; perl: 4,064; fortran: 2,424; makefile: 1,501; objc: 238; lisp: 163; csh: 16; awk: 14; tcl: 6
file content (20 lines) | stat: -rw-r--r-- 420 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
MODULE MPI
  IMPLICIT NONE
  PRIVATE

  INTEGER, PARAMETER :: MPI_COMM_WORLD=0
  INTEGER, PARAMETER :: MPI_SUCCESS=0

  PUBLIC :: MPI_COMM_WORLD, MPI_SUCCESS, &
      mpi_comm_split

CONTAINS
  
  SUBROUTINE mpi_comm_split(comm,color,key,newcomm,ierr)
    INTEGER, INTENT(in)  :: comm,color,key
    INTEGER, INTENT(out) :: newcomm,ierr

    newcomm = comm + 1
    ierr = 0
  END SUBROUTINE mpi_comm_split
END MODULE MPI