*"表題 GMTOOL ワーク領域 GTOOL3(GMWINC)
*
*"履歴 91/01/17 沼口  敦
*
*"   usage : PARAMETER  ( MWDIM = ... )
*"           INCLUDE    (GMWINC)                ! use MWDIM
*"           ........
*
*"           CALL GMSIZE( MWDIM )
*
**********************************************************************
*"      << GMTOOL ワーク領域 >>
**********************************************************************
      COMMON     /GMWORK/ MWORK
      REAL       MWORK  ( MWDIM )            !" データ(ワーク)