[go: up one dir, main page]

File: fft.h

package info (click to toggle)
ifeffit 2%3A1.2.11d-9.1
  • links: PTS
  • area: contrib
  • in suites: jessie, jessie-kfreebsd
  • size: 12,444 kB
  • ctags: 6,492
  • sloc: fortran: 35,441; ansic: 8,454; makefile: 4,815; python: 3,274; perl: 3,146; sh: 2,721; ada: 1,003; tcl: 95
file content (16 lines) | stat: -rw-r--r-- 761 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
c{fft.h: -*-fortran-*-
c  parameters for fourier transforms in feffit
       double precision wfftc(4*maxpts + 15)
       double precision qwin1(mdata), qwin2(mdata)
       double precision rwin1(mdata), rwin2(mdata), rweigh(mdata)
       double precision qweigh(mdata), qmin(mdata), qmax(mdata)
       double precision rmin(mdata), rmax(mdata)
       integer  nqfit(mdata), nqpts(mdata), nrpts(mdata)
       integer  iqwin(mdata), irwin(mdata), ifft(mdata)
       integer  jffphs(mdata)
       character*32 sqwin(mdata), srwin(mdata)
       common /fft/ nqpts, iqwin, qmin, qmax, qwin1, qwin2, qweigh,
     $              nrpts, irwin, rmin, rmax, rwin1, rwin2, rweigh,
     $              nqfit, ifft, jffphs, wfftc
       common /ffts/ sqwin, srwin
c fft.h}