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

#include "pdf/pilot.h"
      SUBROUTINE GS2XCOR(Y,NP)
      IMPLICIT REAL*8(A-H,O-Z)
      DIMENSION Y(NP)
      N=1
      DO 10 IX=1,20,2
         Y(N)=DBLE(IX)/2000.0D0
      N=N+1
   10 CONTINUE
      DO 20 IX=30,200,10
         Y(N)=DBLE(IX)/2000.0D0
      N=N+1
   20 CONTINUE
      DO 30 IX=240,1600,40
         Y(N)=REAL(IX)/2000.0D0
      N=N+1
   30 CONTINUE
      DO 40 IX=1625,1980,25
         Y(N)=REAL(IX)/2000.0D0
      N=N+1
   40 CONTINUE
      RETURN
      END
Commit	Line	Data
fe4da5cc	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