projects / pdp8.git / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
A large commit.
[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / haeftp.ft
... / ...
CommitLineData
1C -+-+-+-+-+ \ e H A E F T P \ e -+-+-+-+-+\r
2C\r
3C\r
4 REAL FUNCTION FTPOWR (X,INCR)\r
5C\r
6C COMPUTES FOR INCR/2+1 POINTS THE POWER SPECTRUM\r
7C\r
8C FTPOWR RETURNS THE MINIMUM OF THE SPECTRUM AND THE POWER\r
9C SPECTRUM IN X\r
10C\r
11 INTEGER INCR\r
12 REAL X(INCR)\r
13C\r
14 REAL XMINI\r
15 INTEGER I,I1,I2\r
16C\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
2310 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
My complete PDP-8 universe