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