*"表題 GTOOLグラフィック開始 GTOOL3(GGOPEN)
*
*"履歴 90/08/16 沼口  敦
*"     97/09/13 竹広真一
*
*********************************************************************
*"         << グラフィック開始 >>
*********************************************************************
      SUBROUTINE GGOPEN
     I         ( IWS   )
*
      INTEGER    IWS                     !" ワークステーションNo.
*
      CALL  GROPN( IWS )
      CALL  SGPSTX( 'LFULL', .TRUE. )
      CALL  SGPSTX( 'LSOFTF', .FALSE. )
      CALL  SGPSTX( 'LCNTL', .TRUE. )
*
      RETURN
      END
*********************************************************************
*"         << グラフィック終了 >>
*********************************************************************
      SUBROUTINE GGCLSE
*
      CALL GRCLS
*
      RETURN
      END
