这个编程范式非常不好
问题：
没有写implicit none，建议书写，会省去很多不必要的麻烦
aa是二维数组，不能用一位数组构造器(/1,2,3,1,2,3/)初始化，需要reshape
数组b没有定义
循环范围要用逗号隔开：do i = 1,n
i,j也要显式定义
实例代码如下：
冒号应该改成逗号
