| 查看: 434 | 回复: 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 |
回复此楼» 猜你喜欢
论文终于录用啦！满足毕业条件了
已经有28人回复
-
假如你的研究生提出不合理要求
已经有4人回复
-
所感
已经有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/76
-
湖南科技大学资安学院管青军教授2026年招收审核制博士生
+1/72
-
澳门大学智慧城市物联网国重“结构智能感知、健康监测与无损检测”研究方向博士后招聘
+1/70
-
山东征女友，坐标济南
+1/58
-
北京—征老婆
+1/58
-
考核制博士自荐
+1/37
-
厦门大学航空航天学院智能制造课题组招2026年申请审核制博士生1-2名
+1/29
-
SCI，计算机相关可以写
+1/21
-
SCI，计算机相关可以写
+1/21
-
限广州，征女友
+2/18
-
2026博士招生-上海大学先进耐火材料全国重点实验室-招收冶金工程博士研究生-1-2名
+1/18
-
SCI，计算机相关可以写
+1/17
-
太原理工大学电工部招聘老师-偏电类专业的博士们快来看啊
+1/12
-
长江学者团队招聘药学/生物信息学等方向高校教师7名(地点杭州、有事业编)+博后5名
+1/8
-
中国科学院大学-杨晗课题组-诚聘-博士后、副研究员
+1/6
-
浙江大学傅杰团队(杰青)高薪招聘博士后
+1/4
-
中国科学院大学-杨晗课题组-诚聘-博士后、副研究员
+1/4
-
中科院（广州）研究团队招聘无机非金属材料方向特别研究助理或博后
+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): 谢谢参与