else
n11=n11+n4[n1[3]]
endif
case n1[2]>1
n11=n11+n5[n1[2]]
if n1[3]>0
n11=n11+n3[n1[3]]
endif
endcase
if n1[3]>1.and.n1[3]<5
n11=n11+n8[2]
else
if n1[3]=1
n11=n11+n8[1]
else
n11=n11+n8[3]
endif
endif
endif
if n1[4]+n1[5]+n1[6]>0
if n1[4]>0
n11=n11+n2[n1[4]]
endif
do case
case n1[5]=0
if n1[6]>0
n11=n11+n3[n1[6]]
endif
case n1[5]=1
if n1[6]=0
n11=n11+n5[n1[5]]
else
n11=n11+n4[n1[6]]
endif
case n1[5]>1
n11=n11+n5[n1[5]]
if n1[6]>0
n11=n11+n3[n1[6]]