Fortran Coder

查看: 17087|回复: 6
打印 上一主题 下一主题

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

[复制链接]

5

帖子

1

主题

0

精华

入门

F 币
42 元
贡献
21 点
跳转到指定楼层
楼主
发表于 2021-4-21 21:06:08 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
[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, 下载次数: 334)

下载.png
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

213

帖子

2

主题

0

精华

宗师

F 币
2126 元
贡献
875 点

规矩勋章

沙发
发表于 2021-4-22 01:11:04 | 只看该作者
1. use放到implicit none 前面
2. include 'link_fnl_shared'内容是什么。如果含有执行语句,就不能放在定义语句部分。

5

帖子

1

主题

0

精华

入门

F 币
42 元
贡献
21 点
板凳
 楼主| 发表于 2021-4-22 16:32:23 | 只看该作者
风平老涡 发表于 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)        

213

帖子

2

主题

0

精华

宗师

F 币
2126 元
贡献
875 点

规矩勋章

地板
发表于 2021-4-22 20:40:37 | 只看该作者
party- 发表于 2021-4-22 16:32
您好,感谢回复
将use调整了顺序 还是不行
然后将Fortran95书里程序输进去 没法运行 显示还是这样的情况

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

5

帖子

1

主题

0

精华

入门

F 币
42 元
贡献
21 点
5#
 楼主| 发表于 2021-4-22 21:34:01 | 只看该作者
那请问怎么修改呢  害怕 焦虑

213

帖子

2

主题

0

精华

宗师

F 币
2126 元
贡献
875 点

规矩勋章

6#
发表于 2021-4-22 23:28:38 | 只看该作者
party- 发表于 2021-4-22 21:34
那请问怎么修改呢  害怕 焦虑

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

5

帖子

1

主题

0

精华

入门

F 币
42 元
贡献
21 点
7#
 楼主| 发表于 2021-4-23 16:04:16 | 只看该作者
风平老涡 发表于 2021-4-22 23:28
如果是个人计算机和window系统,应该好解决,搜一搜系统权限设置即可。

非常感谢
原来是不支持imsl
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-1 07:27

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表