          EJECT
*         CTEXT CTP$DFT_LOG_ERROR_NO_CONSOLE
 LTC      SPACE  4,10
**        LTC - LOG ERROR TO CONSOLE.
*
*         NOTE THIS ROUTINE IS TO BE USED WHEN THERE IS NO
*         CONSOLE TO LOG ERRORS TO BUT PACKET COMMUNICATION
*         IS NECESSARY.

          ROUTINE LTC
          LJM    LTCX

*         END CTP$DFT_LOG_ERROR_NO_CONSOLE
