023a3ab4bf58de3bf906cc77dd14ee51d294050f
[pdp8.git] / sw / rescue / lab8e_goettingen / disk2_11 / rkb / paroff / haecom.ft
1 C -+-+-+-+-+ \ e H A E C O M . F T \ e -+-+-+-+-+
2 C
3 C COMPUTES THE FFT FOR THE DATA LOCATED IN FILE 6 OR 7
4 C
5 SUBROUTINE COMPUT
6 INCLUDE HAEBUF.FI
7 INCLUDE HAEGSA.FI
8 INCLUDE HAEPTI.FI
9 INCLUDE HABRK.FI
10 INCLUDE HAETTY.FI
11 C
12 \f INTEGER TEMP,CPUTIM
13 C
14 IF (SAMCNT.EQ.0) RETURN @ THERE IS NOTHING TO DO
15 CALL PRPFFT @ PREP THE FFT, READ BEGIN, ENDS, SPAN ...
16 IF BREAK(11) RETURN @ USER GOT RID OF PROGRAM
17 CPUTIM=TIME(CPUTIM) @ WE WANT TO GET THE COMPUTING TIME
18 CALL DOFFT
19 C
20 CPUTIM=TIME(TEMP)-CPUTIM
21 WRITE (TTO,1) CPUTIM
22 RETURN
23 1 FORMAT (' RECHENZEIT:',I6,' SEK.')
24 END
25 \1a