Fortran Coder

标题: getlog及inquire代码问题请教 [打印本页]

作者: dawang 时间: 2017-7-6 02:27
标题: getlog及inquire代码问题请教
本人菜鸟，向各位大神请教两个问题，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)

作者: vvt 时间: 2017-7-6 08:00
getlog 是 IVF 的扩展函数，用来获取当前登录windows的用户名。

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

作者: dawang 时间: 2018-8-6 21:34

vvt 发表于 2017-7-6 08:00
getlog 是 IVF 的扩展函数，用来获取当前登录windows的用户名。

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

明白了，十分感谢

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