PDF/spdf/gsxcor.F

   1 #include "pdf/pilot.h"
   2       SUBROUTINE GSXCOR(Y,NP)
   3 C
   4 #include "pdf/impdp.inc"
   5 #include "pdf/expdp.inc"
   6      +       Y(NP)
   7       N=1
   8       DO 10 IX=1,20,2
   9          Y(N)=    (IX)/2000.0D0
  10       N=N+1
  11    10 CONTINUE
  12       DO 20 IX=30,200,10
  13          Y(N)=    (IX)/2000.0D0
  14            N=N+1
  15    20 CONTINUE
  16       DO 30 IX=240,1600,40
  17          Y(N)=    (IX)/2000.0D0
  18       N=N+1
  19    30 CONTINUE
  20       DO 40 IX=1625,1980,25
  21          Y(N)=    (IX)/2000.0D0
  22       N=N+1
  23    40 CONTINUE
  24       RETURN
  25       END