1 SUBROUTINE ARCLSS(A) 2C 3C ----CLASSIFIES ASPECT RATIO 4C 5 DIMENSION ROUTID(2) 6 DIMENSION Q3417B(3) 7 DIMENSION X(11),Y(11),C(6),A(195) 8 DATA ROUTID /4HARCL,4HSS / 9 DATA Q3417B /4H4.1.,4H3.4-,4H24B / 10 DATA X /0.,.1,.2,.3,.4,.5,.6,.7,.8,.9,1./ 11 DATA Y /0.,.225,.47,.496,.43,.32,.21,.125,.075,.0475,.0/ 12 DATA IN /0/ 13 DATA NP /11/ 14C 15C ----FIGURE 4.1.3.4-24B 16C 17 CALL TBFUNX(A(27),A(123),DYDX,NP,X,Y,C,IN,MI,NG, 18 1 0,0,Q3417B,3,ROUTID) 19 CALL ANGLES(1,A(34)) 20 A(124)=(A(123)+1.)*A(37) 21 A(125)=A(128)/A(124) 22 RETURN 23 END 24