c -*- Fortran -*-
c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
c ::::: parameters and constants
c ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
c
integer TabS, TabE
parameter ( TabS = 100, TabE = 9000 )
parameter ( leniwk=2000, lenrwk=2000, lencwk=24, leNsp=9 )
c
data TABFAC /1.d0/
c
character *16 cwork
logical ckunits
common /CKArrays/ iwork(leniwk), rwork(lenrwk), cwork(lencwk)
common /Tables/ hms(leNsp,TabS:TabE), cpk(leNsp,TabS:TabE)
common /PhysData/ Wk(leNsp), RU, RUC, PA
common /Mechanism/ Nel, Nsp, Nre, Nfit
common /Units/ ckunits