Fortran Coder

标题: 使用IMSL出现 compilation aborted [打印本页]

作者: party- 时间: 2021-4-21 21:06
标题: 使用IMSL出现 compilation aborted

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

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

新手求助一开始显示是IMSL问题，安装后就出现下面的问题了1 Severe: No such file or directory
2 Compiliation Aborted (code 1)

下载.png (9.43 KB, 下载次数: 339)

作者: 风平老涡 时间: 2021-4-22 01:11
1. use放到implicit none 前面
2. include 'link_fnl_shared'内容是什么。如果含有执行语句，就不能放在定义语句部分。

作者: party- 时间: 2021-4-22 16:32

风平老涡发表于 2021-4-22 01:11
1. use放到implicit none 前面
2. include 'link_fnl_shared'内容是什么。如果含有执行语句，就不能放在定 ...

您好，感谢回复
将use调整了顺序还是不行
然后将Fortran95书里程序输进去没法运行显示还是这样的情况

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

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

错误
Error1 Severe: Permission denied fortcom
Error2 Compilation Aborted (code 1)

作者: 风平老涡 时间: 2021-4-22 20:40

party- 发表于 2021-4-22 16:32
您好，感谢回复
将use调整了顺序还是不行
然后将Fortran95书里程序输进去没法运行显示还是这样的情况

好像是系统权限设置问题。你没有使用fortcom程序的权限。

作者: party- 时间: 2021-4-22 21:34
那请问怎么修改呢害怕焦虑

作者: 风平老涡 时间: 2021-4-22 23:28

party- 发表于 2021-4-22 21:34
那请问怎么修改呢害怕焦虑

如果是个人计算机和window系统，应该好解决，搜一搜系统权限设置即可。

作者: party- 时间: 2021-4-23 16:04

风平老涡发表于 2021-4-22 23:28
如果是个人计算机和window系统，应该好解决，搜一搜系统权限设置即可。

非常感谢
原来是不支持imsl

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)