楼主的这种做法是可以的，你的错误只是 u_old,u你没有定义类型，如果都是整数的的话，在开始的时候将他们定义了应该就可以了。integer u , integer u_old楼主试一试。楼主应该是在编程的时候implicit none了
