矩阵算法合集问题续II

PotsyYZhou

按提示， 变换了一下格式如下：

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	subroutine eulerian_inverse ( n, a )

02	do j = 1, n

03	do i = 1, n

04	if ( i .lt. j ) then

05	a(i,j) = 0.0D+00

06	else if ( i .eq. j ) then

07	a(i,j) = 1.0D+00

08	else if ( j .lt. i ) then

09	dot = 0.0D+00

10	do k = j, i - 1

11	dot = dot + b(i,k) * a(k,j)

12

end do

13	a(i,j) = - dot

14

end if

15

end do

16

end do

17

return

18

end

      还是不行，报错如下：
main.f90:14269:8:14269 |         a(i, j) = 0.0D+00      |        1Error: Unclassifiable statement at (1)
main.f90:14281:8:14281 |         a(i, j) = -dot      |        1Error: The function result on the lhs of the assignment at (1) must have the pointer attribute.
？？？！

li913

a需要定义为数组。