call.for

vc并行接口通讯程序,

	SUBROUTINE Fmax(VALPARM)
 	   !DEC $ ATTRIBUTES C :: Fmax
	   !DEC $ ATTRIBUTES VALUE :: VALPARM
	INTEGER VALPARM
	INTEGER B     
	B=VALPARM
	PRINT *,B
	END