& diffKrBL79surf, diffKrBL79deep, diffKrBL79scl, diffKrBL79Ho,
_RL diffKrBL79deep
KbryanLewis79=diffKrBL79surf+(diffKrBL79deep-diffKrBL79surf)
CALL WRITE_0D_RL( diffKrBL79deep, INDEX_NONE,'diffKrBL79deep =',
IF (diffKrBLEQdeep .EQ. UNSET_RL) diffKrBLEQdeep = diffKrBL79deep
diffKrBL79deep = 0. _d 0