[go: up one dir, main page]

File: compat.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 (10 lines) | stat: -rw-r--r-- 350 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
 
c{compat.h  -*-fortran-*-
c  used so setsca/getsca works with libxafs for autobk,diffkk,feff6, etc.
c  values for scalars
       integer          mxsca
       parameter       (mxsca=512)
       double precision sscaval(mxsca)
       character*96     sscanam(mxsca), snamtmp
       common /sca_dp/  sscaval
       common /sca_ch/  sscanam, snamtmp
c}