if n1[9]>1.and.n1[9]<5
n11=n11+n6[2]
else
if n1[9]=1
n11=n11+n6[1]
else
n11=n11+n6[3]
endif
endif
endif
if n1[11]+n1[12]+n1[10]>0
if n1[10]>0
n11=n11+n2[n1[10]]
endif
do case
case n1[11]=0
if n1[12]>0
n11=n11+n3[n1[12]]
endif
case n1[11]=1
if n1[12]=0
n11=n11+n5[n1[11]]
else
n11=n11+n4[n1[12]]
endif
case n1[11]>1
n11=n11+n5[n1[11]]
if n1[12]>0
n11=n11+n3[n1[12]]
endif
endcase
endif
n11=n11+nk
RETURN n11