CTITLESAAVOPF - CALCULATE THE SIN FUNCTION                              00010001
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA                                                                      00020000
CA    AUTHOR                                                            00030000
CA    LANGUAGE                    FORTRAN IV                            00040000
CA    COMPUTER                    IBM                                   00050000
C     REVISED                                                           00060000
C     REVISED      09-10-89 JJC - CHANGED PROCESS NAME TO AVOP.         00061001
C                                                                       00070000
CA    PURPOSE - CALCULATE THE SIN FUNCTION FROM DEGREES                 00080001
CA                                                                      00090000
CA                                                                      00100000
CA                                                                      00110000
CA    CALL       SAAVOPF(K,X)                                           00120001
CA                                                                      00130000
CA    IN   K     ORDER OF FUNCTION                                      00140000
CA    IN   X     ANGLE IN DEGREES                                       00150000
C                                                                       00160000
      REAL FUNCTION SAAVOPF(K,X)                                        00170001
      IMPLICIT INTEGER (A-Z)                                            00180000
C                                                                       00190000
      REAL    PT                                                        00200000
      REAL    X                                                         00210000
      REAL    XX                                                        00220000
C                                                                       00230000
C     PT  IS CONVERSION FACTOR FROM DEGREES TO RADIANS.                 00240000
C                                                                       00250000
      DATA PT/0.0174533/                                                00260000
C                                                                       00270000
      I = K*2-2                                                         00280000
      XX = X*PT                                                         00290000
      XX= SIN(XX)                                                       00300000
      SAAVOPF = XX**I                                                   00310001
      IF (K .EQ. 3 ) SAAVOPF = XX**4/(1.0-XX*XX)                        00320001
      RETURN                                                            00330000
      END                                                               00340000