PDF/spdf/gsxcor.F

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