*"表題 マーク描画 GTOOL3(GGMARK)
*
*"履歴 90/08/19 沼口  敦
*
*
*********************************************************************
*"         << マーク描画 >>
*********************************************************************
      SUBROUTINE GGMARK
     I         ( HHEAD , GDATA , HPOS  )
*
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       GDATA ( * )             !" データ
      CHARACTER  HPOS       *(*)         !" データ軸 ('X' or 'Y')
*
#ifdef SYS_IBMS
      INCLUDE    (GZIWRK)                !" NW: 軸ワークの大きさ
#else
#include         "gziwrk.F"              !" NW: 軸ワークの大きさ
#endif
      REAL       ZDATA ( NW )
      LOGICAL    OLINT                   !" 線種コメントを描く？
*
      CALL GUSMIS ( HHEAD )
*
*"         < 1. 軸描画, 座標設定 >
*
      CALL GGAXSZ
     I     ( HHEAD , GDATA , HPOS   )
*
*"         < 2. 範囲 >
*
      CALL GHPGET ( HHEAD, 'ASTR1', IZSTR )
      CALL GHPGET ( HHEAD, 'AEND1', IZEND )
      IZDIM = IZEND-IZSTR+1
      CALL GUSZCZ ( NW   , IZDIM )
*
*"         < 3. 折れ線描画 >
*
      CALL UWQGXA ( ZDATA, IZDIMZ )
      IF ( IZDIM .NE. IZDIMZ ) THEN
         CALL MSGDMP( 'W', 'GGMARK', 'ARRAY SIZE DO NOT AGREE.' )
      ENDIF
*
      IF ( HPOS(1:1) .EQ. 'X' ) THEN
         CALL SGPMU  ( IZDIM, GDATA, ZDATA )
      ELSE
         CALL SGPMU  ( IZDIM, ZDATA, GDATA )
      ENDIF
*
*"         < 4. 線種コメント >
*
      CALL GGPGET ( 'LLINT', OLINT )
      IF ( OLINT ) THEN
         CALL GGLINT ( HHEAD, 'MARK' )
      ENDIF
*
      RETURN
      END
