编译出现以下错误提示，百度多次无果，特来求助
‘
error： array specification at（1） has more than 7 dimensions

求各位老师指点

我是定义了一个全局变量common文件，然后各个子程序中include这个文件，已达到公用的目的。
我对common定义不很了解，望进一步指点
定义的common见附件
报错的地方为红色    common /kiva9/ aaa9(1),pmplict,ports,presin,presout,prl,prlrpr,
     1 pulse,ranb,rans,rbeta,rc,rdinj(100),rdt,reedin,reedout,rerf(21),
     2 rerf2(21),reta0,reyte,rgamamb,rgamin,rgas,rhop,rnaxisj,rnfluxs,
     3 roamb,roin0,rpgs2,rpm,rpr,rpre,rprq,rps,rsc,rsclmx,sclamb,
     4 scli(nregmx),sclmx,sector,sector2d,sector3d,sgsl,sintxy(lnoz),
     5 sintxz(lnoz),sixth,smr(lnoz),snapflg,snapper,snsect,sortflg,
     6 solid,squish,stroke,swipro,swirl,t,tchem,tcrit,tcut,tcute,
     7 tcylwl,tdinj(linj),tempi(nregmx),tevap,tfilm,tfmass(10,lvel),thead,third,
     8 three,thsect,tiltxy(lnoz),tiltxz(lnoz),time,timetotal,timlmt,
     9 tkeamb,tkei(nregmx),tkelow,tkesw,tlimd,tm2inj(linj),tnparc(linj),tpi,
     x tpistn,trbchem,tspmas,tstart,turb,turbsw,twfilm,twfin,twlvth,two,
     1 twothd,t1ign,t1inj(linj),t2ign,t2inj(linj),u0,u1,velin,velinj(10,lvel),
     2 visrat,wheat,xignit,xignl(2),[color=FF0000]xignr(2),xinj(lnoz),x0,ychoi,[/color]
     3 yignd(2),yignf(2),yinj(lnoz),y0,zdbott,zdtop,zero,zhead,zignb(2),
     4 zignt(2),zinj(lnoz),zmid,zpbot,zptopt,zzz9



[size=4][color=FF0000]还有第二个问题
程序在运行中出现run aborting ，无其他错误提示，运算提前终止，这是怎么回事，如何解决呢[/color][/size]