动态的输出格式

vvt

星号最好，其次仿vf的，而尖括号由于不规范而建议别用

vvt

  write(*,300) ,((Temp_F(i,j),j=1,N),i=1,M)
改为
Do i = 1 , M
  write(*,'(*(f5.1))')  Temp_F(i,:)
End Do
这是比较标准的二维数组输出