File: f1.f

package info (click to toggle)
ifeffit 2%3A1.2.11d-15
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 12,332 kB
  • sloc: fortran: 35,441; ansic: 8,458; makefile: 4,727; python: 3,315; perl: 3,144; sh: 2,721; ada: 1,003; tcl: 95
file content (10 lines) | stat: -rw-r--r-- 315 bytes parent folder | download | duplicates (10) 
1
2
3
4
5
6
7
8
9
10
 
       program use_if
       integer i
       include '/usr/local/share/ifeffit/config/ifeffit.inc'
c
       i = ifeffit(' ')
       i = ifeffit('read_data(../../data/cu.xmu, group=cu, type=xmu)')
       i = ifeffit('spline(cu.energy, cu.xmu, rbkg = 1.2)')
       i = ifeffit('plot(cu.k, cu.chi)')
c
       end