1 DIMENSION ISHLDF(3,2,MXAQN,MXSHEL) 2 DIMENSION ICMPDF(3,2,MXAQN,MXSHEL) 3 COMMON/SPOTAB/ISHLDF,ICMPDF,KMAX1 4