[go: up one dir, main page]

File: data.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 (17 lines) | stat: -rw-r--r-- 851 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
c{data.h -*-fortran-*-
c  data and fitting numbers in feffit
       double precision chiq(maxpts,mdata)
       double precision thiq(maxpts,mdata),thiqr(maxpts,mdata)
       double precision qwindo(maxpts,mdata), rwindo(maxpts,mdata)
       double precision q1st(mdata), qlast(mdata)
       double precision chifit(maxpts, mdata), xnidp
       double precision sigdtr(mdata),sigdtk(mdata),sigdtq(mdata)
       double precision xinfo(mdata),chi2dt(mdata),rfactr(mdata)
       double precision sigwgt(mdata),weight(mdata)
       integer  ndoc(mdata), nkey(mdata), nchi(mdata), ndata
       integer  inform, nkeyb(mdata)
       common /data/  q1st, qlast, thiq, thiqr, chiq, chifit,
     $      qwindo, rwindo, sigdtr, sigdtk, sigdtq, sigwgt,
     $      weight, chi2dt, rfactr, xinfo,
     $      xnidp, ndoc, nkey, nchi, ndata, inform, nkeyb
c data.h}