读取电脑的ID号fortran该怎么编写呢？谢谢！

 

 

integer(4) function HOSTNAM(buffer)

查询计算机的名称，查询动作成功完成时函数返回值为0。buffer字符串长度不够使用时，返回值为-1。