CTITLES1SCGN -- GENERATE SIN/COS TABLE                                  00000100
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
CA    AUTHOR                 H. HOOGSTRAAT                              00000200
CA    DESIGNER               H. HOOGSTRAAT                              00000300
CA    LANGUAGE               FORTRAN                                    00000400
CA    SYSTEM                 IBM AND CRAY                               00000500
CA    WRITTEN                                                           00000600
C     REVISED   01-07-85 BY ESN.  FOR CRAY COMPATABILITY.               00000700
CA                                                                      00000800
CA                                                                      00000900
CA    CALL S1SCGN                                                       00001000
CA                                                                      00001100
CA                                                                      00001200
CA    GENERATE A SIN/COSINE TABLE FOR THE FOURIER TRANSFORM             00001300
CA    S1FFT. MAX FOR 2048 POINTS.                                       00001400
CA    THE TABLE GOES IN NAMED COMMON /SCTAB/.                           00001500
CA                                                                      00001600
CA    USE S1SCG2 FOR S1FFT2, THE UNLIMITED TRANSFORM.                   00001700
CA                                                                      00001800
C                                                                       00001900
C        ======================================================         00002000
C               *                PROGRAM DEVELOPED BY                   00002100
C             * H *       HOOGSTRAAT PROGRAMMING SERVICES LTD.          00002200
C           * P   S *            BOX 20, SITE 7, SS #1                  00002300
C         * * * * * * *   CALGARY, ALTA.  CANADA   PH 288-8088          00002400
C        ======================================================         00002500
C                                                                       00002600
         SUBROUTINE S1SCGN                                              00002700
C                                                                       00002800
         DIMENSION TAB(513)                                             00002900
         COMMON / SCTAB / TAB                                           00003000
         DO 10 I = 1, 513                                               00003100
         ANG = ( I-1) * 6.283185307 / 2048.                             00003200
10       TAB(I) = SIN(ANG)                                              00003300
         TAB(1)    = 0.                                                 00003400
         TAB(513)  = 1.                                                 00003500
         RETURN                                                         00003600
         END                                                            00003700