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 |