PDF/spdf/gs2xcor.F

   1 #include "pdf/pilot.h"
   2       SUBROUTINE GS2XCOR(Y,NP)
   3       IMPLICIT REAL*8(A-H,O-Z)
   4       DIMENSION Y(NP)
   5       N=1
   6       DO 10 IX=1,20,2
   7          Y(N)=DBLE(IX)/2000.0D0
   8       N=N+1
   9    10 CONTINUE
  10       DO 20 IX=30,200,10
  11          Y(N)=DBLE(IX)/2000.0D0
  12       N=N+1
  13    20 CONTINUE
  14       DO 30 IX=240,1600,40
  15          Y(N)=REAL(IX)/2000.0D0
  16       N=N+1
  17    30 CONTINUE
  18       DO 40 IX=1625,1980,25
  19          Y(N)=REAL(IX)/2000.0D0
  20       N=N+1
  21    40 CONTINUE
  22       RETURN
  23       END