DO 10 I1=1,MK
DO 10 I2=1,MK
DO 10 I3=1,MK
DO 10 I4=1,MK
DO 10 I5=1,MK
DO 10 I6=1,MK
DO 10 I7=1,MK
DO 500 I8=1,M
IF ((I8.EQ.MP).OR.(I8.EQ.MQ)) GOTO 500
DO 900 I9=1,MQ
IF (I9.EQ.MP) GOTO 500
DO 800 I10=1,MK
DO 700 IN=2,MP
Z(K)=0.0
DO 600 IX=5,105,5
.........