| 查看: 433 | 回复: 6 | |||
[交流]
大伙帮忙看看这个程序是啥意思
|
|||
|
SUBROUTINE getname(argv,nlen) ! ! This subroutine reads the base name of data file. ! IMPLICIT NONE INTEGER::narg INTEGER,INTENT(OUT)::nlen INTEGER::lnblnk,iargc CHARACTER(*),INTENT(OUT)::argv LOGICAL found narg=IARGC() IF(narg<1)THEN WRITE(*,*)'Please enter the base name of data file: ' READ(*,*)argv ELSE CALL getarg(1,argv) ENDIF nlen=LNBLNK(argv) INQUIRE(FILE=argv(1:nlen)//'.dat',EXIST=found) IF(.NOT.found)THEN WRITE(*,*)'Data file not found: ',argv(1:nlen)//'.dat' WRITE(*,*)'Please create or check spelling.' STOP ENDIF RETURN END SUBROUTINE getname |
回复此楼» 猜你喜欢
假如你的研究生提出不合理要求
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有27人回复
-
所感
已经有3人回复
-
要不要辞职读博？
已经有7人回复
-
不自信的我
已经有11人回复
-
北核录用
已经有3人回复
-
实验室接单子
已经有3人回复
-
磺酰氟产物，毕不了业了！
已经有8人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有10人回复
-
26申博（荧光探针方向，有机合成）
已经有4人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请帮忙看下编辑是什么意思，非常感谢
已经有4人回复
- 请帮忙看看导师什么意思？
已经有13人回复
- 请帮忙看看这是什么意思
已经有4人回复
- 大家帮忙看看，SCI校稿时编辑发过来的这段话的意思
已经有9人回复
- 求助 审稿人对交互作用的结果分析提出的问题。。。求专家帮忙看看是什么意思？
已经有4人回复
- 帮忙看一下，这个回复是什么意思啊
已经有6人回复
- 请高手帮忙看是什么意思？
已经有5人回复
- 麻烦大家帮忙看看这个审稿人什么意思（关于数据分析和”化学计量系数？“）
已经有5人回复
- 投稿收到编辑的信息，请大家帮忙分析这是什么意思
已经有13人回复
- 请帮忙看看审稿人写的审稿意见是什么意思啊？
已经有8人回复
- 大家帮忙看看这几句话什么意思啊
已经有8人回复
- 电面后的回复，请大家帮忙看看是啥意思，下一步该如何做？
已经有8人回复
- 请大家帮忙看看这样的评议是什么意思呢？
已经有38人回复
- 帮忙看一下这条语句是什么意思
已经有7人回复
- 高手们帮忙看看期刊投稿要求中关于参考文献的要求是什么意思
已经有8人回复
- 请大家帮忙看看这个是什么意思
已经有4人回复
- 帮忙看一句英文是什么意思！非常感谢
已经有3人回复
- 帮忙看下图上“工”是什么意思？是最大、最小值吗？origin怎么弄上去的？谢谢！
已经有11人回复
- 帮忙看一下编辑是什么意思（Materials Research Bulletin）
已经有12人回复
- 大家帮忙看下这封拒稿信是什么意思，还能继续投这个期刊吗？先谢谢各位了。
已经有3人回复
» 抢金币啦！回帖就可以得到:
-
求一个访问学者邀请函，非常非常感谢
+1/677
-
双一流南京医科大学招计算机、AI、统计、生物信息等方向26年9月入学博士
+1/177
-
湖南师范大学医工交叉科研团队招收计算机博士生
+1/76
-
深圳大学材料学院黄妍斐教授课题组诚招2026年秋季入学博士生
+1/76
-
北京-89175-事业单位-诚征女友
+1/66
-
华中科技大学郭睿副教授建筑与能源科学课题组诚招博士研究生（2026.1.19截止）
+1/52
-
坐标济南，山东农科院招 有机合成 or 药物化学 联培硕士研究生
+1/37
-
北京化工大学化学工程学院杨琪教授 邱介山教授，招收储能电池方向博士研究生
+1/31
-
中国地质大学（北京）王琳课题组招收2026年硕转博/申请-考核博士研究生-1月8日截止
+1/28
-
SCI，计算机相关可以写
+1/21
-
SCI，计算机相关可以写
+1/20
-
SCI，计算机相关可以写
+1/19
-
太原理工大学电工部招聘老师-偏电类专业的博士们快来看啊
+1/13
-
【博士后/科研助理招聘-北京理工大学-集成电路与电子学院-国家杰青团队】
+1/10
-
都柏林大学(UCD)机械工程博士后招聘启事
+1/9
-
中国科学院大学-杨晗课题组-诚聘-博士后、副研究员
+1/7
-
中科院（广州）研究团队招聘无机非金属材料方向特别研究助理或博后
+1/4
-
代算！材料学理论计算
+1/3
-
2026 CSC 博士研究生招生-碳硼烷金属有机框架（MOFs）
+1/2
-
土木、交通工程专业博士后站有吗？（无博士毕业3年要求+可接受兼职博后）
+1/1
3楼2014-09-23 21:31:05
4楼2014-09-23 21:37:48
7楼2014-09-24 14:52:20
简单回复
dmbb2楼
2014-09-23 21:28
回复
springer_(金币+1): 谢谢参与
2014-09-23 21:40
回复
springer_(金币+1): 谢谢参与
2014-09-23 21:43
回复
springer_(金币+1): 谢谢参与