testproc.for

vc并行接口通讯程序,

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