COMMON N,L,NC(5),M,GE,XNU,LEC,IMP,KR,KT,DENS,RS,COEF,
& TW1,TW2,RI1,RI2,KMET
DIMENSION CX(1),CY(1),X(1),Y(1),KODE(I),FI(1)
错误为1>C:\vf -1\1.for(170): error #6219: This variable, used in a specification expression, must be a dummy argument, a COMMON block object, or an object accessible through host or use association [I]