it(i8)
t(e20.12)
dt(e20.12)
ethm(e21.13)
TTm(e21.13)
ssm(e20.12)
rhom(e20.12)