[go: up one dir, main page]

File: fefdat.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 (26 lines) | stat: -rw-r--r-- 1,155 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
c{fefdat.h -*-fortran-*-
c feff.dat information for each path
c
c    lffred:  is feff file/record read yet?
       logical lffred(mfffil)
c  iffused: number of real paths using this feff data
       integer iffused(mfffil)
       integer iptpth(0:maxleg, mfffil), iffrec(mfffil)
       integer nlgpth(mfffil), izpth(0:maxleg, mfffil)
       integer nffpts(mfffil)
       double precision  degpth(mfffil), refpth(mfffil), rwgpth(mfffil)
       double precision  qfeff(mffpts, mfffil)
       double precision  theamp(mffpts, mfffil)
       double precision  thepha(mffpts, mfffil) 
       double precision  realp( mffpts, mfffil) 
       double precision  xlamb( mffpts, mfffil)
       double precision  thcaps(mffpts, mfffil), thsaps(mffpts, mfffil) 
       double precision  ratpth(3, 0:maxleg, mfffil)
       common /fefdat/ lffred, nlgpth, izpth, iptpth, iffrec, iffused,
     $      nffpts, rwgpth, degpth, refpth, ratpth, qfeff,
     $      theamp, thepha, realp, xlamb, thcaps, thsaps
       
       character*256   feffil(mfffil), fpthid(mfffil)
       character*80    fefttl(mffttl,mfffil)
       common /fefchr/ feffil, fefttl, fpthid
c fefdat.h}