CTITLESAAVOPG - REAL FUNCTION USED                                      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                                                                      00090000
CA                                                                      00100000
CA                                                                      00110000
CA    CALL       SAAVOPG(K,X)                                           00120001
CA                                                                      00130000
CA    IN   K     ORDER OF FUNCTION                                      00140000
CA    IN   X     ANGLE IN DEGREES                                       00150000
C                                                                       00160000
      REAL FUNCTION SAAVOPG(K,X)                                        00170001
C                                                                       00171001
      IMPLICIT INTEGER (A-Z)                                            00180000
C                                                                       00190000
C     PT  IS CONVERSION FACTOR FROM DEGREES TO RADIANS.                 00200000
C                                                                       00210000
      REAL    PT                                                        00220000
      REAL    X                                                         00230000
C                                                                       00240000
      DATA PT/0.0174533/                                                00250000
C                                                                       00260000
      SAAVOPG = (X*PT)**(K-1)                                           00270001
      RETURN                                                            00280000
      END                                                               00290000