INTERFACE
SUBROUTINE VAL923(LDNEW)
LOGICAL ,INTENT(IN) :: LDNEW
END SUBROUTINE VAL923
END INTERFACE