& OBCS_uvApplyFac,
_RL OBCS_uvApplyFac
& *OBCS_uvApplyFac
uvIceApplyFac = OBCS_uvApplyFac
CALL WRITE_0D_RL( OBCS_uvApplyFac, INDEX_NONE,
OBCS_uvApplyFac = 1. _d 0