ren = cDalton
_RL cDalton
& cStantonS, cStantonU, cDalton,
cDalton = 34.6 _d -3
WRITE(iUnit,*) 'BlkF: cDalton =',cDalton