setbotf.f.in

来自「刚才是说明 现在是安装程序在 LINUX环境下进行编程的MPICH安装文件」· IN 代码 · 共 10 行

	subroutine mpirinitf( )
	integer mpi_status_size
	parameter (mpi_status_size=@MPI_STATUS_SIZE@)
	integer a, b(mpi_status_size), c(mpi_status_size,1)
	common /MPIPRIV/ a, b, c
	save /MPIPRIV/
	call mpirinitc( a, b, c )
	return
	end