一些便利的subroutine

fcode

感谢楼主的分享精神。

一点小建议：
一般来说，TimsStamp 具有特殊的意义，指用数字（一般是integer）表征的时间戳。例如Unix时间戳，Since1970s 等。所以我建议你换一个函数的名字。
另外，通用型的函数，最好不要写 write(*,*) ，因为你很可能想把结果写在文件里。那这个函数就没法重复使用了。所以，通用型的函数，可以返回一个字符串。当调用者需要写入文件、输出到屏幕，都可以自由选择。

GetFileN 这个函数应该是我写的，嘿嘿~~看来用的人很多嘛。想想还有点小激动呢。

fcode

我就是臭石头雪球....pfan的老大估计是有家有孩子了，所以顾不上论坛了，也没人管理，所以我才做了这个网站。

fcode

确实记不清楚了，我对字母和数字的组合一向不敏感。所以我手边的便利贴很多。

我同样也感到很高兴，也祝福你！