File: echo.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 (12 lines) | stat: -rw-r--r-- 419 bytes

parent folder | download | duplicates (9)

c{echo.h -*-fortran-*-
c i_echo controls echo outputs:
c   0   save to echo buffer  in echo_str
c   1   write to screen 
c   2   write to echo file
c   3   write to both screen and echo file
       integer  mxecho, n_echo, i_echo, lun_echo
       parameter(mxecho =  512)
       character*264    echo_str(mxecho),echo_file
       common /echo_s/  echo_str, echo_file
       common /echo_i/  n_echo, i_echo, lun_echo
c}