- if (itype(i).ne.10) then
-!d print *,'i=',i,' itype=',itype(i),' theta=',theta(i+1)
- call gen_side(itype(i),theta(i+1),alph(i),omeg(i),fail)
+ if (itype(i,1).ne.10) then
+!d print *,'i=',i,' itype=',itype(i,1),' theta=',theta(i+1)
+ call gen_side(itype(i,1),theta(i+1),alph(i),omeg(i),fail)