Program www_fcode_cn
USE IFPORT
Implicit None
Character(len=30) :: name
Integer :: k
k = HOSTNAM (name)
write(*,*) name
End Program www_fcode_cn
楚香饭 发表于 2015-2-11 10:20
Fortran 语法里没有这些内容。
如果你使用的 IVF 编译器,可以试试这个代码获取计算机名:
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |