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