it(i12)
t(e20.5)
dt(e20.5)
Q(e20.5)
Qdot(e20.5)
Qddot(e20.5)
chi(e20.5)
chidot(e20.5)
chiddot(e20.5)
psi(e20.10)
TR(e20.10)
grand2(e20.5)
dgrant(e20.5)
