[go: up one dir, main page]

File: keywrd.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,124 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{keywrd.h -*-fortran-*-
       character*32    ckeys(mckeys), macnam(macmax)
       character*128   mcdesc(macmax), chint(mckeys)
       character*128   mcargs(mcdeep,mmcarg), mcargd(macmax,mmcarg)
       character*512   macstr(mcline)
       integer         imcptr(mcline), imacro(macmax), mac_define(4)
       integer         nmacro, nmac_stop, imac_save(mcdeep), mac_exec
       integer         imac
       common /keywrd/ ckeys, chint, macstr,
     $      macnam, mcargs, mcargd, mcdesc
       common /intmac/ imcptr, imacro, imac_save, nmacro, nmac_stop,
     $      imac, mac_define, mac_exec

c  input / output integers  (like, file luns)
       integer  nkeys, iohist, iofile, ioinp
       integer  nfiles, iunit(mfiles), iprint
       logical   histry, tabdel
       common /inout/ nkeys, iohist, iofile, ioinp, nfiles,
     $      iunit, iprint,  histry, tabdel

c  misc character strings for ifeffit
       character*64   keys(mkeys), def_command*16
       character*256  values(mkeys), lfiles(mfiles)
       character*512  tmpstr, messg
       common /chars/ keys, values, lfiles, tmpstr, messg, def_command
c}