projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E F T P \ e -+-+-+-+-+\r |
| 2 | C\r | |
| 3 | C\r | |
| 4 | REAL FUNCTION FTPOWR (X,INCR)\r | |
| 5 | C\r | |
| 6 | C COMPUTES FOR INCR/2+1 POINTS THE POWER SPECTRUM\r | |
| 7 | C\r | |
| 8 | C FTPOWR RETURNS THE MINIMUM OF THE SPECTRUM AND THE POWER\r | |
| 9 | C SPECTRUM IN X\r | |
| 10 | C\r | |
| 11 | INTEGER INCR\r | |
| 12 | REAL X(INCR)\r | |
| 13 | C\r | |
| 14 | REAL XMINI\r | |
| 15 | INTEGER I,I1,I2\r | |
| 16 | C\r | |
| 17 | XMINI=1.E11\r | |
| 18 | DO 10 I=1,INCR/2+1,1\r | |
| 19 | I2=I*2\r | |
| 20 | I1=I2-1\r | |
| 21 | X(I)=X(I1)*X(I1)+X(I2)*X(I2) \r | |
| 22 | XMINI=AMIN1(XMINI,X(I)) \r | |
| 23 | 10 CONTINUE\r | |
| 24 | FTPOWR=XMINI\r | |
| 25 | RETURN\r | |
| 26 | END\r | |
| 27 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |