*"表題 ヘッダーの内容を文字で描く GTOOL3(GGPDSC)
*
*"履歴 90/08/21 沼口  敦
*
*
***********************************************************************
*"         << ヘッダーの内容(実数)を文字化して描く >>
***********************************************************************
      SUBROUTINE GGPDSC
     I         ( HHEAD, HP   , VX   , VY    )
*
      CHARACTER  HHEAD ( * )*(*)             !" ヘッダー
      CHARACTER  HP         *(*)             !" 記述子の名称
      REAL       VX                          !" X座標(NDC)
      REAL       VY                          !" Y座標(NDC)
*
#ifdef SYS_IBMS
      INCLUDE    (GZSIZE)                    !" NCC, NDC
#else
#include         "gzsize.F"                  !" NCC, NDC
#endif
      CHARACTER  HC      *(NCC)
      REAL       RC
*
      CALL GHPGET ( HHEAD, HP, RC  )
      CALL CHVAL  ( 'D', RC, HC  )
      CALL SGTXV  ( VX , VY, HC  )
*
      RETURN
*======================================================================
*"         << ヘッダーの内容(文字)を描く >>
*======================================================================
      ENTRY      GGCDSC
     I         ( HHEAD, HP   , VX   , VY    )
*
      CALL GHCGET ( HHEAD, HP, HC  )
      CALL SGTXV  ( VX, VY, HC  )
*
      RETURN
      END
