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