Fortran Coder

查看: 10197|回复: 2

[求助] getlog及inquire代码问题请教

[复制链接]

7

帖子

3

主题

0

精华

入门

F 币
51 元
贡献
32 点
发表于 2017-7-6 02:27:58 | 显示全部楼层 |阅读模式
本人菜鸟,向各位大神请教两个问题,cmaq转换wrf/chem中一段代码
1,getlog是什么函数,是否为库存函数,书中未找到此函数。
2,inquire括号中name=map_file,是否应该为file=map_file? 因为inquire函数参数中没有name此项,且在后续代码中发现open(unit=iopen,file=map_file,status='old')此行代码。

因为此段代码为前辈所写,且未完成,所以我再修改过程中需要谨慎怀疑每一行代码,劳烦各位大神回复,谢谢。
[Fortran] 纯文本查看 复制代码
      i=hostnm(host_name)
      call getlog(user_name)
      call date_and_time(creation_date,creation_time)
      inquire(unit=iopen,name=map_file)

953

帖子

0

主题

0

精华

大师

F 币
180 元
贡献
73 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
发表于 2017-7-6 08:00:16 | 显示全部楼层
getlog 是 IVF 的扩展函数,用来获取当前登录windows的用户名。

name=map_file 用来接受文件名。是 inquire 的输出参数。
file=filename 用来指定文件名。是 inquire 的输入参数。

7

帖子

3

主题

0

精华

入门

F 币
51 元
贡献
32 点
 楼主| 发表于 2018-8-6 21:34:20 | 显示全部楼层
vvt 发表于 2017-7-6 08:00
getlog 是 IVF 的扩展函数,用来获取当前登录windows的用户名。

name=map_file 用来接受文件名。是 inquir ...

明白了,十分感谢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-3-29 04:17

Powered by Tencent X3.4

© 2013-2024 Tencent

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