| 查看: 467 | 回复: 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 |
回复此楼» 猜你喜欢
今年春晚有几个节目很不错，点赞！
已经有11人回复
-
情人节自我反思：在爱情中有过遗憾吗？
已经有11人回复
-
体制内长辈说体制内绝大部分一辈子在底层，如同你们一样大部分普通教师忙且收入低
已经有12人回复
-
过年走亲戚时感受到了所开私家车的鄙视链
已经有9人回复
-
基金正文30页指的是报告正文还是整个申请书
已经有5人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请帮忙看下编辑是什么意思，非常感谢
已经有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人回复
» 抢金币啦！回帖就可以得到:
-
大连海事大学轮机学院尚有博士名额
+2/56
-
海法大学线上开放日
+1/33
-
国家级青年人才课题组招收2026级硕士研究生
+1/30
-
国家级青年人才课题组招收2026级硕士研究生
+1/28
-
代朋友发 88公务员诚征男友
+1/17
-
英国布里斯托大学诚招博士生，博士后和联合培养生
+1/17
-
2026年天津科技大学“新能源催化与膜材料团队”研究生招生
+1/17
-
武汉纺织大学全国重点实验室陈嵘教授团队招收硕士研究生
+1/6
-
天津医科大学基础医学院张恒课题组博士后招聘
+1/5
-
南昌大学资源与环境学院刘进教授团队招收2026硕博研究生
+1/5
-
英国南安普顿大学禅铎课题组诚招气候动力方向博士后
+1/5
-
全奖博士 英国利物浦大学+台湾清华大学 双博士学位
+1/5
-
内江师范学院能源转化与储能实验室诚聘博士1-2人
+1/4
-
中国石油大学（华东）生物质绿色化学转化和生物基功能高分子团队诚招26级硕士生
+1/4
-
澳科大招收2026秋纳米医学/生物材料方向全奖博士研究生（3月5日18:00截止）
+1/3
-
深圳大学26级土木工程博士招生
+1/3
-
26申博自荐求博导-生物传感分析方向
+1/3
-
华中科技大学/武汉纺织大学联合招收博士后
+1/1
-
澳洲皇家墨尔本理工RMIT招收大模型安全/隐私PhD
+1/1
-
澳科大诚招2026年秋季硕士研究生（药物递送/生物材料方向，3月5日18:00报名截止）
+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): 谢谢参与