楼主的问题我解决了,其原因是cmlutil.src中有一个小错误
程序的最后一段(如下的***处少了 FCT:,只要把"***"换成"FCT:"问题就解决了)
retp(grdd);
***
pop t1;
if LLoutput == 2;
locate 2,1;
printdos " Function";
endif;
z = f(t1,lfct,Lcmlgdmd,Lcmlgdprc,Lcmlhsprc, LLoutput,Lcmllag,dataset,
vindx,row,Lcmlnobs,numRows,Lcmlgrdh,Lcmlusrgd,Lcmlusrhs,wgts,
_cml_HessPD);
if LLoutput == 2;
scroll w;
endif;
if scalmiss(z) or z == __INFp or z == __INFn or z == __INDEFn or z ==
__INDEFp;
retp(error(3));
endif;
return(z);
endp;