/*
Example programs from the book Scientific and Engineering Programming
in C++: An Introduction with Advanced Techniques and Examples,
Addison-Wesley, 1994.
 
                 (c) COPYRIGHT INTERNATIONAL BUSINESS MACHINES
                 CORPORATION 1994.  ALL RIGHTS RESERVED.

See README file for further details.
*/

                SUBROUTINE JUNK(A, C)


       IF (A .NE. 0) THEN
           PRINT *, -C/A, ', '
       ELSE
           PRINT *, 'NONE, '
       END IF


                END