| 查看: 544 | 回复: 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 |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有5人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急
已经有4人回复
-
浙江师范大学是怎么坑我的
已经有15人回复
-
浙江师范大学是怎么坑我的
已经有4人回复
-
求教各位大神：2026教育部人文社科青年基金项目何时公示呀？
已经有6人回复
-
面上有专家说实验设备不是我们单位的
已经有8人回复
-
科研求助
已经有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/980
-
华南理工大学 光电材料方向 王竣可教授课题组招聘博士后、博士生及科研助理
+5/455
-
坐标北京，诚征女友，奔结婚，非诚勿扰！
+5/295
-
材料理论模拟或理论计算的作用有多大
+1/198
-
急招科研助理/博士后
+2/132
-
中科院化学所韩布兴院士团队诚聘光催化、光酶催化、光电催化领域博士后1-2名
+1/78
-
【推免】】中科院国家级人才团队招收27级推免硕士生
+1/74
-
山东征女友，坐标济南
+1/38
-
浙江师范大学引进人才被解聘，拒绝支付50万绩效并被索赔211万
+1/35
-
中国科大-合肥国家实验室冷原子量子网络团队招聘启事
+2/26
-
坐标天津，诚征女友，希望遇到有缘之人。
+1/23
-
27博士申请自荐
+1/22
-
招收2027年-申请考核博士生-仿生材料/生物能源方向
+1/11
-
欢迎推免生/准推免生报名（约80名每年）--长期有效--物理/电子等所有理工专业
+1/9
-
北理工集成电路杰青团队 | 诚招科助理
+1/7
-
【牙科生物材料特刊征稿】对牙科方向友好（Scopus、DOAJ收录的正规国际期刊）
+1/7
-
【生物材料与生物打印专题征稿】Scopus期刊，免APC
+1/5
-
口腔特刊客座招募客编Biofunctional Materials牙科生物功能材料专题，Scopus期刊
+1/4
-
哈工大（深圳）招收工程热物理专业2027入学博士生
+1/2
-
招聘材料计算，分子动力学模拟相关讲师
+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): 谢谢参与