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