Fortran: 09.01.10.01/P02

This is Fortran source code, based on the abstract design for this program. You may return to the documentation for the module containing this program, or to the entire hierarchical table of topics covered by the PVT.

C  *********************************************************
C  *                                                       *
C  *    TEST NUMBER: 09.01.10.01/02                        *
C  *    TEST TITLE : Error 2001 handled by user            *
C  *                                                       *
C  *    PHIGS Validation Tests, produced by NIST           *
C  *                                                       *
C  *********************************************************

      CALL INITGL ('09.01.10.01/02')
      CALL E12001 (1)
      CALL ENDIT
      END