| 查看: 436 | 回复: 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人回复
-
不自信的我
已经有12人回复
-
假如你的研究生提出不合理要求
已经有5人回复
-
所感
已经有4人回复
-
论文终于录用啦！满足毕业条件了
已经有28人回复
-
要不要辞职读博？
已经有7人回复
-
北核录用
已经有3人回复
-
实验室接单子
已经有3人回复
-
磺酰氟产物，毕不了业了！
已经有8人回复
-
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/676
-
博士去军队文职怎么样
+5/190
-
上海科技大学物质科学与技术学院｜王平鸾课题组长期招聘（博后/博硕/科研助理）
+1/180
-
DNA甲基化位点定量试剂盒（qPCR版）-适合特定基因位点5mC定量检测
+1/83
-
上海科技大学物质科学与技术学院｜王平鸾课题组长期招聘（博后/博硕/科研助理）
+1/77
-
湖南师范大学医工交叉科研团队招收计算机博士生
+1/76
-
澳门大学智慧城市物联网国重“结构智能感知、健康监测与无损检测”研究方向博士后招聘
+1/72
-
北京-89175-事业单位-诚征女友
+1/62
-
真诚找对象
+1/62
-
坐标济南，山东农科院招 有机合成 or 药物化学 联培硕士研究生
+1/36
-
深圳信息职业技术大学-博后招聘（优秀可留校）
+1/29
-
SCI，计算机相关可以写
+1/20
-
SCI，计算机相关可以写
+1/14
-
长江学者团队招聘药学/生物信息学等方向高校教师7名(地点杭州、有事业编)+博后5名
+1/8
-
中国科学院大学-杨晗课题组-诚聘-博士后、副研究员
+1/7
-
河南师范大学科研助理岗位招聘
+1/7
-
中国科学院大学-杨晗课题组-诚聘-博士后、副研究员
+1/5
-
西交利物浦大学（苏州）/刘雯老师课题组/招博士研究生
+1/4
-
上海交通大学环境学院（环境化学与环境毒理学；大数据与人工智能）博士后招聘～
+1/3
-
求助寒假实习
+1/2
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): 谢谢参与