projects / pdp8.git / blame
| Commit | Line | Data |
|---|---|---|
| 81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E C O M . F T \ e -+-+-+-+-+\r |
| 2 | C\r | |
| 3 | C COMPUTES THE FFT FOR THE DATA LOCATED IN FILE 6 OR 7\r | |
| 4 | C\r | |
| 5 | SUBROUTINE COMPUT\r | |
| 6 | INCLUDE HAEBUF.FI\r | |
| 7 | INCLUDE HAEGSA.FI\r | |
| 8 | INCLUDE HAEPTI.FI\r | |
| 9 | INCLUDE HABRK.FI\r | |
| 10 | INCLUDE HAETTY.FI\r | |
| 11 | C\r | |
| 12 | \f INTEGER TEMP,CPUTIM\r | |
| 13 | C\r | |
| 14 | IF (SAMCNT.EQ.0) RETURN @ THERE IS NOTHING TO DO\r | |
| 15 | CALL PRPFFT @ PREP THE FFT, READ BEGIN, ENDS, SPAN ...\r | |
| 16 | IF BREAK(11) RETURN @ USER GOT RID OF PROGRAM\r | |
| 17 | CPUTIM=TIME(CPUTIM) @ WE WANT TO GET THE COMPUTING TIME\r | |
| 18 | CALL DOFFT\r | |
| 19 | C\r | |
| 20 | CPUTIM=TIME(TEMP)-CPUTIM\r | |
| 21 | WRITE (TTO,1) CPUTIM\r | |
| 22 | RETURN\r | |
| 23 | 1 FORMAT (' RECHENZEIT:',I6,' SEK.')\r | |
| 24 | END\r | |
| 25 | \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 |