!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%

        subroutine ibm32_ieee 18
        call qqexit(1)
        return
        end