*"表題 トーン段彩 GTOOL3(GGCTON)
*
*"履歴 92/07/08 沼口  敦
*
*
*********************************************************************
*"         << トーン段彩 >>
*********************************************************************
      SUBROUTINE GGCTON
     I         ( HHEAD , GDATA  )
*
      CHARACTER  HHEAD ( * )*(*)         !" ヘッダー
      REAL       GDATA ( * )             !" データ
*
      CALL       GGSTON
     I         ( HHEAD , GDATA  )
*
      CALL GGPSET ( 'TONESET', 1 )
*
      CALL GGTONE
     I         ( HHEAD , GDATA ,
     I           TONL  , ITON  , 0   )
*
      RETURN
      END
