[u/mrichter/AliRoot.git] / PDF / spdf / gsxcor.F

#include "pdf/pilot.h"
      SUBROUTINE GSXCOR(Y,NP)
C
#include "pdf/impdp.inc"
#include "pdf/expdp.inc"
     +       Y(NP)
      N=1
      DO 10 IX=1,20,2
         Y(N)=    (IX)/2000.0D0
      N=N+1
   10 CONTINUE
      DO 20 IX=30,200,10
         Y(N)=    (IX)/2000.0D0
           N=N+1
   20 CONTINUE
      DO 30 IX=240,1600,40
         Y(N)=    (IX)/2000.0D0
      N=N+1
   30 CONTINUE
      DO 40 IX=1625,1980,25
         Y(N)=    (IX)/2000.0D0
      N=N+1
   40 CONTINUE
      RETURN
      END
Commit	Line	Data
21886bb6	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