用PROC定义带参数传递的子程序，不能定义数组，且定义的变量名称不能和主程序的变量名重复，作如下修改试试

DEF REAL VECT[3] ;

DEF REAL DiamT=2.0000

DEF REAL M_DATA[15]

；EXTERN OMMPT(VAR REAL,REAL, REAL)；这处不能用，我没有用过，不知道为什么。

VECT[0]=SET(0,0,1)

M_DATA[0]=SET(2.6800,27.4994,-1.0000,-1.0000,0.0000,0.0000,0,0,0,0,0,0,0,0,0)

；OMMPT(M_DATA,VECT,DiamT)；这处参数传递必须要确定传递数组的那个参数比如第1个传递27.4994，第2个传递1。就改成下面

OMMPT(M_DATA[1],VECT[2],DiamT)

;PROC OMMPT(VAR REAL _DATA[],REAL VECT[], REAL _DIAT) SAVE;改为

PROC OMMPT(VAR REAL _DATA,REAL _VECT, REAL _DIAT) SAVE;VECT和主程序数组同名需修改下