[go: up one dir, main page]

File: spline.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-- 829 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
c{spline.h -*-fortran-*-
       integer          nsplin, nautbk, nxmu, nr1st, nrbkg, nclamp
       logical          theory, eevary, thefix, funnrm, clamp(2)
       double precision de0, e0, emin, emax, chie(maxpts), rbkg,r1st
       double precision endat(maxpts), xmudat(maxpts)
       double precision eknot(mtknot), thessq, thebkg, step, splqw
       double precision splwin(maxpts), splfit(maxpts)
       double precision spldat(maxpts), sclamp(2)
cc       double precision cld_wgt(maxpts), cld_dat(maxpts), cld_f2(maxpts)
       common /xbkin/   nsplin,nautbk, nxmu, nr1st, nrbkg, nclamp
       common /xbklg/   funnrm, thefix, theory, eevary,clamp
       common /xbkvr/   rbkg, r1st, thessq, thebkg, step, 
     $      e0, de0, emin, emax, endat, xmudat, chie, 
     $      eknot, splqw, splwin, splfit, spldat, sclamp
c}