├── 1_matradd ├── ReadMe ├── m_matradd.f90 ├── m_matradd_my_back.f90 ├── main.f90 └── makefile ├── 1_xn ├── ReadMe ├── m_xn.f90 ├── main.f90 └── 求解x^n算法.jpg ├── 2019-05-10-高性能并行计算.pdf ├── 4_matrix_mpi_cheng ├── a.out ├── array.f90 ├── m_mpi_hang_lie.f90 ├── m_mpi_my.f90 └── makefile ├── 6_ALLTOALL ├── m_mpi_my.f90 ├── m_mpi_my.mod ├── m_mpi_my.o ├── main.f90 ├── main.o ├── makefile ├── myalltoall.f90 ├── myalltoall.mod ├── myalltoall.o └── run ├── 6_LMAT ├── ._LMAT.f90 ├── ._m_mpi_my.f90 ├── ._test.f90 ├── LMAT.f90 ├── LMAT.o ├── a.out ├── lmat.mod ├── m_mpi_my.f90 ├── m_mpi_my.mod ├── m_mpi_my.o ├── makefile ├── test.f90 └── test.o ├── 6_LMAT_对角块 ├── ._LMAT.f90 ├── ._m_mpi_my.f90 ├── ._test.f90 ├── LMAT.f90 ├── LMAT.o ├── a.out ├── lmat.mod ├── m_mpi_my.f90 ├── m_mpi_my.mod ├── m_mpi_my.o ├── makefile ├── test.f90 └── test.o ├── 7_CANNO └── canno.c ├── 7_bcast ├── a.out ├── bcast.f90 └── makefile ├── 7_pi ├── a.out ├── m_mpi_my.f90 ├── makefile └── pi.f90 ├── Final examl ├── 1.jpg ├── 2.jpg ├── t_1 │ ├── a.out │ ├── m_mpi_my.f90 │ ├── makefile │ └── pi.f90 └── t_2 │ ├── ._LMAT.f90 │ ├── ._m_mpi_my.f90 │ ├── ._test.f90 │ ├── LMAT.f90 │ ├── LMAT.o │ ├── a.out │ ├── lmat.mod │ ├── m_mpi_my.f90 │ ├── m_mpi_my.mod │ ├── m_mpi_my.o │ ├── makefile │ ├── test.f90 │ └── test.o ├── README.md ├── homework.docx ├── homework.md ├── suanfa └── matrx_fen_kuai │ └── mpi_matrix_ChengFa.f90 └── test ├── ._mod.f90 ├── a.out └── mod.f90 /1_matradd/ReadMe: -------------------------------------------------------------------------------- 1 | 矩阵相加 2 | 3 | 其实对于Fortran 4 | C[ca:cb,cc:cd]=A[aa:ab,ac:ad]+B[ba:bb,bc:bd] 5 | 就可以 6 | 7 | -------------------------------------------------------------------------------- /1_matradd/m_matradd.f90: -------------------------------------------------------------------------------- 1 | module m_matradd 2 | implicit none 3 | contains 4 | subroutine matradd(m,n,A,B,C,lds) 5 | implicit none 6 | integer :: m,n,i,j,lds 7 | !Fortran支持讲高维矩阵转成一维数组，无须指定ldx 8 | real:: A(*),B(*),C(*) 9 | 10 | !其实fortran直接 C=A+B 就可以 11 | !C(1:m*n)=A(1:m*n)+B(1:m*n) 12 | DO j=0,n-1 13 | DO i=1,m 14 | C(i+j*lds)=A(i+j*lds)+B(i+j*lds) 15 | end DO 16 | end DO 17 | end subroutine matradd 18 | end module m_matradd 19 | -------------------------------------------------------------------------------- /1_matradd/m_matradd_my_back.f90: -------------------------------------------------------------------------------- 1 | module m_matradd 2 | implicit none 3 | contains 4 | subroutine matradd(m,n,A,B,C) 5 | implicit none 6 | integer :: m,n,i,j 7 | real:: A(:,:),B(:,:),C(:,:) 8 | if (( m.ne.size(A,dim=1)) .OR. (m.ne.size(B,dim=1)) ) & 9 | stop "Error:Please make sure the dimenssions of the martix A and B are same" 10 | if (( n.ne.size(A,dim=2)) .OR. (n.ne.size(B,dim=2)) ) & 11 | stop "Error:Please make sure the dimenssions of the martix A and B are same" 12 | if (( m.ne.size(C,dim=1)) .OR. (n.ne.size(B,dim=2)) ) & 13 | stop "Error:The dimenssions of C are differ from A and B " 14 | !其实fortran直接 C=A+B 就可以 15 | C=A+B 16 | ! DO j=1,n 17 | ! DO i=1,m 18 | ! C(i,j)=A(i,j)+B(i,j) 19 | ! end DO 20 | ! end DO 21 | end subroutine matradd 22 | end module m_matradd 23 | -------------------------------------------------------------------------------- /1_matradd/main.f90: -------------------------------------------------------------------------------- 1 | program main 2 | use m_matradd 3 | implicit none 4 | real :: A(3,2),B(3,2),C(4,2) 5 | integer ::i,j 6 | data((A(i,j),i=1,3),j=1,2) /1,1,1,2,2,2/ 7 | B=A 8 | call matradd(3,2,A,B,C(1:3,1:2),3) 9 | Do i=1,3 10 | write(*,*) A(i,:) 11 | End Do 12 | 13 | write(*,*) "C++++++++++++++++" 14 | Do i=1,3 15 | write(*,*) C(i,:) 16 | End Do 17 | end program main 18 | -------------------------------------------------------------------------------- /1_matradd/makefile: -------------------------------------------------------------------------------- 1 | ######################################################################################### 2 | ### Author: cndaqiang ### 3 | ### ContactMe: https://cndaqiang.github.io ### 4 | ### Name: MakeFile ### 5 | ### Last-update: 2019-04-06 ### 6 | ### Build-time: 2019-03-29 ### 7 | ### What it is: MakeFile ### 8 | ######################################################################################### 9 | # Remove implicit rules (including for Modula-2, which just confuses matters) 10 | .SUFFIXES: 11 | .SUFFIXES: .f .F .o .a .f90 .F90 12 | 13 | 14 | FC=gfortran 15 | FCFLAGE=-g -O2 -ffree-line-length-none 16 | 17 | 18 | default: run what 19 | 20 | MAIN=main.f90 21 | 22 | TEST=mytest 23 | 24 | OBJ=m_matradd.o 25 | 26 | m_matradd.o : m_matradd.f90 27 | $(FC) $(FCFLAGE) -c -o $@ $^ 28 | 29 | 30 | what: 31 | @echo 32 | @echo Please Read ReadMe 33 | @echo 34 | 35 | 36 | run:$(OBJ) $(MAIN) 37 | $(FC) $(FCFLAGE) -o $@ $^ 38 | 39 | 40 | clean: 41 | @rm *.o *.mod 42 | @rm run mytest 43 | 44 | 45 | 46 | -------------------------------------------------------------------------------- /1_xn/ReadMe: -------------------------------------------------------------------------------- 1 | 计算x^n 2 | -------------------------------------------------------------------------------- /1_xn/m_xn.f90: -------------------------------------------------------------------------------- 1 | module xn 2 | implicit none 3 | contains 4 | real function power(x,n) 5 | implicit none 6 | integer,Intent( IN ) :: n,x 7 | integer ::fn,xn 8 | !0^0 Error 9 | if ((x==0) .AND. (n==0)) STOP ("Error:0^0") 10 | 11 | !0^n=1 12 | power=0 13 | if (x==0) return 14 | 15 | !x^0=1 16 | power=1 17 | if (n==0) return 18 | 19 | !正常计算开始 20 | xn=x 21 | fn=abs(n) 22 | DO while (fn .ne. 0) 23 | if (BTEST(fn,0)) power=power*xn 24 | xn=xn*xn 25 | fn=ISHFT(fn,-1) 26 | End DO 27 | if (n<0) power=1.0/power 28 | return 29 | end function power 30 | end module xn 31 | -------------------------------------------------------------------------------- /1_xn/main.f90: -------------------------------------------------------------------------------- 1 | program main 2 | use xn 3 | implicit none 4 | integer ::x,n 5 | do x=3,-1,-1 6 | do n=2,-1,-1 7 | write(*,*) x,n,power(x,n) 8 | end do 9 | end do 10 | end program 11 | 12 | 13 | -------------------------------------------------------------------------------- /1_xn/求解x^n算法.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/1_xn/求解x^n算法.jpg -------------------------------------------------------------------------------- /2019-05-10-高性能并行计算.pdf: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/2019-05-10-高性能并行计算.pdf -------------------------------------------------------------------------------- /4_matrix_mpi_cheng/a.out: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/4_matrix_mpi_cheng/a.out -------------------------------------------------------------------------------- /4_matrix_mpi_cheng/array.f90: -------------------------------------------------------------------------------- 1 | program test 2 | INTEGER :: A(3,3),B(3,3),C(3,3) 3 | write(*,*) "A" 4 | 5 | Do i=1,3 6 | Do j=1,3 7 | A(i,j)=i+j 8 | B(i,j)=i 9 | 10 | end DO 11 | write(*,*) A(i,:) 12 | end Do 13 | C=transpose(A) 14 | Do i=1,3 15 | write(*,*) C(i,:) 16 | end Do 17 | 18 | 19 | end program 20 | -------------------------------------------------------------------------------- /4_matrix_mpi_cheng/m_mpi_hang_lie.f90: -------------------------------------------------------------------------------- 1 | module m_mpi_hang_lie 2 | use m_mpi_my 3 | implicit none 4 | REAL,allocatable :: Bnode(:,:),Anode(:,:),Cnode(:,:) 5 | 6 | 7 | 8 | node_n=getn(node,m) 9 | allocate(Anode(node_m,k),Cnode(node_m,n)) 10 | 11 | Do i=0,np-1 !node0 calculate B from node0,1,2,...,np-1 12 | from_node=mod(node+i,np)+1 13 | node_n=getn(from_node,n) 14 | allocate(Bnode(k,node_n)) 15 | 16 | Ctmp=matmul(Anode,Bnode) 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | End module m_mpi_hang_lie 30 | -------------------------------------------------------------------------------- /4_matrix_mpi_cheng/m_mpi_my.f90: -------------------------------------------------------------------------------- 1 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 2 | !!! ___ _ _ _ _ !!! 3 | !!! / __| ___ _ __ _ __ _ _ | |_ __ _ | |_ (_) ___ _ _ __ _ | | !!! 4 | !!! | (__ / _ \ | ' \ | '_ \ | || | | _| / _` | | _| | | / _ \ | ' \ / _` | | | !!! 5 | !!! \___| \___/ |_|_|_| | .__/ \_,_| \__| \__,_| \__| |_| \___/ |_||_| \__,_| |_| !!! 6 | !!! ___ _ |_| _ !!! 7 | !!! | _ \ | |_ _ _ ___ (_) __ ___ !!! 8 | !!! | _/ | ' \ | || | (_-< | | / _| (_-< !!! 9 | !!! |_| |_||_| \_, | /__/ |_| \__| /__/ !!! 10 | !!! _ _ |__/ _ !!! 11 | !!! | || | ___ _ __ ___ __ __ __ ___ _ _ | |__ !!! 12 | !!! | __ | / _ \ | ' \ / -_) \ V V / / _ \ | '_| | / / !!! 13 | !!! |_||_| \___/ |_|_|_| \___| \_/\_/ \___/ |_| |_\_\ !!! 14 | !!! !!! 15 | !!! Author: cndaqiang !!! 16 | !!! ContactMe: https://cndaqiang.github.io !!! 17 | !!! Name: module_mpi !!! 18 | !!! Last-update: 2019-04-05 !!! 19 | !!! Build-time: 2019-04-05 !!! 20 | !!! What it is: mpi headfile : mpi_init mpi_end mpi's everything !!! 21 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 22 | 23 | module m_mpi_my 24 | implicit none 25 | include "mpif.h" 26 | INTEGER :: node, np,mpi_ierr,mpi_status(mpi_status_size),my_COMM 27 | INTEGER :: front_node,next_node,master_node=0 28 | contains 29 | subroutine mpi_start() 30 | call MPI_INIT(mpi_ierr) 31 | call MPI_COMM_DUP(MPI_COMM_WORLD,my_COMM,mpi_ierr) 32 | call MPI_COMM_RANK(my_COMM,node,mpi_ierr) 33 | call MPI_COMM_SIZE(my_COMM,np,mpi_ierr) 34 | 35 | front_node=mod(node-1,np) 36 | next_node=mod(node+1,np) 37 | End subroutine mpi_start 38 | 39 | subroutine mpi_end() 40 | call MPI_FINALIZE(mpi_ierr) 41 | End subroutine mpi_end 42 | 43 | end module m_mpi_my 44 | 45 | -------------------------------------------------------------------------------- /4_matrix_mpi_cheng/makefile: -------------------------------------------------------------------------------- 1 | ######################################################################################### 2 | ### Author: cndaqiang ### 3 | ### ContactMe: https://cndaqiang.github.io ### 4 | ### Name: MakeFile ### 5 | ### Last-update: 2019-04-06 ### 6 | ### Build-time: 2019-03-29 ### 7 | ### What it is: MakeFile ### 8 | ######################################################################################### 9 | # Remove implicit rules (including for Modula-2, which just confuses matters) 10 | .SUFFIXES: 11 | .SUFFIXES: .f .F .o .a .f90 .F90 12 | 13 | 14 | FC=mpif90 15 | FCFLAGE=-g -O2 -ffree-line-length-none 16 | 17 | 18 | default: run what 19 | 20 | MAIN=main.f90 21 | 22 | TEST=mytest 23 | 24 | MATHDIR=/mnt/e/work/CODE/soft/sourceCode/matlib 25 | 26 | MATHLIB= -llapack.a -lrefblas -lscalapac -ltmglib 27 | 28 | OBJ=m_matradd.o 29 | 30 | m_matradd.o : m_matradd.f90 31 | $(FC) $(FCFLAGE) -c -o $@ $^ 32 | 33 | 34 | what: 35 | @echo 36 | @echo Please Read ReadMe 37 | @echo 38 | 39 | 40 | run:$(OBJ) $(MAIN) 41 | $(FC) $(FCFLAGE) -o $@ $^ 42 | 43 | 44 | clean: 45 | @rm *.o *.mod 46 | @rm run mytest 47 | 48 | 49 | 50 | -------------------------------------------------------------------------------- /6_ALLTOALL/m_mpi_my.f90: -------------------------------------------------------------------------------- 1 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 2 | !!! ___ _ _ _ _ !!! 3 | !!! / __| ___ _ __ _ __ _ _ | |_ __ _ | |_ (_) ___ _ _ __ _ | | !!! 4 | !!! | (__ / _ \ | ' \ | '_ \ | || | | _| / _` | | _| | | / _ \ | ' \ / _` | | | !!! 5 | !!! \___| \___/ |_|_|_| | .__/ \_,_| \__| \__,_| \__| |_| \___/ |_||_| \__,_| |_| !!! 6 | !!! ___ _ |_| _ !!! 7 | !!! | _ \ | |_ _ _ ___ (_) __ ___ !!! 8 | !!! | _/ | ' \ | || | (_-< | | / _| (_-< !!! 9 | !!! |_| |_||_| \_, | /__/ |_| \__| /__/ !!! 10 | !!! _ _ |__/ _ !!! 11 | !!! | || | ___ _ __ ___ __ __ __ ___ _ _ | |__ !!! 12 | !!! | __ | / _ \ | ' \ / -_) \ V V / / _ \ | '_| | / / !!! 13 | !!! |_||_| \___/ |_|_|_| \___| \_/\_/ \___/ |_| |_\_\ !!! 14 | !!! !!! 15 | !!! Author: cndaqiang !!! 16 | !!! ContactMe: https://cndaqiang.github.io !!! 17 | !!! Name: module_mpi !!! 18 | !!! Last-update: 2019-04-05 !!! 19 | !!! Build-time: 2019-04-05 !!! 20 | !!! What it is: mpi headfile : mpi_init mpi_end mpi's everything !!! 21 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 22 | 23 | module m_mpi_my 24 | implicit none 25 | include "mpif.h" 26 | INTEGER :: node, np,mpi_ierr,mpi_status(mpi_status_size),my_COMM 27 | INTEGER :: front_node,next_node,master_node=0 28 | contains 29 | subroutine mpi_start() 30 | call MPI_INIT(mpi_ierr) 31 | call MPI_COMM_DUP(MPI_COMM_WORLD,my_COMM,mpi_ierr) 32 | call MPI_COMM_RANK(my_COMM,node,mpi_ierr) 33 | call MPI_COMM_SIZE(my_COMM,np,mpi_ierr) 34 | 35 | front_node=mod(node-1,np) 36 | next_node=mod(node+1,np) 37 | End subroutine mpi_start 38 | 39 | subroutine mpi_end() 40 | call MPI_FINALIZE(mpi_ierr) 41 | End subroutine mpi_end 42 | 43 | end module m_mpi_my 44 | 45 | -------------------------------------------------------------------------------- /6_ALLTOALL/m_mpi_my.mod: -------------------------------------------------------------------------------- 1 | GFORTRAN module version '10' created from m_mpi_my.f90 2 | MD5:a56717583496958daa8ea1cc644163c7 -- If you edit this, you'll get what you deserve. 3 | 4 | (() () () () () () () () () () () () () () () () () () () () () () () () 5 | () () ()) 6 | 7 | () 8 | 9 | () 10 | 11 | (('mpi_fortran_argv_null' 2 0 0 '') ('mpi_fortran_argvs_null' 3 0 0 '') 12 | ('mpi_fortran_bottom' 4 0 0 '') ('mpi_fortran_errcodes_ignore' 5 0 0 '') 13 | ('mpi_fortran_in_place' 6 0 0 '') ('mpi_fortran_status_ignore' 7 0 0 '') 14 | ('mpi_fortran_statuses_ignore' 8 0 0 '') ('mpi_fortran_unweighted' 9 0 0 15 | '') ('mpi_fortran_weights_empty' 10 0 0 '')) 16 | 17 | () 18 | 19 | () 20 | 21 | (11 'front_node' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 22 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () 23 | () 0 0) 24 | 12 'm_mpi_my' 'm_mpi_my' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 25 | UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 26 | 0) 27 | 13 'master_node' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 28 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () 29 | () 0 0) 30 | 14 'mpi_2complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 31 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 32 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '26') () 0 () () () 0 0) 33 | 15 'mpi_2double_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 34 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 35 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '27') () 0 () () () 0 0) 36 | 16 'mpi_2double_precision' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 37 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 38 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '24') () 0 () () () 0 0) 39 | 17 'mpi_2int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 40 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 41 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '52') () 0 () () () 0 0) 42 | 18 'mpi_2integer' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 43 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 44 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '25') () 0 () () () 0 0) 45 | 19 'mpi_2real' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 46 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 47 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '23') () 0 () () () 0 0) 48 | 20 'mpi_address_kind' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 49 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 50 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 51 | 21 'mpi_aint' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 52 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 53 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '66') () 0 () () () 0 0) 54 | 22 'mpi_any_source' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 55 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 56 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-1') () 0 () () () 0 0) 57 | 23 'mpi_any_tag' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 58 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 59 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-1') () 0 () () () 0 0) 60 | 24 'mpi_appnum' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 61 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 62 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 63 | 2 'mpi_argv_null' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 64 | UNKNOWN UNKNOWN 0 0 DIMENSION IN_COMMON) (CHARACTER 1 0 0 0 CHARACTER ( 65 | (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1'))) 0 0 () (1 0 EXPLICIT ( 66 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 67 | INTEGER ()) 0 '1')) 0 () () () 0 0) 68 | 3 'mpi_argvs_null' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT 69 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION IN_COMMON) (CHARACTER 1 0 0 0 70 | CHARACTER ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1'))) 0 0 () (1 0 71 | EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( 72 | INTEGER 4 0 0 0 INTEGER ()) 0 '1')) 0 () () () 0 0) 73 | 25 'mpi_async_protects_nonblocking' 'm_mpi_my' '' 1 ((PARAMETER 74 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 0 75 | LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 0 LOGICAL ()) 0 0) () 0 () () 76 | () 0 0) 77 | 26 'mpi_band' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 78 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 79 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) 80 | 27 'mpi_bor' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 81 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 82 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 83 | 4 'mpi_bottom' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 84 | UNKNOWN UNKNOWN 0 0 IN_COMMON) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 85 | () () () 0 0) 86 | 28 'mpi_bsend_overhead' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 87 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 88 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '128') () 0 () () () 0 0) 89 | 29 'mpi_bxor' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 90 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 91 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0) 92 | 30 'mpi_byte' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 93 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 94 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 95 | 31 'mpi_c_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 96 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 97 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '68') () 0 () () () 0 0) 98 | 32 'mpi_c_double_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 99 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 100 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '70') () 0 () () () 0 0) 101 | 33 'mpi_c_float_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 102 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 103 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '69') () 0 () () () 0 0) 104 | 34 'mpi_c_long_double_complex' 'm_mpi_my' '' 1 ((PARAMETER 105 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 106 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '71') () 0 () 107 | () () 0 0) 108 | 35 'mpi_cart' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 109 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 110 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 111 | 36 'mpi_char' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 112 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 113 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '34') () 0 () () () 0 0) 114 | 37 'mpi_character' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 115 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 116 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0) 117 | 38 'mpi_combiner_contiguous' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 118 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 119 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 120 | 39 'mpi_combiner_darray' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 121 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 122 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) 123 | 40 'mpi_combiner_dup' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 124 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 125 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 126 | 41 'mpi_combiner_f90_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 127 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 128 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '15') () 0 () () () 0 0) 129 | 42 'mpi_combiner_f90_integer' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 130 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 131 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '16') () 0 () () () 0 0) 132 | 43 'mpi_combiner_f90_real' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 133 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 134 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '14') () 0 () () () 0 0) 135 | 44 'mpi_combiner_hindexed' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 136 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 137 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 138 | 45 'mpi_combiner_hindexed_block' 'm_mpi_my' '' 1 ((PARAMETER 139 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 140 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '18') () 0 () 141 | () () 0 0) 142 | 46 'mpi_combiner_hindexed_integer' 'm_mpi_my' '' 1 ((PARAMETER 143 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 144 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') () 0 () 145 | () () 0 0) 146 | 47 'mpi_combiner_hvector' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 147 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 148 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0) 149 | 48 'mpi_combiner_hvector_integer' 'm_mpi_my' '' 1 ((PARAMETER 150 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 151 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () 152 | () () 0 0) 153 | 49 'mpi_combiner_indexed' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 154 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 155 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) 156 | 50 'mpi_combiner_indexed_block' 'm_mpi_my' '' 1 ((PARAMETER 157 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 158 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '9') () 0 () 159 | () () 0 0) 160 | 51 'mpi_combiner_named' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 161 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 162 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 163 | 52 'mpi_combiner_resized' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 164 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 165 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '17') () 0 () () () 0 0) 166 | 53 'mpi_combiner_struct' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 167 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 168 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0) 169 | 54 'mpi_combiner_struct_integer' 'm_mpi_my' '' 1 ((PARAMETER 170 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 171 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') () 0 () 172 | () () 0 0) 173 | 55 'mpi_combiner_subarray' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 174 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 175 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') () 0 () () () 0 0) 176 | 56 'mpi_combiner_vector' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 177 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 178 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 179 | 57 'mpi_comm_dup_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 180 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 181 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 182 | 58 'mpi_comm_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 183 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 184 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 185 | 59 'mpi_comm_null_copy_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 186 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 187 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 188 | 60 'mpi_comm_null_delete_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 189 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 190 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 191 | 61 'mpi_comm_self' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 192 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 193 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 194 | 62 'mpi_comm_type_shared' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 195 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 196 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 197 | 63 'mpi_comm_world' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 198 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 199 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 200 | 64 'mpi_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 201 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 202 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '18') () 0 () () () 0 0) 203 | 65 'mpi_complex16' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 204 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 205 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '20') () 0 () () () 0 0) 206 | 66 'mpi_complex32' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 207 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 208 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '21') () 0 () () () 0 0) 209 | 67 'mpi_complex8' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 210 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 211 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '19') () 0 () () () 0 0) 212 | 68 'mpi_congruent' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 213 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 214 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 215 | 69 'mpi_conversion_fn_null' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 216 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 217 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 218 | 70 'mpi_count' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 219 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 220 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '72') () 0 () () () 0 0) 221 | 71 'mpi_count_kind' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 222 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 223 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 224 | 72 'mpi_cxx_bool' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 225 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 226 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '54') () 0 () () () 0 0) 227 | 73 'mpi_cxx_cplex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 228 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 229 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '55') () 0 () () () 0 0) 230 | 74 'mpi_cxx_dblcplex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 231 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 232 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '56') () 0 () () () 0 0) 233 | 75 'mpi_cxx_ldblcplex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 234 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 235 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '57') () 0 () () () 0 0) 236 | 76 'mpi_datatype_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 237 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 238 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 239 | 77 'mpi_displacement_current' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 240 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 241 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-54278278') () 0 () () () 0 242 | 0) 243 | 78 'mpi_dist_graph' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 244 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 245 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 246 | 79 'mpi_distribute_block' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 247 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 248 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 249 | 80 'mpi_distribute_cyclic' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 250 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 251 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 252 | 81 'mpi_distribute_dflt_darg' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 253 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 254 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-1') () 0 () () () 0 0) 255 | 82 'mpi_distribute_none' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 256 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 257 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 258 | 83 'mpi_double' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 259 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 260 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '46') () 0 () () () 0 0) 261 | 84 'mpi_double_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 262 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 263 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '22') () 0 () () () 0 0) 264 | 85 'mpi_double_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 265 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 266 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '49') () 0 () () () 0 0) 267 | 86 'mpi_double_precision' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 268 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 269 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '17') () 0 () () () 0 0) 270 | 87 'mpi_dup_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC 271 | UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 272 | 0 () () 0 () () () 0 0) 273 | 88 'mpi_end' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL 274 | UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 275 | 0 0) 276 | 89 'mpi_err_access' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 277 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 278 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '20') () 0 () () () 0 0) 279 | 90 'mpi_err_amode' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 280 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 281 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '21') () 0 () () () 0 0) 282 | 91 'mpi_err_arg' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 283 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 284 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) 285 | 92 'mpi_err_assert' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 286 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 287 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '22') () 0 () () () 0 0) 288 | 93 'mpi_err_bad_file' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 289 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 290 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '23') () 0 () () () 0 0) 291 | 94 'mpi_err_base' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 292 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 293 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '24') () 0 () () () 0 0) 294 | 95 'mpi_err_buffer' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 295 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 296 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 297 | 96 'mpi_err_comm' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 298 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 299 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0) 300 | 97 'mpi_err_conversion' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 301 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 302 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '25') () 0 () () () 0 0) 303 | 98 'mpi_err_count' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 304 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 305 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 306 | 99 'mpi_err_dims' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 307 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 308 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') () 0 () () () 0 0) 309 | 100 'mpi_err_disp' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 310 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 311 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '26') () 0 () () () 0 0) 312 | 101 'mpi_err_dup_datarep' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 313 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 314 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '27') () 0 () () () 0 0) 315 | 102 'mpi_err_file' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 316 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 317 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '30') () 0 () () () 0 0) 318 | 103 'mpi_err_file_exists' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 319 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 320 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '28') () 0 () () () 0 0) 321 | 104 'mpi_err_file_in_use' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 322 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 323 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '29') () 0 () () () 0 0) 324 | 105 'mpi_err_group' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 325 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 326 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0) 327 | 106 'mpi_err_in_status' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 328 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 329 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '18') () 0 () () () 0 0) 330 | 107 'mpi_err_info' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 331 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 332 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '34') () 0 () () () 0 0) 333 | 108 'mpi_err_info_key' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 334 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 335 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '31') () 0 () () () 0 0) 336 | 109 'mpi_err_info_nokey' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 337 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 338 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '32') () 0 () () () 0 0) 339 | 110 'mpi_err_info_value' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 340 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 341 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '33') () 0 () () () 0 0) 342 | 111 'mpi_err_intern' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 343 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 344 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '17') () 0 () () () 0 0) 345 | 112 'mpi_err_io' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 346 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 347 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '35') () 0 () () () 0 0) 348 | 113 'mpi_err_keyval' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 349 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 350 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '36') () 0 () () () 0 0) 351 | 114 'mpi_err_lastcode' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 352 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 353 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '92') () 0 () () () 0 0) 354 | 115 'mpi_err_locktype' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 355 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 356 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '37') () 0 () () () 0 0) 357 | 116 'mpi_err_name' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 358 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 359 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '38') () 0 () () () 0 0) 360 | 117 'mpi_err_no_mem' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 361 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 362 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '39') () 0 () () () 0 0) 363 | 118 'mpi_err_no_space' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 364 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 365 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '41') () 0 () () () 0 0) 366 | 119 'mpi_err_no_such_file' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 367 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 368 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '42') () 0 () () () 0 0) 369 | 120 'mpi_err_not_same' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 370 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 371 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '40') () 0 () () () 0 0) 372 | 121 'mpi_err_op' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 373 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 374 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0) 375 | 122 'mpi_err_other' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 376 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 377 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '16') () 0 () () () 0 0) 378 | 123 'mpi_err_pending' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 379 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 380 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '19') () 0 () () () 0 0) 381 | 124 'mpi_err_port' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 382 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 383 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '43') () 0 () () () 0 0) 384 | 125 'mpi_err_quota' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 385 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 386 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '44') () 0 () () () 0 0) 387 | 126 'mpi_err_rank' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 388 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 389 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) 390 | 127 'mpi_err_read_only' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 391 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 392 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '45') () 0 () () () 0 0) 393 | 128 'mpi_err_request' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 394 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 395 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0) 396 | 129 'mpi_err_rma_attach' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 397 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 398 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '69') () 0 () () () 0 0) 399 | 130 'mpi_err_rma_conflict' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 400 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 401 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '46') () 0 () () () 0 0) 402 | 131 'mpi_err_rma_flavor' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 403 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 404 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '70') () 0 () () () 0 0) 405 | 132 'mpi_err_rma_range' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 406 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 407 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '68') () 0 () () () 0 0) 408 | 133 'mpi_err_rma_shared' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 409 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 410 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '71') () 0 () () () 0 0) 411 | 134 'mpi_err_rma_sync' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 412 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 413 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '47') () 0 () () () 0 0) 414 | 135 'mpi_err_root' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 415 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 416 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 417 | 136 'mpi_err_service' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 418 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 419 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '48') () 0 () () () 0 0) 420 | 137 'mpi_err_size' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 421 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 422 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '49') () 0 () () () 0 0) 423 | 138 'mpi_err_spawn' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 424 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 425 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '50') () 0 () () () 0 0) 426 | 139 'mpi_err_sysresource' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 427 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 428 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-2') () 0 () () () 0 0) 429 | 140 'mpi_err_tag' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 430 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 431 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 432 | 141 'mpi_err_topology' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 433 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 434 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0) 435 | 142 'mpi_err_truncate' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 436 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 437 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '15') () 0 () () () 0 0) 438 | 143 'mpi_err_type' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 439 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 440 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 441 | 144 'mpi_err_unknown' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 442 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 443 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '14') () 0 () () () 0 0) 444 | 145 'mpi_err_unsupported_datarep' 'm_mpi_my' '' 1 ((PARAMETER 445 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 446 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '51') () 0 () 447 | () () 0 0) 448 | 146 'mpi_err_unsupported_operation' 'm_mpi_my' '' 1 ((PARAMETER 449 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 450 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '52') () 0 () 451 | () () 0 0) 452 | 147 'mpi_err_win' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 453 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 454 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '53') () 0 () () () 0 0) 455 | 5 'mpi_errcodes_ignore' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT 456 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION IN_COMMON) (INTEGER 4 0 0 0 457 | INTEGER ()) 0 0 () (1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 458 | 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1')) 0 () () () 0 0) 459 | 148 'mpi_errhandler_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 460 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 461 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 462 | 149 'mpi_error' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 463 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 464 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 465 | 150 'mpi_errors_are_fatal' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 466 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 467 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 468 | 151 'mpi_errors_return' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 469 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 470 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 471 | 152 'mpi_file_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 472 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 473 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 474 | 153 'mpi_float' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 475 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 476 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '45') () 0 () () () 0 0) 477 | 154 'mpi_float_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 478 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 479 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '48') () 0 () () () 0 0) 480 | 155 'mpi_graph' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 481 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 482 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 483 | 156 'mpi_group_empty' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 484 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 485 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 486 | 157 'mpi_group_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 487 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 488 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 489 | 158 'mpi_host' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 490 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 491 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 492 | 159 'mpi_ident' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 493 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 494 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 495 | 160 'mpi_ierr' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 496 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () 497 | () 0 0) 498 | 6 'mpi_in_place' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 499 | UNKNOWN UNKNOWN 0 0 IN_COMMON) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 500 | () () () 0 0) 501 | 161 'mpi_info_env' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 502 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 503 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 504 | 162 'mpi_info_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 505 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 506 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 507 | 163 'mpi_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 508 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 509 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '39') () 0 () () () 0 0) 510 | 164 'mpi_int16_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 511 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 512 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '60') () 0 () () () 0 0) 513 | 165 'mpi_int32_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 514 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 515 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '62') () 0 () () () 0 0) 516 | 166 'mpi_int64_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 517 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 518 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '64') () 0 () () () 0 0) 519 | 167 'mpi_int8_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 520 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 521 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '58') () 0 () () () 0 0) 522 | 168 'mpi_integer' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 523 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 524 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0) 525 | 169 'mpi_integer1' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 526 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 527 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 528 | 170 'mpi_integer16' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 529 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 530 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') () 0 () () () 0 0) 531 | 171 'mpi_integer2' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 532 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 533 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0) 534 | 172 'mpi_integer4' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 535 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 536 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0) 537 | 173 'mpi_integer8' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 538 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 539 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0) 540 | 174 'mpi_integer_kind' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 541 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 542 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 543 | 175 'mpi_io' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 544 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 545 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 546 | 176 'mpi_keyval_invalid' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 547 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 548 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-1') () 0 () () () 0 0) 549 | 177 'mpi_land' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 550 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 551 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0) 552 | 178 'mpi_lastusedcode' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 553 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 554 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0) 555 | 179 'mpi_lb' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 556 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 557 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 558 | 180 'mpi_lock_exclusive' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 559 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 560 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 561 | 181 'mpi_lock_shared' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 562 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 563 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 564 | 182 'mpi_logical' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 565 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 566 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) 567 | 183 'mpi_logical1' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 568 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 569 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '29') () 0 () () () 0 0) 570 | 184 'mpi_logical2' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 571 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 572 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '30') () 0 () () () 0 0) 573 | 185 'mpi_logical4' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 574 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 575 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '31') () 0 () () () 0 0) 576 | 186 'mpi_logical8' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 577 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 578 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '32') () 0 () () () 0 0) 579 | 187 'mpi_long' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 580 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 581 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '41') () 0 () () () 0 0) 582 | 188 'mpi_long_double' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 583 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 584 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '47') () 0 () () () 0 0) 585 | 189 'mpi_long_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 586 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 587 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '51') () 0 () () () 0 0) 588 | 190 'mpi_long_long_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 589 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 590 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '43') () 0 () () () 0 0) 591 | 191 'mpi_longdbl_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 592 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 593 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '50') () 0 () () () 0 0) 594 | 192 'mpi_lor' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 595 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 596 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0) 597 | 193 'mpi_lxor' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 598 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 599 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0) 600 | 194 'mpi_max' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 601 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 602 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 603 | 195 'mpi_max_datarep_string' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 604 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 605 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '127') () 0 () () () 0 0) 606 | 196 'mpi_max_error_string' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 607 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 608 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '255') () 0 () () () 0 0) 609 | 197 'mpi_max_info_key' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 610 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 611 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '35') () 0 () () () 0 0) 612 | 198 'mpi_max_info_val' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 613 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 614 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '255') () 0 () () () 0 0) 615 | 199 'mpi_max_library_version_string' 'm_mpi_my' '' 1 ((PARAMETER 616 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 617 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '255') () 0 618 | () () () 0 0) 619 | 200 'mpi_max_object_name' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 620 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 621 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '63') () 0 () () () 0 0) 622 | 201 'mpi_max_port_name' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 623 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 624 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1023') () 0 () () () 0 0) 625 | 202 'mpi_max_processor_name' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 626 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 627 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '255') () 0 () () () 0 0) 628 | 203 'mpi_maxloc' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 629 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 630 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0) 631 | 204 'mpi_message_no_proc' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 632 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 633 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 634 | 205 'mpi_message_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 635 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 636 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 637 | 206 'mpi_min' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 638 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 639 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 640 | 207 'mpi_minloc' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 641 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 642 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') () 0 () () () 0 0) 643 | 208 'mpi_mode_append' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 644 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 645 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '128') () 0 () () () 0 0) 646 | 209 'mpi_mode_create' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 647 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 648 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 649 | 210 'mpi_mode_delete_on_close' 'm_mpi_my' '' 1 ((PARAMETER 650 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 651 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '16') () 0 () 652 | () () 0 0) 653 | 211 'mpi_mode_excl' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 654 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 655 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '64') () 0 () () () 0 0) 656 | 212 'mpi_mode_nocheck' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 657 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 658 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 659 | 213 'mpi_mode_noprecede' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 660 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 661 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 662 | 214 'mpi_mode_noput' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 663 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 664 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 665 | 215 'mpi_mode_nostore' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 666 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 667 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 668 | 216 'mpi_mode_nosucceed' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 669 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 670 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '16') () 0 () () () 0 0) 671 | 217 'mpi_mode_rdonly' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 672 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 673 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 674 | 218 'mpi_mode_rdwr' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 675 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 676 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 677 | 219 'mpi_mode_sequential' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 678 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 679 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '256') () 0 () () () 0 0) 680 | 220 'mpi_mode_unique_open' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 681 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 682 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '32') () 0 () () () 0 0) 683 | 221 'mpi_mode_wronly' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 684 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 685 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 686 | 222 'mpi_null_copy_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 687 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 688 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 689 | 223 'mpi_null_delete_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 690 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 691 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 692 | 224 'mpi_offset' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 693 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 694 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '67') () 0 () () () 0 0) 695 | 225 'mpi_offset_kind' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 696 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 697 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 698 | 226 'mpi_op_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 699 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 700 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 701 | 227 'mpi_order_c' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 702 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 703 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 704 | 228 'mpi_order_fortran' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 705 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 706 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 707 | 229 'mpi_packed' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 708 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 709 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 710 | 230 'mpi_proc_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 711 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 712 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-2') () 0 () () () 0 0) 713 | 231 'mpi_prod' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 714 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 715 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 716 | 232 'mpi_real' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 717 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 718 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) 719 | 233 'mpi_real16' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 720 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 721 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '16') () 0 () () () 0 0) 722 | 234 'mpi_real2' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 723 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 724 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '28') () 0 () () () 0 0) 725 | 235 'mpi_real4' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 726 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 727 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '14') () 0 () () () 0 0) 728 | 236 'mpi_real8' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 729 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 730 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '15') () 0 () () () 0 0) 731 | 237 'mpi_replace' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 732 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 733 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) 734 | 238 'mpi_request_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 735 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 736 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 737 | 239 'mpi_root' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 738 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 739 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-4') () 0 () () () 0 0) 740 | 240 'mpi_seek_cur' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 741 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 742 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '602') () 0 () () () 0 0) 743 | 241 'mpi_seek_end' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 744 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 745 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '604') () 0 () () () 0 0) 746 | 242 'mpi_seek_set' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 747 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 748 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '600') () 0 () () () 0 0) 749 | 243 'mpi_short' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 750 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 751 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '37') () 0 () () () 0 0) 752 | 244 'mpi_short_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 753 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 754 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '53') () 0 () () () 0 0) 755 | 245 'mpi_signed_char' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 756 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 757 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '36') () 0 () () () 0 0) 758 | 246 'mpi_similar' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 759 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 760 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 761 | 247 'mpi_source' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 762 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 763 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 764 | 248 'mpi_start' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 765 | DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () 766 | () () 0 0) 767 | 249 'mpi_status' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 768 | UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () 769 | (1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( 770 | INTEGER 4 0 0 0 INTEGER ()) 0 '6')) 0 () () () 0 0) 771 | 7 'mpi_status_ignore' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT 772 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION IN_COMMON) (INTEGER 4 0 0 0 773 | INTEGER ()) 0 0 () (1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 774 | 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6')) 0 () () () 0 0) 775 | 250 'mpi_status_size' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 776 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 777 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) 778 | 8 'mpi_statuses_ignore' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT 779 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION IN_COMMON) (INTEGER 4 0 0 0 780 | INTEGER ()) 0 0 () (2 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 781 | 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') (CONSTANT (INTEGER 782 | 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1')) 783 | 0 () () () 0 0) 784 | 251 'mpi_subarrays_supported' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 785 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 786 | () (CONSTANT (LOGICAL 4 0 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0) 787 | 252 'mpi_subversion' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 788 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 789 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 790 | 253 'mpi_success' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 791 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 792 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 793 | 254 'mpi_sum' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 794 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 795 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 796 | 255 'mpi_tag' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 797 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 798 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 799 | 256 'mpi_tag_ub' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 800 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 801 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 802 | 257 'mpi_thread_funneled' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 803 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 804 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 805 | 258 'mpi_thread_multiple' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 806 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 807 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 808 | 259 'mpi_thread_serialized' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 809 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 810 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 811 | 260 'mpi_thread_single' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 812 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 813 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 814 | 261 'mpi_type_dup_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 815 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 816 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 817 | 262 'mpi_type_null_copy_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 818 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 819 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 820 | 263 'mpi_type_null_delete_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 821 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 822 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 823 | 264 'mpi_typeclass_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 824 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 825 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 826 | 265 'mpi_typeclass_integer' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 827 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 828 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 829 | 266 'mpi_typeclass_real' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 830 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 831 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 832 | 267 'mpi_ub' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 833 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 834 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 835 | 268 'mpi_uint16_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 836 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 837 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '61') () 0 () () () 0 0) 838 | 269 'mpi_uint32_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 839 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 840 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '63') () 0 () () () 0 0) 841 | 270 'mpi_uint64_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 842 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 843 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '65') () 0 () () () 0 0) 844 | 271 'mpi_uint8_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 845 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 846 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '59') () 0 () () () 0 0) 847 | 272 'mpi_undefined' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 848 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 849 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-32766') () 0 () () () 0 0) 850 | 273 'mpi_unequal' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 851 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 852 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 853 | 274 'mpi_universe_size' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 854 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 855 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) 856 | 275 'mpi_unsigned' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 857 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 858 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '40') () 0 () () () 0 0) 859 | 276 'mpi_unsigned_char' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 860 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 861 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '35') () 0 () () () 0 0) 862 | 277 'mpi_unsigned_long' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 863 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 864 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '42') () 0 () () () 0 0) 865 | 278 'mpi_unsigned_long_long' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 866 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 867 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '44') () 0 () () () 0 0) 868 | 279 'mpi_unsigned_short' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 869 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 870 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '38') () 0 () () () 0 0) 871 | 9 'mpi_unweighted' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT 872 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 IN_COMMON) (INTEGER 4 0 0 0 INTEGER ()) 873 | 0 0 () () 0 () () () 0 0) 874 | 280 'mpi_version' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 875 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 876 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 877 | 281 'mpi_wchar' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 878 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 879 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '33') () 0 () () () 0 0) 880 | 10 'mpi_weights_empty' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT 881 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 IN_COMMON) (INTEGER 4 0 0 0 INTEGER ()) 882 | 0 0 () () 0 () () () 0 0) 883 | 282 'mpi_win_base' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 884 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 885 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0) 886 | 283 'mpi_win_create_flavor' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 887 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 888 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0) 889 | 284 'mpi_win_disp_unit' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 890 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 891 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0) 892 | 285 'mpi_win_dup_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 893 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 894 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 895 | 286 'mpi_win_flavor_allocate' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 896 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 897 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 898 | 287 'mpi_win_flavor_create' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 899 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 900 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 901 | 288 'mpi_win_flavor_dynamic' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 902 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 903 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 904 | 289 'mpi_win_flavor_shared' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 905 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 906 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 907 | 290 'mpi_win_model' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 908 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 909 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0) 910 | 291 'mpi_win_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 911 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 912 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 913 | 292 'mpi_win_null_copy_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 914 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 915 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 916 | 293 'mpi_win_null_delete_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 917 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 918 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 919 | 294 'mpi_win_size' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 920 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 921 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 922 | 295 'mpi_wtick' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC 923 | UNKNOWN UNKNOWN 0 0 EXTERNAL FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 924 | 0 () () () 0 0) 925 | 296 'mpi_wtime' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC 926 | UNKNOWN UNKNOWN 0 0 EXTERNAL FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 927 | 0 () () () 0 0) 928 | 297 'mpi_wtime_is_global' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 929 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 930 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 931 | 298 'my_comm' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 932 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () 933 | () 0 0) 934 | 299 'next_node' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 935 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () 936 | () 0 0) 937 | 300 'node' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 938 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () 939 | () 0 0) 940 | 301 'np' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 941 | IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 942 | 302 'ompi_major_version' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 943 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 944 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 945 | 303 'ompi_minor_version' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 946 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 947 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0) 948 | 304 'ompi_release_version' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 949 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 950 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 951 | 305 'pmpi_wtick' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC 952 | UNKNOWN UNKNOWN 0 0 EXTERNAL FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 953 | 0 () () () 0 0) 954 | 306 'pmpi_wtime' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC 955 | UNKNOWN UNKNOWN 0 0 EXTERNAL FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 956 | 0 () () () 0 0) 957 | ) 958 | 959 | ('front_node' 0 11 'm_mpi_my' 0 12 'master_node' 0 13 'mpi_2complex' 0 960 | 14 'mpi_2double_complex' 0 15 'mpi_2double_precision' 0 16 'mpi_2int' 0 961 | 17 'mpi_2integer' 0 18 'mpi_2real' 0 19 'mpi_address_kind' 0 20 'mpi_aint' 962 | 0 21 'mpi_any_source' 0 22 'mpi_any_tag' 0 23 'mpi_appnum' 0 24 963 | 'mpi_argv_null' 0 2 'mpi_argvs_null' 0 3 'mpi_async_protects_nonblocking' 964 | 0 25 'mpi_band' 0 26 'mpi_bor' 0 27 'mpi_bottom' 0 4 'mpi_bsend_overhead' 965 | 0 28 'mpi_bxor' 0 29 'mpi_byte' 0 30 'mpi_c_complex' 0 31 966 | 'mpi_c_double_complex' 0 32 'mpi_c_float_complex' 0 33 967 | 'mpi_c_long_double_complex' 0 34 'mpi_cart' 0 35 'mpi_char' 0 36 968 | 'mpi_character' 0 37 'mpi_combiner_contiguous' 0 38 'mpi_combiner_darray' 969 | 0 39 'mpi_combiner_dup' 0 40 'mpi_combiner_f90_complex' 0 41 970 | 'mpi_combiner_f90_integer' 0 42 'mpi_combiner_f90_real' 0 43 971 | 'mpi_combiner_hindexed' 0 44 'mpi_combiner_hindexed_block' 0 45 972 | 'mpi_combiner_hindexed_integer' 0 46 'mpi_combiner_hvector' 0 47 973 | 'mpi_combiner_hvector_integer' 0 48 'mpi_combiner_indexed' 0 49 974 | 'mpi_combiner_indexed_block' 0 50 'mpi_combiner_named' 0 51 975 | 'mpi_combiner_resized' 0 52 'mpi_combiner_struct' 0 53 976 | 'mpi_combiner_struct_integer' 0 54 'mpi_combiner_subarray' 0 55 977 | 'mpi_combiner_vector' 0 56 'mpi_comm_dup_fn' 0 57 'mpi_comm_null' 0 58 978 | 'mpi_comm_null_copy_fn' 0 59 'mpi_comm_null_delete_fn' 0 60 979 | 'mpi_comm_self' 0 61 'mpi_comm_type_shared' 0 62 'mpi_comm_world' 0 63 980 | 'mpi_complex' 0 64 'mpi_complex16' 0 65 'mpi_complex32' 0 66 981 | 'mpi_complex8' 0 67 'mpi_congruent' 0 68 'mpi_conversion_fn_null' 0 69 982 | 'mpi_count' 0 70 'mpi_count_kind' 0 71 'mpi_cxx_bool' 0 72 'mpi_cxx_cplex' 983 | 0 73 'mpi_cxx_dblcplex' 0 74 'mpi_cxx_ldblcplex' 0 75 'mpi_datatype_null' 984 | 0 76 'mpi_displacement_current' 0 77 'mpi_dist_graph' 0 78 985 | 'mpi_distribute_block' 0 79 'mpi_distribute_cyclic' 0 80 986 | 'mpi_distribute_dflt_darg' 0 81 'mpi_distribute_none' 0 82 'mpi_double' 987 | 0 83 'mpi_double_complex' 0 84 'mpi_double_int' 0 85 988 | 'mpi_double_precision' 0 86 'mpi_dup_fn' 0 87 'mpi_end' 0 88 989 | 'mpi_err_access' 0 89 'mpi_err_amode' 0 90 'mpi_err_arg' 0 91 990 | 'mpi_err_assert' 0 92 'mpi_err_bad_file' 0 93 'mpi_err_base' 0 94 991 | 'mpi_err_buffer' 0 95 'mpi_err_comm' 0 96 'mpi_err_conversion' 0 97 992 | 'mpi_err_count' 0 98 'mpi_err_dims' 0 99 'mpi_err_disp' 0 100 993 | 'mpi_err_dup_datarep' 0 101 'mpi_err_file' 0 102 'mpi_err_file_exists' 0 994 | 103 'mpi_err_file_in_use' 0 104 'mpi_err_group' 0 105 'mpi_err_in_status' 995 | 0 106 'mpi_err_info' 0 107 'mpi_err_info_key' 0 108 'mpi_err_info_nokey' 996 | 0 109 'mpi_err_info_value' 0 110 'mpi_err_intern' 0 111 'mpi_err_io' 0 997 | 112 'mpi_err_keyval' 0 113 'mpi_err_lastcode' 0 114 'mpi_err_locktype' 0 998 | 115 'mpi_err_name' 0 116 'mpi_err_no_mem' 0 117 'mpi_err_no_space' 0 118 999 | 'mpi_err_no_such_file' 0 119 'mpi_err_not_same' 0 120 'mpi_err_op' 0 121 1000 | 'mpi_err_other' 0 122 'mpi_err_pending' 0 123 'mpi_err_port' 0 124 1001 | 'mpi_err_quota' 0 125 'mpi_err_rank' 0 126 'mpi_err_read_only' 0 127 1002 | 'mpi_err_request' 0 128 'mpi_err_rma_attach' 0 129 'mpi_err_rma_conflict' 1003 | 0 130 'mpi_err_rma_flavor' 0 131 'mpi_err_rma_range' 0 132 1004 | 'mpi_err_rma_shared' 0 133 'mpi_err_rma_sync' 0 134 'mpi_err_root' 0 135 1005 | 'mpi_err_service' 0 136 'mpi_err_size' 0 137 'mpi_err_spawn' 0 138 1006 | 'mpi_err_sysresource' 0 139 'mpi_err_tag' 0 140 'mpi_err_topology' 0 141 1007 | 'mpi_err_truncate' 0 142 'mpi_err_type' 0 143 'mpi_err_unknown' 0 144 1008 | 'mpi_err_unsupported_datarep' 0 145 'mpi_err_unsupported_operation' 0 1009 | 146 'mpi_err_win' 0 147 'mpi_errcodes_ignore' 0 5 'mpi_errhandler_null' 1010 | 0 148 'mpi_error' 0 149 'mpi_errors_are_fatal' 0 150 'mpi_errors_return' 1011 | 0 151 'mpi_file_null' 0 152 'mpi_float' 0 153 'mpi_float_int' 0 154 1012 | 'mpi_graph' 0 155 'mpi_group_empty' 0 156 'mpi_group_null' 0 157 1013 | 'mpi_host' 0 158 'mpi_ident' 0 159 'mpi_ierr' 0 160 'mpi_in_place' 0 6 1014 | 'mpi_info_env' 0 161 'mpi_info_null' 0 162 'mpi_int' 0 163 'mpi_int16_t' 1015 | 0 164 'mpi_int32_t' 0 165 'mpi_int64_t' 0 166 'mpi_int8_t' 0 167 1016 | 'mpi_integer' 0 168 'mpi_integer1' 0 169 'mpi_integer16' 0 170 1017 | 'mpi_integer2' 0 171 'mpi_integer4' 0 172 'mpi_integer8' 0 173 1018 | 'mpi_integer_kind' 0 174 'mpi_io' 0 175 'mpi_keyval_invalid' 0 176 1019 | 'mpi_land' 0 177 'mpi_lastusedcode' 0 178 'mpi_lb' 0 179 1020 | 'mpi_lock_exclusive' 0 180 'mpi_lock_shared' 0 181 'mpi_logical' 0 182 1021 | 'mpi_logical1' 0 183 'mpi_logical2' 0 184 'mpi_logical4' 0 185 1022 | 'mpi_logical8' 0 186 'mpi_long' 0 187 'mpi_long_double' 0 188 1023 | 'mpi_long_int' 0 189 'mpi_long_long_int' 0 190 'mpi_longdbl_int' 0 191 1024 | 'mpi_lor' 0 192 'mpi_lxor' 0 193 'mpi_max' 0 194 'mpi_max_datarep_string' 1025 | 0 195 'mpi_max_error_string' 0 196 'mpi_max_info_key' 0 197 1026 | 'mpi_max_info_val' 0 198 'mpi_max_library_version_string' 0 199 1027 | 'mpi_max_object_name' 0 200 'mpi_max_port_name' 0 201 1028 | 'mpi_max_processor_name' 0 202 'mpi_maxloc' 0 203 'mpi_message_no_proc' 1029 | 0 204 'mpi_message_null' 0 205 'mpi_min' 0 206 'mpi_minloc' 0 207 1030 | 'mpi_mode_append' 0 208 'mpi_mode_create' 0 209 'mpi_mode_delete_on_close' 1031 | 0 210 'mpi_mode_excl' 0 211 'mpi_mode_nocheck' 0 212 'mpi_mode_noprecede' 1032 | 0 213 'mpi_mode_noput' 0 214 'mpi_mode_nostore' 0 215 'mpi_mode_nosucceed' 1033 | 0 216 'mpi_mode_rdonly' 0 217 'mpi_mode_rdwr' 0 218 'mpi_mode_sequential' 1034 | 0 219 'mpi_mode_unique_open' 0 220 'mpi_mode_wronly' 0 221 1035 | 'mpi_null_copy_fn' 0 222 'mpi_null_delete_fn' 0 223 'mpi_offset' 0 224 1036 | 'mpi_offset_kind' 0 225 'mpi_op_null' 0 226 'mpi_order_c' 0 227 1037 | 'mpi_order_fortran' 0 228 'mpi_packed' 0 229 'mpi_proc_null' 0 230 1038 | 'mpi_prod' 0 231 'mpi_real' 0 232 'mpi_real16' 0 233 'mpi_real2' 0 234 1039 | 'mpi_real4' 0 235 'mpi_real8' 0 236 'mpi_replace' 0 237 'mpi_request_null' 1040 | 0 238 'mpi_root' 0 239 'mpi_seek_cur' 0 240 'mpi_seek_end' 0 241 1041 | 'mpi_seek_set' 0 242 'mpi_short' 0 243 'mpi_short_int' 0 244 1042 | 'mpi_signed_char' 0 245 'mpi_similar' 0 246 'mpi_source' 0 247 'mpi_start' 1043 | 0 248 'mpi_status' 0 249 'mpi_status_ignore' 0 7 'mpi_status_size' 0 250 1044 | 'mpi_statuses_ignore' 0 8 'mpi_subarrays_supported' 0 251 'mpi_subversion' 1045 | 0 252 'mpi_success' 0 253 'mpi_sum' 0 254 'mpi_tag' 0 255 'mpi_tag_ub' 0 1046 | 256 'mpi_thread_funneled' 0 257 'mpi_thread_multiple' 0 258 1047 | 'mpi_thread_serialized' 0 259 'mpi_thread_single' 0 260 'mpi_type_dup_fn' 1048 | 0 261 'mpi_type_null_copy_fn' 0 262 'mpi_type_null_delete_fn' 0 263 1049 | 'mpi_typeclass_complex' 0 264 'mpi_typeclass_integer' 0 265 1050 | 'mpi_typeclass_real' 0 266 'mpi_ub' 0 267 'mpi_uint16_t' 0 268 1051 | 'mpi_uint32_t' 0 269 'mpi_uint64_t' 0 270 'mpi_uint8_t' 0 271 1052 | 'mpi_undefined' 0 272 'mpi_unequal' 0 273 'mpi_universe_size' 0 274 1053 | 'mpi_unsigned' 0 275 'mpi_unsigned_char' 0 276 'mpi_unsigned_long' 0 277 1054 | 'mpi_unsigned_long_long' 0 278 'mpi_unsigned_short' 0 279 'mpi_unweighted' 1055 | 0 9 'mpi_version' 0 280 'mpi_wchar' 0 281 'mpi_weights_empty' 0 10 1056 | 'mpi_win_base' 0 282 'mpi_win_create_flavor' 0 283 'mpi_win_disp_unit' 0 1057 | 284 'mpi_win_dup_fn' 0 285 'mpi_win_flavor_allocate' 0 286 1058 | 'mpi_win_flavor_create' 0 287 'mpi_win_flavor_dynamic' 0 288 1059 | 'mpi_win_flavor_shared' 0 289 'mpi_win_model' 0 290 'mpi_win_null' 0 291 1060 | 'mpi_win_null_copy_fn' 0 292 'mpi_win_null_delete_fn' 0 293 'mpi_win_size' 1061 | 0 294 'mpi_wtick' 0 295 'mpi_wtime' 0 296 'mpi_wtime_is_global' 0 297 1062 | 'my_comm' 0 298 'next_node' 0 299 'node' 0 300 'np' 0 301 1063 | 'ompi_major_version' 0 302 'ompi_minor_version' 0 303 1064 | 'ompi_release_version' 0 304 'pmpi_wtick' 0 305 'pmpi_wtime' 0 306) 1065 | -------------------------------------------------------------------------------- /6_ALLTOALL/m_mpi_my.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_ALLTOALL/m_mpi_my.o -------------------------------------------------------------------------------- /6_ALLTOALL/main.f90: -------------------------------------------------------------------------------- 1 | program test_myalltoall 2 | use m_mpi_my 3 | use myalltoall 4 | integer :: x(4),y(4) 5 | call mpi_start() 6 | if(node .eq. 0) x=1 7 | if(node .eq. 1) y=10 8 | if(node .ne. 0 ) x=0 9 | x=node 10 | 11 | call alltoall(x, 1, MPI_INTEGER, y, 1, MPI_INTEGER, my_COMM, mpi_ierr ) 12 | !subroutine alltoall(SENDBUF, SENDCOUNT, SENDTYPE, RECVBUF, RECVCOUNT, RECVTYPE, COMM, IERROR ) 13 | write(*,*) node,y 14 | 15 | 16 | 17 | call mpi_end() 18 | 19 | 20 | 21 | 22 | 23 | end program test_myalltoall -------------------------------------------------------------------------------- /6_ALLTOALL/main.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_ALLTOALL/main.o -------------------------------------------------------------------------------- /6_ALLTOALL/makefile: -------------------------------------------------------------------------------- 1 | ######################################################################################### 2 | ### Author: cndaqiang ### 3 | ### ContactMe: https://cndaqiang.github.io ### 4 | ### Name: MakeFile ### 5 | ### Last-update: 2019-04-06 ### 6 | ### Build-time: 2019-03-29 ### 7 | ### What it is: MakeFile ### 8 | ######################################################################################### 9 | 10 | # Remove implicit rules (including for Modula-2, which just confuses matters) 11 | .SUFFIXES: 12 | .SUFFIXES: .f .F .o .a .f90 .F90 13 | 14 | 15 | FC=mpif90 16 | FFLAGS=-g -O2 -ffree-line-length-none 17 | INCFLAGS= 18 | FPPFLAGS= 19 | FPPFLAGS_fixed_F= 20 | FPPFLAGS_free_F90= 21 | FCFLAGS_fixed_f= 22 | FCFLAGS_free_f90= 23 | 24 | 25 | 26 | .F.o: 27 | $(FC) -c $(FFLAGS) $(INCFLAGS) $(FPPFLAGS) $(FPPFLAGS_fixed_F) $< 28 | .F90.o: 29 | $(FC) -c $(FFLAGS) $(INCFLAGS) $(FPPFLAGS) $(FPPFLAGS_free_F90) $< 30 | .f.o: 31 | $(FC) -c $(FFLAGS) $(INCFLAGS) $(FCFLAGS_fixed_f) $< 32 | .f90.o: 33 | $(FC) -c $(FFLAGS) $(INCFLAGS) $(FCFLAGS_free_f90) $< 34 | 35 | 36 | 37 | default: run #what 38 | 39 | 40 | TEST=mytest 41 | 42 | MATHDIR=/mnt/e/work/CODE/soft/sourceCode/matlib 43 | 44 | MATHLIB= -llapack.a -lrefblas -lscalapac -ltmglib 45 | 46 | OBJ=myalltoall.o main.o m_mpi_my.o 47 | 48 | main.o:m_mpi_my.o 49 | myalltoall.o:m_mpi_my.o 50 | 51 | 52 | what: 53 | @echo 54 | @echo Please Read ReadMe 55 | @echo 56 | 57 | 58 | run:$(OBJ) 59 | $(FC) $(FCFLAGE) -o $@ $^ 60 | mpirun -np 4 ./run 61 | 62 | 63 | clean: 64 | @rm *.o *.mod 65 | @rm run mytest 66 | 67 | 68 | 69 | -------------------------------------------------------------------------------- /6_ALLTOALL/myalltoall.f90: -------------------------------------------------------------------------------- 1 | module myalltoall 2 | use m_mpi_my 3 | contains 4 | subroutine alltoall(SENDBUF, SENDCOUNT, SENDTYPE, RECVBUF, RECVCOUNT, RECVTYPE, COMM, IERROR ) 5 | !此处使用与传入数据为整型情况 6 | INTEGER :: SENDBUF(*), RECVBUF(*) 7 | INTEGER :: SENDCOUNT, SENDTYPE, RECVCOUNT, RECVTYPE, COMM, IERROR 8 | !SENDCOUNT,RECVCOUNT,COMM,IERROR, 9 | 10 | INTEGER :: node, np,mpi_ierr,mpi_status(mpi_status_size),my_COMM 11 | INTEGER :: front_node,next_node,master_node=0 12 | INTEGER :: sendnode,recvnode 13 | 14 | 15 | 16 | call MPI_COMM_RANK(my_COMM,node,mpi_ierr) 17 | call MPI_COMM_SIZE(my_COMM,np,mpi_ierr) 18 | 19 | 20 | DO sendnode=0,np-1 21 | Do recvnode=0,np-1 22 | TAG=100+10*sendnode+recvnode 23 | if(node .eq. sendnode) call MPI_SEND(SENDBUF(recvnode*SENDCOUNT+1),SENDCOUNT, SENDTYPE,recvnode,TAG, COMM, IERROR) 24 | if(node .eq. recvnode) call MPI_RECV(RECVBUF(sendnode*RECVCOUNT+1), RECVCOUNT, RECVTYPE, sendnode, TAG, COMM, mpi_status, IERROR) 25 | END DO 26 | END DO 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | end subroutine alltoall 35 | 36 | end module myalltoall -------------------------------------------------------------------------------- /6_ALLTOALL/myalltoall.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_ALLTOALL/myalltoall.o -------------------------------------------------------------------------------- /6_ALLTOALL/run: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_ALLTOALL/run -------------------------------------------------------------------------------- /6_LMAT/._LMAT.f90: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT/._LMAT.f90 -------------------------------------------------------------------------------- /6_LMAT/._m_mpi_my.f90: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT/._m_mpi_my.f90 -------------------------------------------------------------------------------- /6_LMAT/._test.f90: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT/._test.f90 -------------------------------------------------------------------------------- /6_LMAT/LMAT.f90: -------------------------------------------------------------------------------- 1 | module lmat 2 | use m_mpi_my 3 | implicit none 4 | contains 5 | subroutine sublamt(M,OLDTYPE,olddisp,NEWTYPE) 6 | INTEGER :: M,OLDTYPE,NEWTYPE 7 | INTEGER :: olddisp !OLDTYPE字节长度, 使用kind(A(1,1))获得 8 | INTEGER,allocatable :: DATALEN(:),BLOCKDISP(:) 9 | INTEGER :: i 10 | !MPI_TYPE_INDEXED(count,array_of_blocklengths,array_of_displacemets,oldtype,newtype) 11 | allocate(BLOCKDISP(M),DATALEN(M)) 12 | 13 | Do i=1,M 14 | !DATALEN(i)=M-i 15 | !BLOCKDISP(i)=(i-1)*olddisp 16 | !Fortran要考虑到存储的方式 17 | DATALEN(i)=M-i+1 18 | BLOCKDISP(i)=(i-1)*M+(i-1) 19 | END DO 20 | call MPI_TYPE_INDEXED(M,DATALEN,BLOCKDISP,OLDTYPE,NEWTYPE,mpi_ierr) 21 | deallocate(BLOCKDISP,DATALEN) 22 | end subroutine 23 | 24 | end module lmat 25 | -------------------------------------------------------------------------------- /6_LMAT/LMAT.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT/LMAT.o -------------------------------------------------------------------------------- /6_LMAT/a.out: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT/a.out -------------------------------------------------------------------------------- /6_LMAT/m_mpi_my.f90: -------------------------------------------------------------------------------- 1 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 2 | !!! ___ _ _ _ _ !!! 3 | !!! / __| ___ _ __ _ __ _ _ | |_ __ _ | |_ (_) ___ _ _ __ _ | | !!! 4 | !!! | (__ / _ \ | ' \ | '_ \ | || | | _| / _` | | _| | | / _ \ | ' \ / _` | | | !!! 5 | !!! \___| \___/ |_|_|_| | .__/ \_,_| \__| \__,_| \__| |_| \___/ |_||_| \__,_| |_| !!! 6 | !!! ___ _ |_| _ !!! 7 | !!! | _ \ | |_ _ _ ___ (_) __ ___ !!! 8 | !!! | _/ | ' \ | || | (_-< | | / _| (_-< !!! 9 | !!! |_| |_||_| \_, | /__/ |_| \__| /__/ !!! 10 | !!! _ _ |__/ _ !!! 11 | !!! | || | ___ _ __ ___ __ __ __ ___ _ _ | |__ !!! 12 | !!! | __ | / _ \ | ' \ / -_) \ V V / / _ \ | '_| | / / !!! 13 | !!! |_||_| \___/ |_|_|_| \___| \_/\_/ \___/ |_| |_\_\ !!! 14 | !!! !!! 15 | !!! Author: cndaqiang !!! 16 | !!! ContactMe: https://cndaqiang.github.io !!! 17 | !!! Name: module_mpi !!! 18 | !!! Last-update: 2019-04-05 !!! 19 | !!! Build-time: 2019-04-05 !!! 20 | !!! What it is: mpi headfile : mpi_init mpi_end mpi's everything !!! 21 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 22 | 23 | module m_mpi_my 24 | implicit none 25 | include "mpif.h" 26 | INTEGER :: node, np,mpi_ierr,mpi_status(mpi_status_size),my_COMM 27 | INTEGER :: front_node,next_node,master_node=0 28 | contains 29 | subroutine mpi_start() 30 | call MPI_INIT(mpi_ierr) 31 | call MPI_COMM_DUP(MPI_COMM_WORLD,my_COMM,mpi_ierr) 32 | call MPI_COMM_RANK(my_COMM,node,mpi_ierr) 33 | call MPI_COMM_SIZE(my_COMM,np,mpi_ierr) 34 | 35 | front_node=mod(node-1,np) 36 | next_node=mod(node+1,np) 37 | End subroutine mpi_start 38 | 39 | subroutine mpi_end() 40 | call MPI_FINALIZE(mpi_ierr) 41 | End subroutine mpi_end 42 | 43 | end module m_mpi_my 44 | 45 | -------------------------------------------------------------------------------- /6_LMAT/m_mpi_my.mod: -------------------------------------------------------------------------------- 1 | GFORTRAN module version '10' created from m_mpi_my.f90 2 | MD5:a56717583496958daa8ea1cc644163c7 -- If you edit this, you'll get what you deserve. 3 | 4 | (() () () () () () () () () () () () () () () () () () () () () () () () 5 | () () ()) 6 | 7 | () 8 | 9 | () 10 | 11 | (('mpi_fortran_argv_null' 2 0 0 '') ('mpi_fortran_argvs_null' 3 0 0 '') 12 | ('mpi_fortran_bottom' 4 0 0 '') ('mpi_fortran_errcodes_ignore' 5 0 0 '') 13 | ('mpi_fortran_in_place' 6 0 0 '') ('mpi_fortran_status_ignore' 7 0 0 '') 14 | ('mpi_fortran_statuses_ignore' 8 0 0 '') ('mpi_fortran_unweighted' 9 0 0 15 | '') ('mpi_fortran_weights_empty' 10 0 0 '')) 16 | 17 | () 18 | 19 | () 20 | 21 | (11 'front_node' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 22 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () 23 | () 0 0) 24 | 12 'm_mpi_my' 'm_mpi_my' '' 1 ((MODULE UNKNOWN-INTENT UNKNOWN-PROC 25 | UNKNOWN UNKNOWN 0 0) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 0 26 | 0) 27 | 13 'master_node' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 28 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () 29 | () 0 0) 30 | 14 'mpi_2complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 31 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 32 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '26') () 0 () () () 0 0) 33 | 15 'mpi_2double_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 34 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 35 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '27') () 0 () () () 0 0) 36 | 16 'mpi_2double_precision' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 37 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 38 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '24') () 0 () () () 0 0) 39 | 17 'mpi_2int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 40 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 41 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '52') () 0 () () () 0 0) 42 | 18 'mpi_2integer' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 43 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 44 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '25') () 0 () () () 0 0) 45 | 19 'mpi_2real' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 46 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 47 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '23') () 0 () () () 0 0) 48 | 20 'mpi_address_kind' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 49 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 50 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 51 | 21 'mpi_aint' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 52 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 53 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '66') () 0 () () () 0 0) 54 | 22 'mpi_any_source' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 55 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 56 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-1') () 0 () () () 0 0) 57 | 23 'mpi_any_tag' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 58 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 59 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-1') () 0 () () () 0 0) 60 | 24 'mpi_appnum' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 61 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 62 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 63 | 2 'mpi_argv_null' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 64 | UNKNOWN UNKNOWN 0 0 DIMENSION IN_COMMON) (CHARACTER 1 0 0 0 CHARACTER ( 65 | (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1'))) 0 0 () (1 0 EXPLICIT ( 66 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 67 | INTEGER ()) 0 '1')) 0 () () () 0 0) 68 | 3 'mpi_argvs_null' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT 69 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION IN_COMMON) (CHARACTER 1 0 0 0 70 | CHARACTER ((CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1'))) 0 0 () (1 0 71 | EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( 72 | INTEGER 4 0 0 0 INTEGER ()) 0 '1')) 0 () () () 0 0) 73 | 25 'mpi_async_protects_nonblocking' 'm_mpi_my' '' 1 ((PARAMETER 74 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 0 75 | LOGICAL ()) 0 0 () (CONSTANT (LOGICAL 4 0 0 0 LOGICAL ()) 0 0) () 0 () () 76 | () 0 0) 77 | 26 'mpi_band' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 78 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 79 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) 80 | 27 'mpi_bor' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 81 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 82 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 83 | 4 'mpi_bottom' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 84 | UNKNOWN UNKNOWN 0 0 IN_COMMON) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 85 | () () () 0 0) 86 | 28 'mpi_bsend_overhead' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 87 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 88 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '128') () 0 () () () 0 0) 89 | 29 'mpi_bxor' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 90 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 91 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0) 92 | 30 'mpi_byte' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 93 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 94 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 95 | 31 'mpi_c_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 96 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 97 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '68') () 0 () () () 0 0) 98 | 32 'mpi_c_double_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 99 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 100 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '70') () 0 () () () 0 0) 101 | 33 'mpi_c_float_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 102 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 103 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '69') () 0 () () () 0 0) 104 | 34 'mpi_c_long_double_complex' 'm_mpi_my' '' 1 ((PARAMETER 105 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 106 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '71') () 0 () 107 | () () 0 0) 108 | 35 'mpi_cart' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 109 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 110 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 111 | 36 'mpi_char' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 112 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 113 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '34') () 0 () () () 0 0) 114 | 37 'mpi_character' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 115 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 116 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0) 117 | 38 'mpi_combiner_contiguous' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 118 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 119 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 120 | 39 'mpi_combiner_darray' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 121 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 122 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) 123 | 40 'mpi_combiner_dup' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 124 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 125 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 126 | 41 'mpi_combiner_f90_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 127 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 128 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '15') () 0 () () () 0 0) 129 | 42 'mpi_combiner_f90_integer' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 130 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 131 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '16') () 0 () () () 0 0) 132 | 43 'mpi_combiner_f90_real' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 133 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 134 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '14') () 0 () () () 0 0) 135 | 44 'mpi_combiner_hindexed' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 136 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 137 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 138 | 45 'mpi_combiner_hindexed_block' 'm_mpi_my' '' 1 ((PARAMETER 139 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 140 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '18') () 0 () 141 | () () 0 0) 142 | 46 'mpi_combiner_hindexed_integer' 'm_mpi_my' '' 1 ((PARAMETER 143 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 144 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') () 0 () 145 | () () 0 0) 146 | 47 'mpi_combiner_hvector' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 147 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 148 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0) 149 | 48 'mpi_combiner_hvector_integer' 'm_mpi_my' '' 1 ((PARAMETER 150 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 151 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () 152 | () () 0 0) 153 | 49 'mpi_combiner_indexed' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 154 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 155 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) 156 | 50 'mpi_combiner_indexed_block' 'm_mpi_my' '' 1 ((PARAMETER 157 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 158 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '9') () 0 () 159 | () () 0 0) 160 | 51 'mpi_combiner_named' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 161 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 162 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 163 | 52 'mpi_combiner_resized' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 164 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 165 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '17') () 0 () () () 0 0) 166 | 53 'mpi_combiner_struct' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 167 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 168 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0) 169 | 54 'mpi_combiner_struct_integer' 'm_mpi_my' '' 1 ((PARAMETER 170 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 171 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') () 0 () 172 | () () 0 0) 173 | 55 'mpi_combiner_subarray' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 174 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 175 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') () 0 () () () 0 0) 176 | 56 'mpi_combiner_vector' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 177 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 178 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 179 | 57 'mpi_comm_dup_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 180 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 181 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 182 | 58 'mpi_comm_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 183 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 184 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 185 | 59 'mpi_comm_null_copy_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 186 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 187 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 188 | 60 'mpi_comm_null_delete_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 189 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 190 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 191 | 61 'mpi_comm_self' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 192 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 193 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 194 | 62 'mpi_comm_type_shared' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 195 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 196 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 197 | 63 'mpi_comm_world' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 198 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 199 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 200 | 64 'mpi_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 201 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 202 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '18') () 0 () () () 0 0) 203 | 65 'mpi_complex16' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 204 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 205 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '20') () 0 () () () 0 0) 206 | 66 'mpi_complex32' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 207 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 208 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '21') () 0 () () () 0 0) 209 | 67 'mpi_complex8' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 210 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 211 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '19') () 0 () () () 0 0) 212 | 68 'mpi_congruent' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 213 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 214 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 215 | 69 'mpi_conversion_fn_null' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 216 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 217 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 218 | 70 'mpi_count' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 219 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 220 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '72') () 0 () () () 0 0) 221 | 71 'mpi_count_kind' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 222 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 223 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 224 | 72 'mpi_cxx_bool' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 225 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 226 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '54') () 0 () () () 0 0) 227 | 73 'mpi_cxx_cplex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 228 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 229 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '55') () 0 () () () 0 0) 230 | 74 'mpi_cxx_dblcplex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 231 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 232 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '56') () 0 () () () 0 0) 233 | 75 'mpi_cxx_ldblcplex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 234 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 235 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '57') () 0 () () () 0 0) 236 | 76 'mpi_datatype_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 237 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 238 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 239 | 77 'mpi_displacement_current' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 240 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 241 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-54278278') () 0 () () () 0 242 | 0) 243 | 78 'mpi_dist_graph' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 244 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 245 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 246 | 79 'mpi_distribute_block' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 247 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 248 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 249 | 80 'mpi_distribute_cyclic' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 250 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 251 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 252 | 81 'mpi_distribute_dflt_darg' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 253 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 254 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-1') () 0 () () () 0 0) 255 | 82 'mpi_distribute_none' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 256 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 257 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 258 | 83 'mpi_double' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 259 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 260 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '46') () 0 () () () 0 0) 261 | 84 'mpi_double_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 262 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 263 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '22') () 0 () () () 0 0) 264 | 85 'mpi_double_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 265 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 266 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '49') () 0 () () () 0 0) 267 | 86 'mpi_double_precision' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 268 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 269 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '17') () 0 () () () 0 0) 270 | 87 'mpi_dup_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC 271 | UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 272 | 0 () () 0 () () () 0 0) 273 | 88 'mpi_end' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC DECL 274 | UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () () () 275 | 0 0) 276 | 89 'mpi_err_access' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 277 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 278 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '20') () 0 () () () 0 0) 279 | 90 'mpi_err_amode' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 280 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 281 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '21') () 0 () () () 0 0) 282 | 91 'mpi_err_arg' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 283 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 284 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) 285 | 92 'mpi_err_assert' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 286 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 287 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '22') () 0 () () () 0 0) 288 | 93 'mpi_err_bad_file' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 289 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 290 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '23') () 0 () () () 0 0) 291 | 94 'mpi_err_base' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 292 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 293 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '24') () 0 () () () 0 0) 294 | 95 'mpi_err_buffer' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 295 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 296 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 297 | 96 'mpi_err_comm' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 298 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 299 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0) 300 | 97 'mpi_err_conversion' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 301 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 302 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '25') () 0 () () () 0 0) 303 | 98 'mpi_err_count' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 304 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 305 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 306 | 99 'mpi_err_dims' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 307 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 308 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') () 0 () () () 0 0) 309 | 100 'mpi_err_disp' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 310 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 311 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '26') () 0 () () () 0 0) 312 | 101 'mpi_err_dup_datarep' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 313 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 314 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '27') () 0 () () () 0 0) 315 | 102 'mpi_err_file' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 316 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 317 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '30') () 0 () () () 0 0) 318 | 103 'mpi_err_file_exists' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 319 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 320 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '28') () 0 () () () 0 0) 321 | 104 'mpi_err_file_in_use' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 322 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 323 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '29') () 0 () () () 0 0) 324 | 105 'mpi_err_group' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 325 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 326 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0) 327 | 106 'mpi_err_in_status' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 328 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 329 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '18') () 0 () () () 0 0) 330 | 107 'mpi_err_info' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 331 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 332 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '34') () 0 () () () 0 0) 333 | 108 'mpi_err_info_key' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 334 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 335 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '31') () 0 () () () 0 0) 336 | 109 'mpi_err_info_nokey' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 337 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 338 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '32') () 0 () () () 0 0) 339 | 110 'mpi_err_info_value' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 340 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 341 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '33') () 0 () () () 0 0) 342 | 111 'mpi_err_intern' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 343 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 344 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '17') () 0 () () () 0 0) 345 | 112 'mpi_err_io' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 346 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 347 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '35') () 0 () () () 0 0) 348 | 113 'mpi_err_keyval' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 349 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 350 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '36') () 0 () () () 0 0) 351 | 114 'mpi_err_lastcode' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 352 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 353 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '92') () 0 () () () 0 0) 354 | 115 'mpi_err_locktype' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 355 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 356 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '37') () 0 () () () 0 0) 357 | 116 'mpi_err_name' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 358 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 359 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '38') () 0 () () () 0 0) 360 | 117 'mpi_err_no_mem' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 361 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 362 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '39') () 0 () () () 0 0) 363 | 118 'mpi_err_no_space' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 364 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 365 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '41') () 0 () () () 0 0) 366 | 119 'mpi_err_no_such_file' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 367 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 368 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '42') () 0 () () () 0 0) 369 | 120 'mpi_err_not_same' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 370 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 371 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '40') () 0 () () () 0 0) 372 | 121 'mpi_err_op' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 373 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 374 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0) 375 | 122 'mpi_err_other' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 376 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 377 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '16') () 0 () () () 0 0) 378 | 123 'mpi_err_pending' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 379 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 380 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '19') () 0 () () () 0 0) 381 | 124 'mpi_err_port' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 382 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 383 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '43') () 0 () () () 0 0) 384 | 125 'mpi_err_quota' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 385 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 386 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '44') () 0 () () () 0 0) 387 | 126 'mpi_err_rank' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 388 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 389 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) 390 | 127 'mpi_err_read_only' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 391 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 392 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '45') () 0 () () () 0 0) 393 | 128 'mpi_err_request' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 394 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 395 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0) 396 | 129 'mpi_err_rma_attach' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 397 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 398 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '69') () 0 () () () 0 0) 399 | 130 'mpi_err_rma_conflict' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 400 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 401 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '46') () 0 () () () 0 0) 402 | 131 'mpi_err_rma_flavor' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 403 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 404 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '70') () 0 () () () 0 0) 405 | 132 'mpi_err_rma_range' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 406 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 407 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '68') () 0 () () () 0 0) 408 | 133 'mpi_err_rma_shared' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 409 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 410 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '71') () 0 () () () 0 0) 411 | 134 'mpi_err_rma_sync' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 412 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 413 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '47') () 0 () () () 0 0) 414 | 135 'mpi_err_root' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 415 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 416 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 417 | 136 'mpi_err_service' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 418 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 419 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '48') () 0 () () () 0 0) 420 | 137 'mpi_err_size' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 421 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 422 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '49') () 0 () () () 0 0) 423 | 138 'mpi_err_spawn' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 424 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 425 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '50') () 0 () () () 0 0) 426 | 139 'mpi_err_sysresource' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 427 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 428 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-2') () 0 () () () 0 0) 429 | 140 'mpi_err_tag' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 430 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 431 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 432 | 141 'mpi_err_topology' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 433 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 434 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0) 435 | 142 'mpi_err_truncate' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 436 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 437 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '15') () 0 () () () 0 0) 438 | 143 'mpi_err_type' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 439 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 440 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 441 | 144 'mpi_err_unknown' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 442 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 443 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '14') () 0 () () () 0 0) 444 | 145 'mpi_err_unsupported_datarep' 'm_mpi_my' '' 1 ((PARAMETER 445 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 446 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '51') () 0 () 447 | () () 0 0) 448 | 146 'mpi_err_unsupported_operation' 'm_mpi_my' '' 1 ((PARAMETER 449 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 450 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '52') () 0 () 451 | () () 0 0) 452 | 147 'mpi_err_win' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 453 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 454 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '53') () 0 () () () 0 0) 455 | 5 'mpi_errcodes_ignore' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT 456 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION IN_COMMON) (INTEGER 4 0 0 0 457 | INTEGER ()) 0 0 () (1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 458 | 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1')) 0 () () () 0 0) 459 | 148 'mpi_errhandler_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 460 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 461 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 462 | 149 'mpi_error' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 463 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 464 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 465 | 150 'mpi_errors_are_fatal' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 466 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 467 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 468 | 151 'mpi_errors_return' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 469 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 470 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 471 | 152 'mpi_file_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 472 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 473 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 474 | 153 'mpi_float' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 475 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 476 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '45') () 0 () () () 0 0) 477 | 154 'mpi_float_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 478 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 479 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '48') () 0 () () () 0 0) 480 | 155 'mpi_graph' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 481 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 482 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 483 | 156 'mpi_group_empty' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 484 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 485 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 486 | 157 'mpi_group_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 487 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 488 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 489 | 158 'mpi_host' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 490 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 491 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 492 | 159 'mpi_ident' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 493 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 494 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 495 | 160 'mpi_ierr' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 496 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () 497 | () 0 0) 498 | 6 'mpi_in_place' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 499 | UNKNOWN UNKNOWN 0 0 IN_COMMON) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 500 | () () () 0 0) 501 | 161 'mpi_info_env' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 502 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 503 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 504 | 162 'mpi_info_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 505 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 506 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 507 | 163 'mpi_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 508 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 509 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '39') () 0 () () () 0 0) 510 | 164 'mpi_int16_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 511 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 512 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '60') () 0 () () () 0 0) 513 | 165 'mpi_int32_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 514 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 515 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '62') () 0 () () () 0 0) 516 | 166 'mpi_int64_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 517 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 518 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '64') () 0 () () () 0 0) 519 | 167 'mpi_int8_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 520 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 521 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '58') () 0 () () () 0 0) 522 | 168 'mpi_integer' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 523 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 524 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0) 525 | 169 'mpi_integer1' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 526 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 527 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 528 | 170 'mpi_integer16' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 529 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 530 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') () 0 () () () 0 0) 531 | 171 'mpi_integer2' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 532 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 533 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0) 534 | 172 'mpi_integer4' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 535 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 536 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0) 537 | 173 'mpi_integer8' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 538 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 539 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0) 540 | 174 'mpi_integer_kind' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 541 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 542 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 543 | 175 'mpi_io' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 544 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 545 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 546 | 176 'mpi_keyval_invalid' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 547 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 548 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-1') () 0 () () () 0 0) 549 | 177 'mpi_land' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 550 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 551 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0) 552 | 178 'mpi_lastusedcode' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 553 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 554 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '5') () 0 () () () 0 0) 555 | 179 'mpi_lb' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 556 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 557 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 558 | 180 'mpi_lock_exclusive' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 559 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 560 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 561 | 181 'mpi_lock_shared' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 562 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 563 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 564 | 182 'mpi_logical' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 565 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 566 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) 567 | 183 'mpi_logical1' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 568 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 569 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '29') () 0 () () () 0 0) 570 | 184 'mpi_logical2' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 571 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 572 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '30') () 0 () () () 0 0) 573 | 185 'mpi_logical4' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 574 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 575 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '31') () 0 () () () 0 0) 576 | 186 'mpi_logical8' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 577 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 578 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '32') () 0 () () () 0 0) 579 | 187 'mpi_long' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 580 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 581 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '41') () 0 () () () 0 0) 582 | 188 'mpi_long_double' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 583 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 584 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '47') () 0 () () () 0 0) 585 | 189 'mpi_long_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 586 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 587 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '51') () 0 () () () 0 0) 588 | 190 'mpi_long_long_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 589 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 590 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '43') () 0 () () () 0 0) 591 | 191 'mpi_longdbl_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 592 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 593 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '50') () 0 () () () 0 0) 594 | 192 'mpi_lor' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 595 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 596 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0) 597 | 193 'mpi_lxor' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 598 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 599 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0) 600 | 194 'mpi_max' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 601 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 602 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 603 | 195 'mpi_max_datarep_string' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 604 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 605 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '127') () 0 () () () 0 0) 606 | 196 'mpi_max_error_string' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 607 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 608 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '255') () 0 () () () 0 0) 609 | 197 'mpi_max_info_key' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 610 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 611 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '35') () 0 () () () 0 0) 612 | 198 'mpi_max_info_val' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 613 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 614 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '255') () 0 () () () 0 0) 615 | 199 'mpi_max_library_version_string' 'm_mpi_my' '' 1 ((PARAMETER 616 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 617 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '255') () 0 618 | () () () 0 0) 619 | 200 'mpi_max_object_name' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 620 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 621 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '63') () 0 () () () 0 0) 622 | 201 'mpi_max_port_name' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 623 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 624 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1023') () 0 () () () 0 0) 625 | 202 'mpi_max_processor_name' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 626 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 627 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '255') () 0 () () () 0 0) 628 | 203 'mpi_maxloc' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 629 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 630 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0) 631 | 204 'mpi_message_no_proc' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 632 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 633 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 634 | 205 'mpi_message_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 635 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 636 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 637 | 206 'mpi_min' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 638 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 639 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 640 | 207 'mpi_minloc' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 641 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 642 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '12') () 0 () () () 0 0) 643 | 208 'mpi_mode_append' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 644 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 645 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '128') () 0 () () () 0 0) 646 | 209 'mpi_mode_create' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 647 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 648 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 649 | 210 'mpi_mode_delete_on_close' 'm_mpi_my' '' 1 ((PARAMETER 650 | UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 651 | INTEGER ()) 0 0 () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '16') () 0 () 652 | () () 0 0) 653 | 211 'mpi_mode_excl' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 654 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 655 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '64') () 0 () () () 0 0) 656 | 212 'mpi_mode_nocheck' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 657 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 658 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 659 | 213 'mpi_mode_noprecede' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 660 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 661 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 662 | 214 'mpi_mode_noput' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 663 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 664 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 665 | 215 'mpi_mode_nostore' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 666 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 667 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 668 | 216 'mpi_mode_nosucceed' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 669 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 670 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '16') () 0 () () () 0 0) 671 | 217 'mpi_mode_rdonly' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 672 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 673 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 674 | 218 'mpi_mode_rdwr' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 675 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 676 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 677 | 219 'mpi_mode_sequential' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 678 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 679 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '256') () 0 () () () 0 0) 680 | 220 'mpi_mode_unique_open' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 681 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 682 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '32') () 0 () () () 0 0) 683 | 221 'mpi_mode_wronly' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 684 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 685 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 686 | 222 'mpi_null_copy_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 687 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 688 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 689 | 223 'mpi_null_delete_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 690 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 691 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 692 | 224 'mpi_offset' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 693 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 694 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '67') () 0 () () () 0 0) 695 | 225 'mpi_offset_kind' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 696 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 697 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 698 | 226 'mpi_op_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 699 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 700 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 701 | 227 'mpi_order_c' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 702 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 703 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 704 | 228 'mpi_order_fortran' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 705 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 706 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 707 | 229 'mpi_packed' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 708 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 709 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 710 | 230 'mpi_proc_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 711 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 712 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-2') () 0 () () () 0 0) 713 | 231 'mpi_prod' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 714 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 715 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 716 | 232 'mpi_real' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 717 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 718 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) 719 | 233 'mpi_real16' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 720 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 721 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '16') () 0 () () () 0 0) 722 | 234 'mpi_real2' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 723 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 724 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '28') () 0 () () () 0 0) 725 | 235 'mpi_real4' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 726 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 727 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '14') () 0 () () () 0 0) 728 | 236 'mpi_real8' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 729 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 730 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '15') () 0 () () () 0 0) 731 | 237 'mpi_replace' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 732 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 733 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '13') () 0 () () () 0 0) 734 | 238 'mpi_request_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 735 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 736 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 737 | 239 'mpi_root' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 738 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 739 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-4') () 0 () () () 0 0) 740 | 240 'mpi_seek_cur' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 741 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 742 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '602') () 0 () () () 0 0) 743 | 241 'mpi_seek_end' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 744 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 745 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '604') () 0 () () () 0 0) 746 | 242 'mpi_seek_set' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 747 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 748 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '600') () 0 () () () 0 0) 749 | 243 'mpi_short' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 750 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 751 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '37') () 0 () () () 0 0) 752 | 244 'mpi_short_int' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 753 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 754 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '53') () 0 () () () 0 0) 755 | 245 'mpi_signed_char' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 756 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 757 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '36') () 0 () () () 0 0) 758 | 246 'mpi_similar' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 759 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 760 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 761 | 247 'mpi_source' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 762 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 763 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 764 | 248 'mpi_start' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT MODULE-PROC 765 | DECL UNKNOWN 0 0 SUBROUTINE) (UNKNOWN 0 0 0 0 UNKNOWN ()) 0 0 () () 0 () 766 | () () 0 0) 767 | 249 'mpi_status' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 768 | UNKNOWN IMPLICIT-SAVE 0 0 DIMENSION) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () 769 | (1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT ( 770 | INTEGER 4 0 0 0 INTEGER ()) 0 '6')) 0 () () () 0 0) 771 | 7 'mpi_status_ignore' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT 772 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION IN_COMMON) (INTEGER 4 0 0 0 773 | INTEGER ()) 0 0 () (1 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 774 | 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6')) 0 () () () 0 0) 775 | 250 'mpi_status_size' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 776 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 777 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) 778 | 8 'mpi_statuses_ignore' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT 779 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 DIMENSION IN_COMMON) (INTEGER 4 0 0 0 780 | INTEGER ()) 0 0 () (2 0 EXPLICIT (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 781 | 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') (CONSTANT (INTEGER 782 | 4 0 0 0 INTEGER ()) 0 '1') (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1')) 783 | 0 () () () 0 0) 784 | 251 'mpi_subarrays_supported' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 785 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (LOGICAL 4 0 0 0 LOGICAL ()) 0 0 786 | () (CONSTANT (LOGICAL 4 0 0 0 LOGICAL ()) 0 0) () 0 () () () 0 0) 787 | 252 'mpi_subversion' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 788 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 789 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 790 | 253 'mpi_success' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 791 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 792 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 793 | 254 'mpi_sum' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 794 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 795 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 796 | 255 'mpi_tag' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 797 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 798 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 799 | 256 'mpi_tag_ub' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 800 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 801 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 802 | 257 'mpi_thread_funneled' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 803 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 804 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 805 | 258 'mpi_thread_multiple' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 806 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 807 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 808 | 259 'mpi_thread_serialized' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 809 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 810 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 811 | 260 'mpi_thread_single' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 812 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 813 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 814 | 261 'mpi_type_dup_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 815 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 816 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 817 | 262 'mpi_type_null_copy_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 818 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 819 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 820 | 263 'mpi_type_null_delete_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 821 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 822 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 823 | 264 'mpi_typeclass_complex' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 824 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 825 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 826 | 265 'mpi_typeclass_integer' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 827 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 828 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 829 | 266 'mpi_typeclass_real' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 830 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 831 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 832 | 267 'mpi_ub' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 833 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 834 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 835 | 268 'mpi_uint16_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 836 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 837 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '61') () 0 () () () 0 0) 838 | 269 'mpi_uint32_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 839 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 840 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '63') () 0 () () () 0 0) 841 | 270 'mpi_uint64_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 842 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 843 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '65') () 0 () () () 0 0) 844 | 271 'mpi_uint8_t' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 845 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 846 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '59') () 0 () () () 0 0) 847 | 272 'mpi_undefined' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 848 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 849 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '-32766') () 0 () () () 0 0) 850 | 273 'mpi_unequal' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 851 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 852 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 853 | 274 'mpi_universe_size' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 854 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 855 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '6') () 0 () () () 0 0) 856 | 275 'mpi_unsigned' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 857 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 858 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '40') () 0 () () () 0 0) 859 | 276 'mpi_unsigned_char' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 860 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 861 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '35') () 0 () () () 0 0) 862 | 277 'mpi_unsigned_long' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 863 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 864 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '42') () 0 () () () 0 0) 865 | 278 'mpi_unsigned_long_long' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 866 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 867 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '44') () 0 () () () 0 0) 868 | 279 'mpi_unsigned_short' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 869 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 870 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '38') () 0 () () () 0 0) 871 | 9 'mpi_unweighted' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT 872 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 IN_COMMON) (INTEGER 4 0 0 0 INTEGER ()) 873 | 0 0 () () 0 () () () 0 0) 874 | 280 'mpi_version' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 875 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 876 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 877 | 281 'mpi_wchar' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT UNKNOWN-PROC 878 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () ( 879 | CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '33') () 0 () () () 0 0) 880 | 10 'mpi_weights_empty' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT 881 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 IN_COMMON) (INTEGER 4 0 0 0 INTEGER ()) 882 | 0 0 () () 0 () () () 0 0) 883 | 282 'mpi_win_base' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 884 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 885 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '7') () 0 () () () 0 0) 886 | 283 'mpi_win_create_flavor' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 887 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 888 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0) 889 | 284 'mpi_win_disp_unit' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 890 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 891 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '9') () 0 () () () 0 0) 892 | 285 'mpi_win_dup_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 893 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 894 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 895 | 286 'mpi_win_flavor_allocate' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 896 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 897 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '2') () 0 () () () 0 0) 898 | 287 'mpi_win_flavor_create' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 899 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 900 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 901 | 288 'mpi_win_flavor_dynamic' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 902 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 903 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 904 | 289 'mpi_win_flavor_shared' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 905 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 906 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '4') () 0 () () () 0 0) 907 | 290 'mpi_win_model' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 908 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 909 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '11') () 0 () () () 0 0) 910 | 291 'mpi_win_null' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 911 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 912 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '0') () 0 () () () 0 0) 913 | 292 'mpi_win_null_copy_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 914 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 915 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 916 | 293 'mpi_win_null_delete_fn' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT 917 | UNKNOWN-PROC UNKNOWN UNKNOWN 0 0 EXTERNAL SUBROUTINE) (UNKNOWN 0 0 0 0 918 | UNKNOWN ()) 0 0 () () 0 () () () 0 0) 919 | 294 'mpi_win_size' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 920 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 921 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '8') () 0 () () () 0 0) 922 | 295 'mpi_wtick' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC 923 | UNKNOWN UNKNOWN 0 0 EXTERNAL FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 924 | 0 () () () 0 0) 925 | 296 'mpi_wtime' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC 926 | UNKNOWN UNKNOWN 0 0 EXTERNAL FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 927 | 0 () () () 0 0) 928 | 297 'mpi_wtime_is_global' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 929 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 930 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 931 | 298 'my_comm' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 932 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () 933 | () 0 0) 934 | 299 'next_node' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 935 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () 936 | () 0 0) 937 | 300 'node' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC 938 | UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () 939 | () 0 0) 940 | 301 'np' 'm_mpi_my' '' 1 ((VARIABLE UNKNOWN-INTENT UNKNOWN-PROC UNKNOWN 941 | IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 () () 0 () () () 0 0) 942 | 302 'ompi_major_version' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 943 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 944 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '1') () 0 () () () 0 0) 945 | 303 'ompi_minor_version' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 946 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 947 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '10') () 0 () () () 0 0) 948 | 304 'ompi_release_version' 'm_mpi_my' '' 1 ((PARAMETER UNKNOWN-INTENT 949 | UNKNOWN-PROC UNKNOWN IMPLICIT-SAVE 0 0) (INTEGER 4 0 0 0 INTEGER ()) 0 0 950 | () (CONSTANT (INTEGER 4 0 0 0 INTEGER ()) 0 '3') () 0 () () () 0 0) 951 | 305 'pmpi_wtick' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC 952 | UNKNOWN UNKNOWN 0 0 EXTERNAL FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 953 | 0 () () () 0 0) 954 | 306 'pmpi_wtime' 'm_mpi_my' '' 1 ((PROCEDURE UNKNOWN-INTENT UNKNOWN-PROC 955 | UNKNOWN UNKNOWN 0 0 EXTERNAL FUNCTION) (REAL 8 0 0 0 REAL ()) 0 0 () () 956 | 0 () () () 0 0) 957 | ) 958 | 959 | ('front_node' 0 11 'm_mpi_my' 0 12 'master_node' 0 13 'mpi_2complex' 0 960 | 14 'mpi_2double_complex' 0 15 'mpi_2double_precision' 0 16 'mpi_2int' 0 961 | 17 'mpi_2integer' 0 18 'mpi_2real' 0 19 'mpi_address_kind' 0 20 'mpi_aint' 962 | 0 21 'mpi_any_source' 0 22 'mpi_any_tag' 0 23 'mpi_appnum' 0 24 963 | 'mpi_argv_null' 0 2 'mpi_argvs_null' 0 3 'mpi_async_protects_nonblocking' 964 | 0 25 'mpi_band' 0 26 'mpi_bor' 0 27 'mpi_bottom' 0 4 'mpi_bsend_overhead' 965 | 0 28 'mpi_bxor' 0 29 'mpi_byte' 0 30 'mpi_c_complex' 0 31 966 | 'mpi_c_double_complex' 0 32 'mpi_c_float_complex' 0 33 967 | 'mpi_c_long_double_complex' 0 34 'mpi_cart' 0 35 'mpi_char' 0 36 968 | 'mpi_character' 0 37 'mpi_combiner_contiguous' 0 38 'mpi_combiner_darray' 969 | 0 39 'mpi_combiner_dup' 0 40 'mpi_combiner_f90_complex' 0 41 970 | 'mpi_combiner_f90_integer' 0 42 'mpi_combiner_f90_real' 0 43 971 | 'mpi_combiner_hindexed' 0 44 'mpi_combiner_hindexed_block' 0 45 972 | 'mpi_combiner_hindexed_integer' 0 46 'mpi_combiner_hvector' 0 47 973 | 'mpi_combiner_hvector_integer' 0 48 'mpi_combiner_indexed' 0 49 974 | 'mpi_combiner_indexed_block' 0 50 'mpi_combiner_named' 0 51 975 | 'mpi_combiner_resized' 0 52 'mpi_combiner_struct' 0 53 976 | 'mpi_combiner_struct_integer' 0 54 'mpi_combiner_subarray' 0 55 977 | 'mpi_combiner_vector' 0 56 'mpi_comm_dup_fn' 0 57 'mpi_comm_null' 0 58 978 | 'mpi_comm_null_copy_fn' 0 59 'mpi_comm_null_delete_fn' 0 60 979 | 'mpi_comm_self' 0 61 'mpi_comm_type_shared' 0 62 'mpi_comm_world' 0 63 980 | 'mpi_complex' 0 64 'mpi_complex16' 0 65 'mpi_complex32' 0 66 981 | 'mpi_complex8' 0 67 'mpi_congruent' 0 68 'mpi_conversion_fn_null' 0 69 982 | 'mpi_count' 0 70 'mpi_count_kind' 0 71 'mpi_cxx_bool' 0 72 'mpi_cxx_cplex' 983 | 0 73 'mpi_cxx_dblcplex' 0 74 'mpi_cxx_ldblcplex' 0 75 'mpi_datatype_null' 984 | 0 76 'mpi_displacement_current' 0 77 'mpi_dist_graph' 0 78 985 | 'mpi_distribute_block' 0 79 'mpi_distribute_cyclic' 0 80 986 | 'mpi_distribute_dflt_darg' 0 81 'mpi_distribute_none' 0 82 'mpi_double' 987 | 0 83 'mpi_double_complex' 0 84 'mpi_double_int' 0 85 988 | 'mpi_double_precision' 0 86 'mpi_dup_fn' 0 87 'mpi_end' 0 88 989 | 'mpi_err_access' 0 89 'mpi_err_amode' 0 90 'mpi_err_arg' 0 91 990 | 'mpi_err_assert' 0 92 'mpi_err_bad_file' 0 93 'mpi_err_base' 0 94 991 | 'mpi_err_buffer' 0 95 'mpi_err_comm' 0 96 'mpi_err_conversion' 0 97 992 | 'mpi_err_count' 0 98 'mpi_err_dims' 0 99 'mpi_err_disp' 0 100 993 | 'mpi_err_dup_datarep' 0 101 'mpi_err_file' 0 102 'mpi_err_file_exists' 0 994 | 103 'mpi_err_file_in_use' 0 104 'mpi_err_group' 0 105 'mpi_err_in_status' 995 | 0 106 'mpi_err_info' 0 107 'mpi_err_info_key' 0 108 'mpi_err_info_nokey' 996 | 0 109 'mpi_err_info_value' 0 110 'mpi_err_intern' 0 111 'mpi_err_io' 0 997 | 112 'mpi_err_keyval' 0 113 'mpi_err_lastcode' 0 114 'mpi_err_locktype' 0 998 | 115 'mpi_err_name' 0 116 'mpi_err_no_mem' 0 117 'mpi_err_no_space' 0 118 999 | 'mpi_err_no_such_file' 0 119 'mpi_err_not_same' 0 120 'mpi_err_op' 0 121 1000 | 'mpi_err_other' 0 122 'mpi_err_pending' 0 123 'mpi_err_port' 0 124 1001 | 'mpi_err_quota' 0 125 'mpi_err_rank' 0 126 'mpi_err_read_only' 0 127 1002 | 'mpi_err_request' 0 128 'mpi_err_rma_attach' 0 129 'mpi_err_rma_conflict' 1003 | 0 130 'mpi_err_rma_flavor' 0 131 'mpi_err_rma_range' 0 132 1004 | 'mpi_err_rma_shared' 0 133 'mpi_err_rma_sync' 0 134 'mpi_err_root' 0 135 1005 | 'mpi_err_service' 0 136 'mpi_err_size' 0 137 'mpi_err_spawn' 0 138 1006 | 'mpi_err_sysresource' 0 139 'mpi_err_tag' 0 140 'mpi_err_topology' 0 141 1007 | 'mpi_err_truncate' 0 142 'mpi_err_type' 0 143 'mpi_err_unknown' 0 144 1008 | 'mpi_err_unsupported_datarep' 0 145 'mpi_err_unsupported_operation' 0 1009 | 146 'mpi_err_win' 0 147 'mpi_errcodes_ignore' 0 5 'mpi_errhandler_null' 1010 | 0 148 'mpi_error' 0 149 'mpi_errors_are_fatal' 0 150 'mpi_errors_return' 1011 | 0 151 'mpi_file_null' 0 152 'mpi_float' 0 153 'mpi_float_int' 0 154 1012 | 'mpi_graph' 0 155 'mpi_group_empty' 0 156 'mpi_group_null' 0 157 1013 | 'mpi_host' 0 158 'mpi_ident' 0 159 'mpi_ierr' 0 160 'mpi_in_place' 0 6 1014 | 'mpi_info_env' 0 161 'mpi_info_null' 0 162 'mpi_int' 0 163 'mpi_int16_t' 1015 | 0 164 'mpi_int32_t' 0 165 'mpi_int64_t' 0 166 'mpi_int8_t' 0 167 1016 | 'mpi_integer' 0 168 'mpi_integer1' 0 169 'mpi_integer16' 0 170 1017 | 'mpi_integer2' 0 171 'mpi_integer4' 0 172 'mpi_integer8' 0 173 1018 | 'mpi_integer_kind' 0 174 'mpi_io' 0 175 'mpi_keyval_invalid' 0 176 1019 | 'mpi_land' 0 177 'mpi_lastusedcode' 0 178 'mpi_lb' 0 179 1020 | 'mpi_lock_exclusive' 0 180 'mpi_lock_shared' 0 181 'mpi_logical' 0 182 1021 | 'mpi_logical1' 0 183 'mpi_logical2' 0 184 'mpi_logical4' 0 185 1022 | 'mpi_logical8' 0 186 'mpi_long' 0 187 'mpi_long_double' 0 188 1023 | 'mpi_long_int' 0 189 'mpi_long_long_int' 0 190 'mpi_longdbl_int' 0 191 1024 | 'mpi_lor' 0 192 'mpi_lxor' 0 193 'mpi_max' 0 194 'mpi_max_datarep_string' 1025 | 0 195 'mpi_max_error_string' 0 196 'mpi_max_info_key' 0 197 1026 | 'mpi_max_info_val' 0 198 'mpi_max_library_version_string' 0 199 1027 | 'mpi_max_object_name' 0 200 'mpi_max_port_name' 0 201 1028 | 'mpi_max_processor_name' 0 202 'mpi_maxloc' 0 203 'mpi_message_no_proc' 1029 | 0 204 'mpi_message_null' 0 205 'mpi_min' 0 206 'mpi_minloc' 0 207 1030 | 'mpi_mode_append' 0 208 'mpi_mode_create' 0 209 'mpi_mode_delete_on_close' 1031 | 0 210 'mpi_mode_excl' 0 211 'mpi_mode_nocheck' 0 212 'mpi_mode_noprecede' 1032 | 0 213 'mpi_mode_noput' 0 214 'mpi_mode_nostore' 0 215 'mpi_mode_nosucceed' 1033 | 0 216 'mpi_mode_rdonly' 0 217 'mpi_mode_rdwr' 0 218 'mpi_mode_sequential' 1034 | 0 219 'mpi_mode_unique_open' 0 220 'mpi_mode_wronly' 0 221 1035 | 'mpi_null_copy_fn' 0 222 'mpi_null_delete_fn' 0 223 'mpi_offset' 0 224 1036 | 'mpi_offset_kind' 0 225 'mpi_op_null' 0 226 'mpi_order_c' 0 227 1037 | 'mpi_order_fortran' 0 228 'mpi_packed' 0 229 'mpi_proc_null' 0 230 1038 | 'mpi_prod' 0 231 'mpi_real' 0 232 'mpi_real16' 0 233 'mpi_real2' 0 234 1039 | 'mpi_real4' 0 235 'mpi_real8' 0 236 'mpi_replace' 0 237 'mpi_request_null' 1040 | 0 238 'mpi_root' 0 239 'mpi_seek_cur' 0 240 'mpi_seek_end' 0 241 1041 | 'mpi_seek_set' 0 242 'mpi_short' 0 243 'mpi_short_int' 0 244 1042 | 'mpi_signed_char' 0 245 'mpi_similar' 0 246 'mpi_source' 0 247 'mpi_start' 1043 | 0 248 'mpi_status' 0 249 'mpi_status_ignore' 0 7 'mpi_status_size' 0 250 1044 | 'mpi_statuses_ignore' 0 8 'mpi_subarrays_supported' 0 251 'mpi_subversion' 1045 | 0 252 'mpi_success' 0 253 'mpi_sum' 0 254 'mpi_tag' 0 255 'mpi_tag_ub' 0 1046 | 256 'mpi_thread_funneled' 0 257 'mpi_thread_multiple' 0 258 1047 | 'mpi_thread_serialized' 0 259 'mpi_thread_single' 0 260 'mpi_type_dup_fn' 1048 | 0 261 'mpi_type_null_copy_fn' 0 262 'mpi_type_null_delete_fn' 0 263 1049 | 'mpi_typeclass_complex' 0 264 'mpi_typeclass_integer' 0 265 1050 | 'mpi_typeclass_real' 0 266 'mpi_ub' 0 267 'mpi_uint16_t' 0 268 1051 | 'mpi_uint32_t' 0 269 'mpi_uint64_t' 0 270 'mpi_uint8_t' 0 271 1052 | 'mpi_undefined' 0 272 'mpi_unequal' 0 273 'mpi_universe_size' 0 274 1053 | 'mpi_unsigned' 0 275 'mpi_unsigned_char' 0 276 'mpi_unsigned_long' 0 277 1054 | 'mpi_unsigned_long_long' 0 278 'mpi_unsigned_short' 0 279 'mpi_unweighted' 1055 | 0 9 'mpi_version' 0 280 'mpi_wchar' 0 281 'mpi_weights_empty' 0 10 1056 | 'mpi_win_base' 0 282 'mpi_win_create_flavor' 0 283 'mpi_win_disp_unit' 0 1057 | 284 'mpi_win_dup_fn' 0 285 'mpi_win_flavor_allocate' 0 286 1058 | 'mpi_win_flavor_create' 0 287 'mpi_win_flavor_dynamic' 0 288 1059 | 'mpi_win_flavor_shared' 0 289 'mpi_win_model' 0 290 'mpi_win_null' 0 291 1060 | 'mpi_win_null_copy_fn' 0 292 'mpi_win_null_delete_fn' 0 293 'mpi_win_size' 1061 | 0 294 'mpi_wtick' 0 295 'mpi_wtime' 0 296 'mpi_wtime_is_global' 0 297 1062 | 'my_comm' 0 298 'next_node' 0 299 'node' 0 300 'np' 0 301 1063 | 'ompi_major_version' 0 302 'ompi_minor_version' 0 303 1064 | 'ompi_release_version' 0 304 'pmpi_wtick' 0 305 'pmpi_wtime' 0 306) 1065 | -------------------------------------------------------------------------------- /6_LMAT/m_mpi_my.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT/m_mpi_my.o -------------------------------------------------------------------------------- /6_LMAT/makefile: -------------------------------------------------------------------------------- 1 | new: 2 | mpif90 -c m_mpi_my.f90 3 | mpif90 -c LMAT.f90 4 | mpif90 -c test.f90 5 | mpif90 *.o 6 | mpirun -np 4 ./a.out 7 | 8 | 9 | clean: 10 | rm *.o a.out *.mod 11 | -------------------------------------------------------------------------------- /6_LMAT/test.f90: -------------------------------------------------------------------------------- 1 | program test 2 | use lmat 3 | use m_mpi_my 4 | implicit none 5 | ! include "mpif.h" 6 | !若m_mpi_my中含有include "mpif.h"，就不用再include了，报错 7 | !而且lmat中也不能引 8 | INTEGER :: A(5,5),B(5,5),C(5),D(5) 9 | INTEGER :: M=5,olddisp=4 10 | INTEGER :: Htype 11 | call MPI_start() 12 | 13 | call sublamt(M,MPI_INTEGER,kind(A(1,1)),Htype) 14 | call MPI_TYPE_COMMIT(Htype,mpi_ierr) 15 | A=2 16 | B=0 17 | if(node .eq. 0 ) call MPI_SEND(A,1,Htype,1,99,my_COMM,mpi_ierr) 18 | if(node .eq. 1 ) call MPI_RECV(B,1,Htype,0,99,my_COMM,mpi_status,mpi_ierr) 19 | !if(node < 2) call MPI_SENDRECV(A,1,Htype,1,99,B,1,Htype,0,99,my_COMM,mpi_status,mpi_ierr) 20 | !SENDRECV容易卡住，缓存？？？ 21 | if(node .eq. 1) write(*,*) B(1,:) 22 | if(node .eq. 1) write(*,*) B(2,:) 23 | if(node .eq. 1) write(*,*) B(3,:) 24 | if(node .eq. 1) write(*,*) B(4,:) 25 | if(node .eq. 1) write(*,*) B(5,:) 26 | !call MPI_TYPE_FREE(Htype,mpi_ierr) 27 | 28 | 29 | 30 | !c=1 31 | !d=1 32 | !call MPI_TYPE_INDEXED(5,c,d,MPI_INTEGER,Htype) 33 | !if(node .eq. 0) write(*,*) kind(M) 34 | !MPI_TYPE_INDEXED(count,array_of_blocklengths,array_of_displacemets,oldtype,newtype) 35 | 36 | 37 | 38 | call MPI_END() 39 | 40 | 41 | end program test 42 | -------------------------------------------------------------------------------- /6_LMAT/test.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT/test.o -------------------------------------------------------------------------------- /6_LMAT_对角块/._LMAT.f90: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT_对角块/._LMAT.f90 -------------------------------------------------------------------------------- /6_LMAT_对角块/._m_mpi_my.f90: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT_对角块/._m_mpi_my.f90 -------------------------------------------------------------------------------- /6_LMAT_对角块/._test.f90: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT_对角块/._test.f90 -------------------------------------------------------------------------------- /6_LMAT_对角块/LMAT.f90: -------------------------------------------------------------------------------- 1 | module lmat 2 | use m_mpi_my 3 | implicit none 4 | contains 5 | subroutine sublamt(M,n,OLDTYPE,olddisp,NEWTYPE) 6 | INTEGER :: M,n,OLDTYPE,NEWTYPE !三角矩阵MxM,每个块nxn 7 | INTEGER :: olddisp !OLDTYPE字节长度, 使用kind(A(1,1))获得 8 | INTEGER :: order !第几个nxn 9 | INTEGER,allocatable :: DATALEN(:),BLOCKDISP(:) 10 | INTEGER :: i 11 | !MPI_TYPE_INDEXED(count,array_of_blocklengths,array_of_displacemets,oldtype,newtype) 12 | allocate(BLOCKDISP(M),DATALEN(M)) 13 | DATALEN=n 14 | Do i=1,M !i代表列号 15 | order=(i-1)/n !取整了 第order+1块 16 | write(*,*) "order",order 17 | !DATALEN(i)=M-i 18 | !BLOCKDISP(i)=(i-1)*olddisp 19 | !Fortran要考虑到存储的方式 20 | BLOCKDISP(i)=order*n+(i-1)*M 21 | END DO 22 | call MPI_TYPE_INDEXED(M,DATALEN,BLOCKDISP,OLDTYPE,NEWTYPE,mpi_ierr) 23 | deallocate(BLOCKDISP,DATALEN) 24 | end subroutine 25 | 26 | end module lmat 27 | -------------------------------------------------------------------------------- /6_LMAT_对角块/LMAT.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT_对角块/LMAT.o -------------------------------------------------------------------------------- /6_LMAT_对角块/a.out: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT_对角块/a.out -------------------------------------------------------------------------------- /6_LMAT_对角块/m_mpi_my.f90: -------------------------------------------------------------------------------- 1 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 2 | !!! ___ _ _ _ _ !!! 3 | !!! / __| ___ _ __ _ __ _ _ | |_ __ _ | |_ (_) ___ _ _ __ _ | | !!! 4 | !!! | (__ / _ \ | ' \ | '_ \ | || | | _| / _` | | _| | | / _ \ | ' \ / _` | | | !!! 5 | !!! \___| \___/ |_|_|_| | .__/ \_,_| \__| \__,_| \__| |_| \___/ |_||_| \__,_| |_| !!! 6 | !!! ___ _ |_| _ !!! 7 | !!! | _ \ | |_ _ _ ___ (_) __ ___ !!! 8 | !!! | _/ | ' \ | || | (_-< | | / _| (_-< !!! 9 | !!! |_| |_||_| \_, | /__/ |_| \__| /__/ !!! 10 | !!! _ _ |__/ _ !!! 11 | !!! | || | ___ _ __ ___ __ __ __ ___ _ _ | |__ !!! 12 | !!! | __ | / _ \ | ' \ / -_) \ V V / / _ \ | '_| | / / !!! 13 | !!! |_||_| \___/ |_|_|_| \___| \_/\_/ \___/ |_| |_\_\ !!! 14 | !!! !!! 15 | !!! Author: cndaqiang !!! 16 | !!! ContactMe: https://cndaqiang.github.io !!! 17 | !!! Name: module_mpi !!! 18 | !!! Last-update: 2019-04-05 !!! 19 | !!! Build-time: 2019-04-05 !!! 20 | !!! What it is: mpi headfile : mpi_init mpi_end mpi's everything !!! 21 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 22 | 23 | module m_mpi_my 24 | implicit none 25 | include "mpif.h" 26 | INTEGER :: node, np,mpi_ierr,mpi_status(mpi_status_size),my_COMM 27 | INTEGER :: front_node,next_node,master_node=0 28 | contains 29 | subroutine mpi_start() 30 | call MPI_INIT(mpi_ierr) 31 | call MPI_COMM_DUP(MPI_COMM_WORLD,my_COMM,mpi_ierr) 32 | call MPI_COMM_RANK(my_COMM,node,mpi_ierr) 33 | call MPI_COMM_SIZE(my_COMM,np,mpi_ierr) 34 | 35 | front_node=mod(node-1,np) 36 | next_node=mod(node+1,np) 37 | End subroutine mpi_start 38 | 39 | subroutine mpi_end() 40 | call MPI_FINALIZE(mpi_ierr) 41 | End subroutine mpi_end 42 | 43 | end module m_mpi_my 44 | 45 | -------------------------------------------------------------------------------- /6_LMAT_对角块/m_mpi_my.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT_对角块/m_mpi_my.o -------------------------------------------------------------------------------- /6_LMAT_对角块/makefile: -------------------------------------------------------------------------------- 1 | new: 2 | mpif90 -c m_mpi_my.f90 3 | mpif90 -c LMAT.f90 4 | mpif90 -c test.f90 5 | mpif90 *.o 6 | mpirun -np 4 ./a.out 7 | 8 | 9 | clean: 10 | rm *.o a.out *.mod 11 | -------------------------------------------------------------------------------- /6_LMAT_对角块/test.f90: -------------------------------------------------------------------------------- 1 | program test 2 | use lmat 3 | use m_mpi_my 4 | implicit none 5 | ! include "mpif.h" 6 | !若m_mpi_my中含有include "mpif.h"，就不用再include了，报错 7 | !而且lmat中也不能引 8 | INTEGER :: A(6,6),B(6,6),C(6),D(6) 9 | INTEGER :: M=6 10 | INTEGER :: Htype 11 | call MPI_start() 12 | 13 | call sublamt(M,2,MPI_INTEGER,kind(A(1,1)),Htype) 14 | call MPI_TYPE_COMMIT(Htype,mpi_ierr) 15 | A=0 16 | if(node .eq. 0 ) A=2 17 | B=0 18 | !if(node .eq. 0 ) call MPI_SEND(A,1,Htype,1,99,my_COMM,mpi_ierr) 19 | !if(node .eq. 1 ) call MPI_RECV(B,1,Htype,0,99,my_COMM,mpi_status,mpi_ierr) 20 | !if(node < 2) call MPI_SENDRECV(A,1,Htype,1,99,B,1,Htype,0,99,my_COMM,mpi_status,mpi_ierr) 21 | !SENDRECV容易卡住，缓存？？？ 22 | call MPI_BCAST(A,1,Htype,0,my_COMM,mpi_ierr) 23 | if(node .eq. 3) write(*,*) A(1,:) 24 | if(node .eq. 3) write(*,*) A(2,:) 25 | if(node .eq. 3) write(*,*) A(3,:) 26 | if(node .eq. 3) write(*,*) A(4,:) 27 | if(node .eq. 3) write(*,*) A(5,:) 28 | if(node .eq. 3) write(*,*) A(6,:) 29 | !call MPI_TYPE_FREE(Htype,mpi_ierr) 30 | 31 | 32 | 33 | !c=1 34 | !d=1 35 | !call MPI_TYPE_INDEXED(6,c,d,MPI_INTEGER,Htype) 36 | !if(node .eq. 0) write(*,*) kind(M) 37 | !MPI_TYPE_INDEXED(count,array_of_blocklengths,array_of_displacemets,oldtype,newtype) 38 | 39 | 40 | 41 | call MPI_END() 42 | 43 | 44 | end program test 45 | -------------------------------------------------------------------------------- /6_LMAT_对角块/test.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/6_LMAT_对角块/test.o -------------------------------------------------------------------------------- /7_CANNO/canno.c: -------------------------------------------------------------------------------- 1 | /* 1. form the 2-d processes 2 | * 2. broadcast A in rows 3 | * 3. calculate aXb 4 | * 4. move data B in columns 5 | */ 6 | #include "myhead.h" 7 | 8 | void mulmm( a, lda, b, ldb, c, ldc, m, k, n ) 9 | int m, k, n, lda ,ldb, ldc; 10 | float *a, *b, *c; 11 | { 12 | int i, j, l; 13 | 14 | for(i=0; i= p*p) return; 100 | 101 | inita( a, lda, m, myrow, mycol ); 102 | initb( b, ldb, m, myrow, mycol ); 103 | initc( c, ldc, m ); 104 | 105 | MPI_Type_vector( m, m, ldw, MPI_FLOAT, &matw); 106 | MPI_Type_vector( m, m, ldb, MPI_FLOAT, &matb); 107 | MPI_Type_commit( &matw ); 108 | MPI_Type_commit( &matb ); 109 | 110 | front = ( p+myrow-1)%p; 111 | next = (myrow+1)%p; 112 | 113 | for (i=0; i1 29 | ! 3: 1,1.x+eps 1 0->1 30 | ! 4: 1,2+eps 2 |0->1; 0->2,0->3 31 | !write(*,*) iter 32 | mlen = 1 !有数据的节点数，初始root节点，为1 33 | do i=1,iter 34 | if ( left .le. 0 ) return 35 | des = mod( iam + mlen, np ) !目标0，1，2...mlen->0+mlen,1+mlen,2+mlen...2mlen 36 | src = mod( np + iam - mlen, np ) !源 同理 37 | if( newid .lt. mlen) then !小于mlen，我是源 38 | call mpi_send( b, n, datatype, des, 1, comm, ierr ) 39 | elseif( newid .lt. 2*mlen ) then 40 | call mpi_recv( b, n, datatype, src, 1, comm, status, ierr ) 41 | endif 42 | mlen = 2*mlen !传输一次，meln翻倍 43 | end do 44 | 45 | left = np - mlen !剩下的节点 46 | if ( left .le. 0 ) return 47 | des = mod( iam + mlen, np ) !目标 48 | src = mod( np + iam - mlen, np ) !源 49 | if( newid .lt. left) then !我是源 50 | call mpi_send( b, n, datatype, des, 1, comm, ierr ) 51 | elseif( newid .ge. mlen .and. newid .lt. mlen+left ) then 52 | call mpi_recv( b, n, datatype, src, 1, comm, status, ierr ) 53 | endif 54 | return 55 | 56 | end subroutine mpibcastr 57 | subroutine mpi_start() 58 | call MPI_INIT(mpi_ierr) 59 | call MPI_COMM_DUP(MPI_COMM_WORLD,my_COMM,mpi_ierr) 60 | call MPI_COMM_RANK(my_COMM,node,mpi_ierr) 61 | call MPI_COMM_SIZE(my_COMM,np,mpi_ierr) 62 | 63 | front_node=mod(node-1,np) 64 | next_node=mod(node+1,np) 65 | End subroutine mpi_start 66 | 67 | subroutine mpi_end() 68 | call MPI_FINALIZE(mpi_ierr) 69 | End subroutine mpi_end 70 | 71 | end -------------------------------------------------------------------------------- /7_bcast/makefile: -------------------------------------------------------------------------------- 1 | new: 2 | mpif90 bcast.f90 3 | mpirun -np 4 ./a.out 4 | -------------------------------------------------------------------------------- /7_pi/a.out: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/7_pi/a.out -------------------------------------------------------------------------------- /7_pi/m_mpi_my.f90: -------------------------------------------------------------------------------- 1 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 2 | !!! ___ _ _ _ _ !!! 3 | !!! / __| ___ _ __ _ __ _ _ | |_ __ _ | |_ (_) ___ _ _ __ _ | | !!! 4 | !!! | (__ / _ \ | ' \ | '_ \ | || | | _| / _` | | _| | | / _ \ | ' \ / _` | | | !!! 5 | !!! \___| \___/ |_|_|_| | .__/ \_,_| \__| \__,_| \__| |_| \___/ |_||_| \__,_| |_| !!! 6 | !!! ___ _ |_| _ !!! 7 | !!! | _ \ | |_ _ _ ___ (_) __ ___ !!! 8 | !!! | _/ | ' \ | || | (_-< | | / _| (_-< !!! 9 | !!! |_| |_||_| \_, | /__/ |_| \__| /__/ !!! 10 | !!! _ _ |__/ _ !!! 11 | !!! | || | ___ _ __ ___ __ __ __ ___ _ _ | |__ !!! 12 | !!! | __ | / _ \ | ' \ / -_) \ V V / / _ \ | '_| | / / !!! 13 | !!! |_||_| \___/ |_|_|_| \___| \_/\_/ \___/ |_| |_\_\ !!! 14 | !!! !!! 15 | !!! Author: cndaqiang !!! 16 | !!! ContactMe: https://cndaqiang.github.io !!! 17 | !!! Name: module_mpi !!! 18 | !!! Last-update: 2019-04-05 !!! 19 | !!! Build-time: 2019-04-05 !!! 20 | !!! What it is: mpi headfile : mpi_init mpi_end mpi's everything !!! 21 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 22 | 23 | module m_mpi_my 24 | implicit none 25 | include "mpif.h" 26 | INTEGER :: node, np,mpi_ierr,mpi_status(mpi_status_size),my_COMM 27 | INTEGER :: front_node,next_node,master_node=0 28 | contains 29 | subroutine mpi_start() 30 | call MPI_INIT(mpi_ierr) 31 | call MPI_COMM_DUP(MPI_COMM_WORLD,my_COMM,mpi_ierr) 32 | call MPI_COMM_RANK(my_COMM,node,mpi_ierr) 33 | call MPI_COMM_SIZE(my_COMM,np,mpi_ierr) 34 | 35 | front_node=mod(node-1,np) 36 | next_node=mod(node+1,np) 37 | End subroutine mpi_start 38 | 39 | subroutine mpi_end() 40 | call MPI_FINALIZE(mpi_ierr) 41 | End subroutine mpi_end 42 | 43 | end module m_mpi_my 44 | 45 | -------------------------------------------------------------------------------- /7_pi/makefile: -------------------------------------------------------------------------------- 1 | new: 2 | mpif90 pi.f90 3 | mpirun -np 4 ./a.out 4 | -------------------------------------------------------------------------------- /7_pi/pi.f90: -------------------------------------------------------------------------------- 1 | program pi 2 | implicit none 3 | include "mpif.h" 4 | INTEGER :: node, np,mpi_ierr,mpi_status(mpi_status_size),my_COMM 5 | INTEGER :: front_node,next_node,master_node=0 6 | REAL :: mypi,allpi,h,a=0,b=1,xi,yi 7 | INTEGER :: n,i 8 | !REAL,allocatable :: x 9 | 10 | call mpi_start() 11 | mypi=0 12 | n=100000 13 | h=(b-a)/n 14 | !xi,i=0,1,2,3,...n，共n块，步长h 15 | do i = 1,n-1 16 | if(mod(i,np) .eq. node ) then 17 | xi=a+i*h 18 | call pifun(xi,yi) 19 | mypi=mypi+yi 20 | end if 21 | enddo 22 | call MPI_REDUCE(mypi,allpi,1,MPI_REAL,MPI_SUM,0,my_COMM,mpi_ierr) 23 | if(node .eq. 0) then 24 | mypi=0 25 | call pifun(a,yi) 26 | mypi=mypi+yi 27 | call pifun(b,yi) 28 | mypi=mypi+yi 29 | allpi=(mypi*h/2.0+allpi*h)*4 30 | write(*,*) allpi 31 | endif 32 | call MPI_end() 33 | 34 | 35 | 36 | 37 | 38 | 39 | contains 40 | subroutine pifun(x,y) 41 | REAL :: x,y 42 | y=1.0/(1+x**2) 43 | 44 | end subroutine pifun 45 | subroutine mpi_start() 46 | call MPI_INIT(mpi_ierr) 47 | call MPI_COMM_DUP(MPI_COMM_WORLD,my_COMM,mpi_ierr) 48 | call MPI_COMM_RANK(my_COMM,node,mpi_ierr) 49 | call MPI_COMM_SIZE(my_COMM,np,mpi_ierr) 50 | 51 | front_node=mod(node-1,np) 52 | next_node=mod(node+1,np) 53 | End subroutine mpi_start 54 | 55 | subroutine mpi_end() 56 | call MPI_FINALIZE(mpi_ierr) 57 | End subroutine mpi_end 58 | 59 | end program pi -------------------------------------------------------------------------------- /Final examl/1.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/Final examl/1.jpg -------------------------------------------------------------------------------- /Final examl/2.jpg: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/Final examl/2.jpg -------------------------------------------------------------------------------- /Final examl/t_1/a.out: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/Final examl/t_1/a.out -------------------------------------------------------------------------------- /Final examl/t_1/m_mpi_my.f90: -------------------------------------------------------------------------------- 1 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 2 | !!! ___ _ _ _ _ !!! 3 | !!! / __| ___ _ __ _ __ _ _ | |_ __ _ | |_ (_) ___ _ _ __ _ | | !!! 4 | !!! | (__ / _ \ | ' \ | '_ \ | || | | _| / _` | | _| | | / _ \ | ' \ / _` | | | !!! 5 | !!! \___| \___/ |_|_|_| | .__/ \_,_| \__| \__,_| \__| |_| \___/ |_||_| \__,_| |_| !!! 6 | !!! ___ _ |_| _ !!! 7 | !!! | _ \ | |_ _ _ ___ (_) __ ___ !!! 8 | !!! | _/ | ' \ | || | (_-< | | / _| (_-< !!! 9 | !!! |_| |_||_| \_, | /__/ |_| \__| /__/ !!! 10 | !!! _ _ |__/ _ !!! 11 | !!! | || | ___ _ __ ___ __ __ __ ___ _ _ | |__ !!! 12 | !!! | __ | / _ \ | ' \ / -_) \ V V / / _ \ | '_| | / / !!! 13 | !!! |_||_| \___/ |_|_|_| \___| \_/\_/ \___/ |_| |_\_\ !!! 14 | !!! !!! 15 | !!! Author: cndaqiang !!! 16 | !!! ContactMe: https://cndaqiang.github.io !!! 17 | !!! Name: module_mpi !!! 18 | !!! Last-update: 2019-04-05 !!! 19 | !!! Build-time: 2019-04-05 !!! 20 | !!! What it is: mpi headfile : mpi_init mpi_end mpi's everything !!! 21 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 22 | 23 | module m_mpi_my 24 | implicit none 25 | include "mpif.h" 26 | INTEGER :: node, np,mpi_ierr,mpi_status(mpi_status_size),my_COMM 27 | INTEGER :: front_node,next_node,master_node=0 28 | contains 29 | subroutine mpi_start() 30 | call MPI_INIT(mpi_ierr) 31 | call MPI_COMM_DUP(MPI_COMM_WORLD,my_COMM,mpi_ierr) 32 | call MPI_COMM_RANK(my_COMM,node,mpi_ierr) 33 | call MPI_COMM_SIZE(my_COMM,np,mpi_ierr) 34 | 35 | front_node=mod(node-1,np) 36 | next_node=mod(node+1,np) 37 | End subroutine mpi_start 38 | 39 | subroutine mpi_end() 40 | call MPI_FINALIZE(mpi_ierr) 41 | End subroutine mpi_end 42 | 43 | end module m_mpi_my 44 | 45 | -------------------------------------------------------------------------------- /Final examl/t_1/makefile: -------------------------------------------------------------------------------- 1 | new: 2 | mpif90 pi.f90 3 | mpirun -np 4 ./a.out 4 | -------------------------------------------------------------------------------- /Final examl/t_1/pi.f90: -------------------------------------------------------------------------------- 1 | program pi 2 | implicit none 3 | include "mpif.h" 4 | INTEGER :: node, np,mpi_ierr,mpi_status(mpi_status_size),my_COMM 5 | INTEGER :: front_node,next_node,master_node=0 6 | REAL :: mypi,allpi,h,a=0,b=1,xi,yi 7 | INTEGER :: n,i 8 | !REAL,allocatable :: x 9 | INTEGER :: p,q 10 | INTEGER :: rowcomm,colcomm 11 | INTEGER :: mycol,myrow 12 | 13 | call mpi_start() 14 | 15 | p=3 16 | q=2 17 | call pq(node,np,p,q,mycol,myrow,my_COMM,rowcomm,colcomm) 18 | write(*,*) node , mycol,myrow 19 | call MPI_end() 20 | 21 | 22 | 23 | 24 | 25 | 26 | contains 27 | subroutine mpi_start() 28 | call MPI_INIT(mpi_ierr) 29 | call MPI_COMM_DUP(MPI_COMM_WORLD,my_COMM,mpi_ierr) 30 | call MPI_COMM_RANK(my_COMM,node,mpi_ierr) 31 | call MPI_COMM_SIZE(my_COMM,np,mpi_ierr) 32 | 33 | front_node=mod(node-1,np) 34 | next_node=mod(node+1,np) 35 | End subroutine mpi_start 36 | 37 | subroutine mpi_end() 38 | call MPI_FINALIZE(mpi_ierr) 39 | End subroutine mpi_end 40 | 41 | 42 | subroutine pq(iam,np,p,q,mycol,myrow,allcomm,rowcomm,colcomm) 43 | INTEGER :: iam,np,p,q 44 | INTEGER :: allcomm,rowcomm,colcomm 45 | INTEGER :: mpi_ierr 46 | INTEGER :: mycol,myrow 47 | if(iam .eq. 0) then 48 | if (np .ne. p*q) write(*,*) "p*q < np" 49 | endif 50 | myrow=iam/q 51 | mycol=mod(iam,q) 52 | !row 53 | !write(*,*) node,mycol,myrow 54 | call MPI_COMM_SPLIT(allcomm,myrow,iam,rowcomm,mpi_ierr) 55 | call MPI_COMM_SPLIT(allcomm,mycol,iam,colcomm,mpi_ierr) 56 | 57 | end subroutine pq 58 | end program pi -------------------------------------------------------------------------------- /Final examl/t_2/._LMAT.f90: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/Final examl/t_2/._LMAT.f90 -------------------------------------------------------------------------------- /Final examl/t_2/._m_mpi_my.f90: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/Final examl/t_2/._m_mpi_my.f90 -------------------------------------------------------------------------------- /Final examl/t_2/._test.f90: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/Final examl/t_2/._test.f90 -------------------------------------------------------------------------------- /Final examl/t_2/LMAT.f90: -------------------------------------------------------------------------------- 1 | module lmat 2 | use m_mpi_my 3 | implicit none 4 | contains 5 | subroutine sublamt(N,m,num,OLDTYPE,NEWTYPE) 6 | INTEGER :: N,m,OLDTYPE,NEWTYPE !矩阵NxN,每个块mxm 7 | !INTEGER :: olddisp !OLDTYPE字节长度, 使用kind(A(1,1))获得 8 | INTEGER :: order !第几个nxn 9 | INTEGER,allocatable :: DATALEN(:),BLOCKDISP(:) 10 | INTEGER :: i,num 11 | !MPI_TYPE_INDEXED(count,array_of_blocklengths,array_of_displacemets,oldtype,newtype) 12 | allocate(BLOCKDISP(N),DATALEN(N)) 13 | DATALEN=m 14 | Do i=1,N !i代表列号 15 | order=(i-1)/m !取整了 第order+1块 16 | write(*,*) "order",order 17 | !DATALEN(i)=N-i 18 | !BLOCKDISP(i)=(i-1)*olddisp 19 | !Fortran要考虑到存储的方式 20 | BLOCKDISP(i)=order*M+(i-1)*N 21 | END DO 22 | call MPI_TYPE_INDEXED(num*m,DATALEN,BLOCKDISP,OLDTYPE,NEWTYPE,mpi_ierr) 23 | deallocate(BLOCKDISP,DATALEN) 24 | end subroutine 25 | 26 | end module lmat 27 | -------------------------------------------------------------------------------- /Final examl/t_2/LMAT.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/Final examl/t_2/LMAT.o -------------------------------------------------------------------------------- /Final examl/t_2/a.out: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/Final examl/t_2/a.out -------------------------------------------------------------------------------- /Final examl/t_2/m_mpi_my.f90: -------------------------------------------------------------------------------- 1 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 2 | !!! ___ _ _ _ _ !!! 3 | !!! / __| ___ _ __ _ __ _ _ | |_ __ _ | |_ (_) ___ _ _ __ _ | | !!! 4 | !!! | (__ / _ \ | ' \ | '_ \ | || | | _| / _` | | _| | | / _ \ | ' \ / _` | | | !!! 5 | !!! \___| \___/ |_|_|_| | .__/ \_,_| \__| \__,_| \__| |_| \___/ |_||_| \__,_| |_| !!! 6 | !!! ___ _ |_| _ !!! 7 | !!! | _ \ | |_ _ _ ___ (_) __ ___ !!! 8 | !!! | _/ | ' \ | || | (_-< | | / _| (_-< !!! 9 | !!! |_| |_||_| \_, | /__/ |_| \__| /__/ !!! 10 | !!! _ _ |__/ _ !!! 11 | !!! | || | ___ _ __ ___ __ __ __ ___ _ _ | |__ !!! 12 | !!! | __ | / _ \ | ' \ / -_) \ V V / / _ \ | '_| | / / !!! 13 | !!! |_||_| \___/ |_|_|_| \___| \_/\_/ \___/ |_| |_\_\ !!! 14 | !!! !!! 15 | !!! Author: cndaqiang !!! 16 | !!! ContactMe: https://cndaqiang.github.io !!! 17 | !!! Name: module_mpi !!! 18 | !!! Last-update: 2019-04-05 !!! 19 | !!! Build-time: 2019-04-05 !!! 20 | !!! What it is: mpi headfile : mpi_init mpi_end mpi's everything !!! 21 | !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 22 | 23 | module m_mpi_my 24 | implicit none 25 | include "mpif.h" 26 | INTEGER :: node, np,mpi_ierr,mpi_status(mpi_status_size),my_COMM 27 | INTEGER :: front_node,next_node,master_node=0 28 | contains 29 | subroutine mpi_start() 30 | call MPI_INIT(mpi_ierr) 31 | call MPI_COMM_DUP(MPI_COMM_WORLD,my_COMM,mpi_ierr) 32 | call MPI_COMM_RANK(my_COMM,node,mpi_ierr) 33 | call MPI_COMM_SIZE(my_COMM,np,mpi_ierr) 34 | 35 | front_node=mod(node-1,np) 36 | next_node=mod(node+1,np) 37 | End subroutine mpi_start 38 | 39 | subroutine mpi_end() 40 | call MPI_FINALIZE(mpi_ierr) 41 | End subroutine mpi_end 42 | 43 | end module m_mpi_my 44 | 45 | -------------------------------------------------------------------------------- /Final examl/t_2/m_mpi_my.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/Final examl/t_2/m_mpi_my.o -------------------------------------------------------------------------------- /Final examl/t_2/makefile: -------------------------------------------------------------------------------- 1 | new: 2 | mpif90 -c m_mpi_my.f90 3 | mpif90 -c LMAT.f90 4 | mpif90 -c test.f90 5 | mpif90 *.o 6 | mpirun -np 4 ./a.out 7 | 8 | 9 | clean: 10 | rm *.o a.out *.mod 11 | -------------------------------------------------------------------------------- /Final examl/t_2/test.f90: -------------------------------------------------------------------------------- 1 | program test 2 | use lmat 3 | use m_mpi_my 4 | implicit none 5 | ! include "mpif.h" 6 | !若m_mpi_my中含有include "mpif.h"，就不用再include了，报错 7 | !而且lmat中也不能引 8 | REAL :: A(6,6),B(6,6),C(6),D(6) 9 | INTEGER :: M=6 10 | INTEGER :: Htype 11 | call MPI_start() 12 | 13 | call sublamt(M,2,2,MPI_REAL,Htype) 14 | call MPI_TYPE_COMMIT(Htype,mpi_ierr) 15 | A=0 16 | if(node .eq. 0 ) A=2 17 | B=0 18 | !if(node .eq. 0 ) call MPI_SEND(A,1,Htype,1,99,my_COMM,mpi_ierr) 19 | !if(node .eq. 1 ) call MPI_RECV(B,1,Htype,0,99,my_COMM,mpi_status,mpi_ierr) 20 | !if(node < 2) call MPI_SENDRECV(A,1,Htype,1,99,B,1,Htype,0,99,my_COMM,mpi_status,mpi_ierr) 21 | !SENDRECV容易卡住，缓存？？？ 22 | call MPI_BCAST(A,1,Htype,0,my_COMM,mpi_ierr) 23 | if(node .eq. 3) write(*,*) A(1,:) 24 | if(node .eq. 3) write(*,*) A(2,:) 25 | if(node .eq. 3) write(*,*) A(3,:) 26 | if(node .eq. 3) write(*,*) A(4,:) 27 | if(node .eq. 3) write(*,*) A(5,:) 28 | if(node .eq. 3) write(*,*) A(6,:) 29 | !call MPI_TYPE_FREE(Htype,mpi_ierr) 30 | 31 | 32 | 33 | !c=1 34 | !d=1 35 | !call MPI_TYPE_INDEXED(6,c,d,MPI_INTEGER,Htype) 36 | !if(node .eq. 0) write(*,*) kind(M) 37 | !MPI_TYPE_INDEXED(count,array_of_blocklengths,array_of_displacemets,oldtype,newtype) 38 | 39 | 40 | 41 | call MPI_END() 42 | 43 | 44 | end program test 45 | -------------------------------------------------------------------------------- /Final examl/t_2/test.o: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/Final examl/t_2/test.o -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # mpi-course 2 | 3 | Fortran:[Fortran 学习笔记](https://cndaqiang.github.io/2019/01/30/Fortran-learn/)
4 | MPI:[MPI编程入门(Fortran)](https://cndaqiang.github.io/2019/02/27/mpi-fortran/#mpi%E8%87%AA%E5%AE%9A%E4%B9%89%E6%95%B0%E6%8D%AE%E7%B1%BB%E5%9E%8B) 5 | 6 | -------------------------------------------------------------------------------- /homework.docx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/homework.docx -------------------------------------------------------------------------------- /homework.md: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/homework.md -------------------------------------------------------------------------------- /suanfa/matrx_fen_kuai/mpi_matrix_ChengFa.f90: -------------------------------------------------------------------------------- 1 | program cheng 2 | implicit none 3 | include 'mpif.h' 4 | real :: A(9,2),B(2,9),C(9,9) 5 | real,allocatable :: Bn(:,:),Cn(:,:) 6 | integer :: node,np,ierr,status(mpi_status_size) 7 | integer :: source_node 8 | integer :: i,j,DM,DK,DP,p 9 | integer :: howp,startp,endp 10 | 11 | call MPI_INIT(ierr) 12 | call MPI_COMM_RANK(MPI_COMM_WORLD,node,ierr) 13 | call MPI_COMM_SIZE(MPI_COMM_WORLD,np,ierr) 14 | 15 | data((A(i,j),i=1,9),j=1,2) /1,2,3,4,5,6,7,8,9,1,2,3,4,5,6,7,8,9/ 16 | data((B(i,j),i=1,2),j=1,9) /1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9/ 17 | DM=size(A,dim=1) 18 | DK=size(A,dim=2) 19 | DP=size(B,dim=2) 20 | 21 | !-------Bn------- 22 | p=DP/np 23 | howp=mod(DP,np) 24 | if(node>=howp) then 25 | p=p 26 | startp=(p+1)*howp+p*(node-howp)+1 27 | else 28 | p=p+1 29 | startp=p*node+1 30 | end if 31 | allocate(Bn(DK,p)) 32 | endp=startp+p-1 33 | Bn=B(:,startp:endp) 34 | !-----End Bn------------------------ 35 | !-----Cn 36 | allocate(Cn(DM,p)) 37 | !-----End Cn 38 | call ab(A,Bn,Cn) 39 | deallocate(Bn) 40 | if(node.eq.0) then 41 | !write(*,*) Cn(:,p) 42 | C(:,1:p)=Cn 43 | DO i=1,np-1 44 | source_node=node+i 45 | p=DP/np 46 | if(source_node>=howp) then 47 | p=p 48 | startp=(p+1)*howp+p*(source_node-howp)+1 49 | else 50 | p=p+1 51 | startp=p*source_node+1 52 | end if 53 | 54 | endp=startp+p-1 55 | 56 | 57 | call MPI_RECV(C(:,startp:endp),p*DM,MPI_REAL,source_node,99,MPI_COMM_WORLD,status,ierr) 58 | 59 | ! write(*,*) "---------------------" 60 | end DO 61 | DO i=1,DM 62 | write(*,*) C(i,:) 63 | end DO 64 | 65 | else 66 | call MPI_SEND(Cn,p*DM,MPI_REAL,0,99,MPI_COMM_WORLD,ierr) 67 | end if 68 | 69 | deallocate(Cn) 70 | 71 | 72 | 73 | call MPI_FINALIZE(ierr) 74 | contains 75 | subroutine ab(A,B,C) 76 | implicit none 77 | integer :: m,k,p 78 | integer :: mn,kn,pn 79 | real :: A(:,:),B(:,:),C(:,:) 80 | m=size(A,dim=1) 81 | k=size(A,dim=2) 82 | p=size(B,dim=2) 83 | C=0 84 | DO pn=1,p 85 | DO mn=1,m 86 | DO kn=1,k 87 | C(mn,pn)=C(mn,pn)+A(mn,kn)*B(kn,pn) 88 | END DO 89 | END DO 90 | END DO 91 | end subroutine 92 | 93 | 94 | 95 | end program -------------------------------------------------------------------------------- /test/._mod.f90: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/test/._mod.f90 -------------------------------------------------------------------------------- /test/a.out: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/cndaqiang/mpi-course/71771270a24885b03eb02dc40eaefd91b2bc1529/test/a.out -------------------------------------------------------------------------------- /test/mod.f90: -------------------------------------------------------------------------------- 1 | program mymod 2 | implicit none 3 | write(*,*) mod(3,5) 4 | 5 | end program mymod 6 | --------------------------------------------------------------------------------