real(kind=long_real),dimension(5,3),parameter :: Fg_consume_half_food = & & (/0.1,0.1,0.1,0.1,0.1, & & 0.1,0.1,0.1,0.1,0.1, & & 0.1,0.1,0.1,0.1,0.1 /) 当成一维数组初始化
侧谔谔
