I fill4dirX,
LOGICAL fill4dirX
IF ( fill4dirX ) THEN
CALL FILL_CS_CORNER_AG_RL( fill4dirX, .TRUE.,
CALL FILL_CS_CORNER_AG_RL( fill4dirX, .FALSE.,
I fill4dirX, withSigns,