Question

用intel fortran 编写fortran程序时的书写格式与fortran90有什么不同？

谢谢高手指点！

Answer 1

如果写程序时语法绝对的严格，那么不同之处就很少了，但如果语句较为随意那区别就大了，

比如以下就是几条（太多了，随便说几个而已，且pgf90和f90对语句要求很相近）：

1. 子程序被调用时，如果变量没有被定义为save型时，如果第二次调用没有初始化就参与计算会出错说being used without being defined（pgf90就会自动save而不会报错）

2. 打印格式要求严格，最好要 '(f8.3)','(i3)'之类的,且用一个format语句最好

3. allocate一个数组之后,如果没有deallocate就再次allocate就会报错,deallocate的时候如果deallocate(array(m,n))也会报错,要deallocate(array),即不能给定维数

5. x=(/a,b,c,d/)时,a,b,c,d要么都是实数(要有小数点),要么都是整数(不出现小数点)

6. 对于数组求最大值(最小值)所在位置,只能用
maxwind=0.0
do i=m1,m2
do j=n1,n2
xmw=sqrt(u(i,j)**2+v(i,j)**2)
if(xmw>maxwind) then
maxwind=xmw; xiw=float(i);xjw=float(j)
endif
enddo
enddo
而不能用
maxwind=maxval(sqrt(u(m1:m2,n1:n2)**2+v(m1:m2,n1:n2)**2))
do i=m1,m2
do j=n1,n2
xmw=sqrt(u(i,j)**2+v(i,j)**2)
if(xmw=maxwind) then
xiw=float(i);xjw=float(j)
exit
endif
enddo
enddo
pgf90就可以，可能是ifort计算精度默认太高的原因