[go: up one dir, main page]

File: padlib.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-- 569 bytes parent folder | download | duplicates (11) 
1
2
3
4
5
6
7
8
9
10
11
12
 
c padlib.h -*-fortran-*-
c  header of parameters for packed-ascii-data (pad) routines
       implicit none
       character cpadr, cpadi, cpadc
       integer   maxlen, ibase, ioff, ihuge, ibas2
       double precision  ten, tenlog, huge, tiny, one, zero,base
       parameter(cpadr = '!', cpadc = '$', cpadi = '%')
       parameter(ibase = 90, ioff = 37, ihuge = 38, maxlen = 82)
       parameter(ibas2 = ibase/2, zero=0.d0,  ten = 10.d0)
       parameter(tenlog= 2.302585092994045684d0)
       parameter(huge = 1.d38, tiny = 1.d-38,base = ibase*one)
c