[数学库] 使用IMSL出现 compilation aborted

program least_square
  implicit none
  include 'link_fnl_shared'
  use use_libraries
  integer, parameter :: m = 6
  integer, parameter :: n = 2
  integer            :: i
  double precision   :: A(m,n), B(m), X(n)
  double precision   :: C(n, m), D(n,n), E(n)
  
  data A / 1, 2, 3, 4, 5, 6, 1, 1, 1, 1, 1, 1  /
  data B / 6.9, 9.1, 10.8, 13.2, 14.9, 17.3 /
if( m > n ) then
   C = transpose(a)
   D = matmul( c, a )
   E = matmul( c, b )
   X = D .ix. E ! invert(D) * E
else if( m == n ) then
   X = A .ix. B
else
   write(*,*) "No roots!"
end if
do i = 1, n
      write(*,*) X(i)
  end do
   
  stop
end program least_square

program ex063
implicit none
integer i ,j

do i=1,3
do j=1,3
write(*,"(I2,I2)") i,j
end do
write(*,*)"another cycle"
end do
stop
end