qnet_off=0.d0
& qnet_off, empmr_off, conservcycle
_RL qnet_off, empmr_off, constim, conservcycle
& qnet_off, empmr_off, constim,