module arrayimplicit none! define a 2 dimensional array of real typereal*8 :: a(10,10)end module这是一个定义了名为a的二维实数数组。定义整数数组须做出相应调整。使用use命令来使用该module
