setbotf.f.in

刚才是说明 现在是安装程序在 LINUX环境下进行编程的MPICH安装文件

	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