[go: up one dir, main page]

File: atomic.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 (18 lines) | stat: -rw-r--r-- 857 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
c{atomic.h -*-fortran-*-
       character*2  at_symbol
       integer atomic_z
       external at_symbol, atomic_z
       double precision  at_weight, at_fluor_line
       double precision  at_kedge,  at_l1edge, at_l2edge, at_l3edge
       double precision  at_m1edge, at_m2edge, at_m3edge, at_m4edge
       double precision  at_m5edge, at_n1edge, at_n2edge, at_n3edge
       double precision  at_n4edge, at_n5edge, at_n6edge, at_n7edge
       double precision  at_kwidth, at_l1width, at_l2width, at_l3width

       external  at_weight, at_fluor_line
       external  at_kedge,  at_l1edge, at_l2edge, at_l3edge
       external  at_m1edge, at_m2edge, at_m3edge, at_m4edge
       external  at_m5edge, at_n1edge, at_n2edge, at_n3edge
       external  at_n4edge, at_n5edge, at_n6edge, at_n7edge
       external  at_kwidth, at_l1width, at_l2width, at_l3width
c}