* PACKAGE GTSINC !" ワーク領域の大きさ(IJKDIMのみ意味あり) ***************************************************************** INTEGER IDIM, JDIM, KDIM, IJKDIM PARAMETER ( IDIM=256 ) PARAMETER ( JDIM=128 ) PARAMETER ( KDIM=33 ) PARAMETER ( IJKDIM=IDIM*JDIM*KDIM )