]>
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 |