C -+-+-+-+-+  H A E C O M . F T  -+-+-+-+-+ C C COMPUTES THE FFT FOR THE DATA LOCATED IN FILE 6 OR 7 C SUBROUTINE COMPUT INCLUDE HAEBUF.FI INCLUDE HAEGSA.FI INCLUDE HAEPTI.FI INCLUDE HABRK.FI INCLUDE HAETTY.FI C INTEGER TEMP,CPUTIM C IF (SAMCNT.EQ.0) RETURN @ THERE IS NOTHING TO DO CALL PRPFFT @ PREP THE FFT, READ BEGIN, ENDS, SPAN ... IF BREAK(11) RETURN @ USER GOT RID OF PROGRAM CPUTIM=TIME(CPUTIM) @ WE WANT TO GET THE COMPUTING TIME CALL DOFFT C CPUTIM=TIME(TEMP)-CPUTIM WRITE (TTO,1) CPUTIM RETURN 1 FORMAT (' RECHENZEIT:',I6,' SEK.') END