& exf_yftype
character*(2) exf_yftype
elseif ( exf_yftype.NE.'RL' ) then
exf_yftype = 'RL'
& exf_iprec, exf_iprec_obcs, exf_yftype,
IF (exf_yftype .EQ. 'RL') THEN
if (exf_yftype .eq. 'RL') then
CALL WRITE_0D_C( exf_yftype, 0, INDEX_NONE, 'exf_yftype = ',