* Last processed by NICE on 12-Jun-2000 15:53:00
* Customized for :  IEEE, LINUX, UNIX, MOTIF, F77
      SUBROUTINE RUN_POINT (LINE,COMM,ERROR)
      CHARACTER*(*) LINE,COMM
      LOGICAL ERROR
*
      IF (COMM.EQ.'IGNORE') THEN
         CALL IGNORE (LINE,COMM,ERROR)
      ELSEIF (COMM.EQ.'INCLUDE') THEN
         CALL INCLUDE (LINE,COMM,ERROR)
      ELSEIF (COMM.EQ.'PARAMETER') THEN
         CALL PARAM (LINE,COMM,ERROR)
      ELSEIF (COMM.EQ.'PLOT') THEN
         CALL PLOT_RESULT (LINE,COMM,ERROR)
      ELSEIF (COMM.EQ.'PRINT') THEN
         CALL PRINT (LINE,COMM,ERROR)
      ELSEIF (COMM.EQ.'FILE') THEN
         CALL INPUT_FILE (LINE,COMM,ERROR)
      ELSEIF (COMM.EQ.'LIST') THEN
         CALL LISTPO (LINE,ERROR)
      ELSEIF (COMM.EQ.'READ') THEN
         CALL READ_DATA (LINE,COMM,ERROR)
      ELSEIF (COMM.EQ.'REJECT') THEN
         CALL REJECT (LINE,COMM,ERROR)
      ELSEIF (COMM.EQ.'SET') THEN
         CALL SET  (LINE,COMM,ERROR)
      ELSEIF (COMM.EQ.'SHOW') THEN
         CALL SHOW (LINE,COMM,ERROR)
      ELSEIF (COMM.EQ.'SOLVE') THEN
         CALL SOLVE (LINE,COMM,ERROR)
      ELSEIF (COMM.EQ.'FLAG') THEN
         CALL FLAG(LINE,COMM,ERROR)
      ELSE
         WRITE(6,*) 'E-POINT,  No code for ',COMM
      ENDIF
      END
*<FF>
      SUBROUTINE LOAD_POINT
      INTEGER MPOINT
      PARAMETER (MPOINT=25)
      CHARACTER*12 CPOINT(MPOINT)
      DATA CPOINT/
     $' IGNORE', '/SCAN', '/SOURCE', '/TIME',
     $' INCLUDE', '/SCAN', '/SOURCE', '/TIME',
     $' FILE', ' FLAG', ' LIST', '/OUTPUT',
     $' PARAMETER', '/FREE', ' PLOT', '/BAD',
     $' PRINT', '/OUTPUT', '/HEADER', '/30M',
     $' READ', ' REJECT',
     $' SET', ' SHOW', ' SOLVE'/
*
      CALL SIC_LOAD('POINT','GAG_HELP_POINT',MPOINT,CPOINT,
     $'1.0-00  15-JAN-1991  S.G.')
      CALL LOAD_GREG('INTERACTIVE GREG1')
      CALL LOAD_GREG('LIBRARY GREG2')
      CALL GR_EXEC1 ('SET MARKER 4 0 .15')
      CALL GR_EXEC1 ('SET EXPAND 0.8')
      END
