*"表題 GMTOOL作業配列サイズ設定 GTOOL3(GMSIZE)
*
*"履歴 90/01/10 沼口  敦
*
*
*********************************************************************
*"         << GMTOOL作業配列サイズ設定 >>
*********************************************************************
      SUBROUTINE GMSIZE
     I         ( ISIZE )
*
      INTEGER    ISIZE                   !" 作業配列サイズ(/GMWRK/)
*
      CALL GMPSET ( 'SIZE', ISIZE )
*
      RETURN
      END
*********************************************************************
*"         << GMTOOL作業配列のチェック用サイズの設定 >>
*********************************************************************
      SUBROUTINE GMCSIZ
     I         ( HHEAD )
*
      CHARACTER  HHEAD( * )*(*)              !" ヘッダー
*
      CALL GMPGET ( 'SIZE', ISIZE )
      CALL GHPSET ( HHEAD, 'IDFM', 0     )
      CALL GHPSET ( HHEAD, 'SIZE', ISIZE )
*
      RETURN
      END
