# cparms - common block of model parameters for fdm

character title*40, date*40, laba*40, labb*40, labc*40
integer m, n, nf
integer vernum, revnum, mmeq
logical couplr, midear, basacc, lngstf
real xl, yw, zh, rho, dihc, vihc
real kst, rst, mst, ast, kma, rma, mma, ama, gmel, kim
real ked, red, med, aed, kcp, rcp, mcp, acp
real kdi, rdi, mdi, bl, rfz, rvc, adi
real rco, mco, rim, css, rve, rhe, mhe
real w1o, w1e, w2o, w2e
real d1min, d1max, d3min, d3max
real gam, alo, ale, gamuns, xoff, ppo
real freq(16)
real dbfs(3), dbmx(3), phfs(3), phmx(3)
real fpma, fpmb, fpmc
common/cparms/vernum, revnum, m, n, mmeq,
xl, yw, zh, rho,
couplr, midear, basacc, lngstf,
kst, rst, mst, ast, kma, rma, mma, ama,
kim, rim, gmel,
ked, red, med, aed, kcp, rcp, mcp, acp,
kdi, rdi, mdi, bl, rfz, rvc, adi,
rco, mco, rhe, mhe, css, rve,
nf, w1o, w1e, w2o, w2e,
d1min, d1max, d3min, d3max, freq,
dbfs, dbmx, phfs, phmx,
title, date, laba, labb, labc,
gam, alo, ale, gamuns, xoff, ppo,
dihc, vihc,
fpma, fpmb, fpmc

# xparms - common block of model parameters for fdm that vary with x
real aca, acb, acc, acd, ace
real bwa, bwb, bwc, bwd, bwe
real g1a, g1b, g1c, g1d, g1e
real g2a, g2b, g2c, g2d, g2e
real gba, gbb, gbc, gbd, gbe
real gpa, gpb, gpc, gpd, gpe
real k1a, k1b, k1c, k1d, k1e
real k2a, k2b, k2c, k2d, k2e
real k3a, k3b, k3c, k3d, k3e
real k4a, k4b, k4c, k4d, k4e
real k5a, k5b, k5c, k5d, k5e
real m1a, m1b, m1c, m1d, m1e
real m2a, m2b, m2c, m2d, m2e
real r1a, r1b, r1c, r1d, r1e
real r2a, r2b, r2c, r2d, r2e
real r3a, r3b, r3c, r3d, r3e
real r4a, r4b, r4c, r4d, r4e
real t1a, t1b, t1c, t1d, t1e
real t2a, t2b, t2c, t2d, t2e
real rfa, rfb, rfc, rfd, rfe
common/xparms/ aca, acb, acc, acd, ace,
bwa, bwb, bwc, bwd, bwe,
g1a, g1b, g1c, g1d, g1e,
g2a, g2b, g2c, g2d, g2e,
gba, gbb, gbc, gbd, gbe,
gpa, gpb, gpc, gpd, gpe,
k1a, k1b, k1c, k1d, k1e,
k2a, k2b, k2c, k2d, k2e,
k3a, k3b, k3c, k3d, k3e,
k4a, k4b, k4c, k4d, k4e,
k5a, k5b, k5c, k5d, k5e,
m1a, m1b, m1c, m1d, m1e,
m2a, m2b, m2c, m2d, m2e,
r1a, r1b, r1c, r1d, r1e,
r2a, r2b, r2c, r2d, r2e,
r3a, r3b, r3c, r3d, r3e,
r4a, r4b, r4c, r4d, r4e,
t1a, t1b, t1c, t1d, t1e,
t2a, t2b, t2c, t2d, t2e,
rfa, rfb, rfc, rfd, rfe
