fortran怎么获得可执行文件的路径？

wxhwbh · 发表于 Post on 2020-5-3 21:56:19

因为程序里使用getarg函数，使得在不同的目录下都可以读取输入文件运行。但程序中需要用到程序可执行文件的路径（因为可执行文件路径下有一个文件夹，需要读取这个文件夹里的文件）。搜了一下发现好像居然没有好的方法可以直接得到可执行文件的路径，只找到一个GetModuleFilename函数，而且好像不是fortran自带的，只能在Windows下用。所以想问问Linux下怎么获得可执行文件的路径呢？

Warm_Cloud · 发表于 Post on 2020-5-4 08:52:35

比如：
call system("which amesp > .amesppwd")
open(205,file=".amesppwd")
read(205,"(A)") Pwd

niobium · 发表于 Post on 2020-5-4 09:19:55

Warm_Cloud 发表于 2020-5-4 08:52
比如：
call system("which amesp > .amesppwd")
open(205,file=".amesppwd")

大师大法好

wxhwbh · 发表于 Post on 2020-5-4 11:36:27

Warm_Cloud 发表于 2020-5-4 08:52
比如：
call system("which amesp > .amesppwd")
open(205,file=".amesppwd")

谢谢你。但我发现一个问题。就是直接在命令行里用which能找到，但在程序里用system函数就会报错：
which: no wqc in (/root/wbh/soft/amber18/bin:/opt/intel/intelpython3/bin:/opt/intel/advisor_2019.1.0.579143/bin64:/opt/intel/vtune_amplifier_2019.1.0.579888/bin64:/opt/intel/inspector_。。。。。。。后面太长了删掉了，基本上就是.bashrc的信息）
这个是怎么一回事呢？
话说Fortran真的没有一个函数能直接报出可执行路径吗？比如getcwd这种可以报出当前工作目录的。

wxhwbh · 发表于 Post on 2020-5-4 16:22:24

找到解决方法了。同样使用getarg就行：

call getarg(0,workpath)

返回的workpath就是可执行文件的目录

		自动登录 Automatic login	找回密码 Forget password
密码 Password			注册 Register

[Fortran] fortran怎么获得可执行文件的路径？

评分 Rate