*"表題 チェック用配列サイズの設定 GTOOL3(GTSIZE)
*
*"履歴 90/09/21 沼口  敦
*
*
*********************************************************************
*"         << チェック用配列サイズの設定 >>
*********************************************************************
      SUBROUTINE GTSIZE
     M         ( HHEAD ,
     I           ISIZE  )
*
      CHARACTER  HHEAD  ( * )*(*)        !" ヘッダー
      INTEGER    ISIZE                   !" 配列サイズ
*
      CALL GHPSET ( HHEAD, 'IDFM', 0     )
      CALL GHPSET ( HHEAD, 'SIZE', ISIZE )
      CALL GTPSET ( 'SUBCHK', .TRUE. )
*
      RETURN
      END
