| 查看: 476 | 回复: 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 |
回复此楼» 猜你喜欢
805600专硕材料与化工348分求调剂
已经有6人回复
-
重庆大学材料与化工085600，初试370+，求求调剂建议
已经有5人回复
-
309求调剂
已经有3人回复
-
一志愿北交大材料工程，总分358
已经有4人回复
-
302求调剂一志愿北航070300，本科郑大化学
已经有11人回复
-
化学工程专硕324分，一志愿中国矿业大学求调剂
已经有7人回复
-
材料求调剂
已经有11人回复
-
【求调剂】新能源材料本科，一志愿211，初试321
已经有4人回复
-
336求调剂
已经有5人回复
-
材料求调剂
已经有8人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请帮忙看下编辑是什么意思，非常感谢
已经有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人回复
» 抢金币啦！回帖就可以得到:
-
液质联用LCMS
+1/1000
-
汕头大学胡良胜课题组招收化学、化工、材料方向调剂研究生3名
+1/185
-
东北石油大学PCAFM实验室研究生调剂招生（化学化工、材料等相关专业）
+1/87
-
哈尔滨工程大学核学院招收2名专硕调剂(能源动力)
+1/79
-
2026年宁波工程学院杜俊毅副研究员招收硕士研究生（含调剂）
+1/40
-
上海应用技术大学化工学部2026年招收化工和化学类调剂生
+1/37
-
2026年武汉纺织大学材料学院邓波教授团队接收调剂（硕士生4名）
+1/36
-
重庆大学李延军课题组招聘有机方向科研助理
+1/27
-
API项目寻求落地合作
+1/18
-
福建师范大学 2026硕士调剂 （化学、光电器件、物理、纳米材料方向）
+1/16
-
青岛科技大学0860 调剂招生
+1/11
-
湖南理工大学化学化工学院，化学、化工、材料与化工专业研究生调剂名额充足
+1/9
-
博士科研人员（化学过程工艺与硬件系统工程）
+1/8
-
武汉纺织大学招收化学化工类和材料类研究生调剂生若干名
+1/8
-
苏州科技大学胡老师课题组招2026年硕士生若干名
+1/7
-
国家双一流高校-国家级青年人才课题组博士招生
+1/6
-
材料科学与工程学院招生
+1/4
-
2026年中国科学院城市环境所与福建农林大学联合培养硕士研究生项目介绍
+1/4
-
杭州师范大学-浙江省湿地智慧监测与生态修复重点实验室团队硕士调剂公告
+1/4
-
招收2026级研究生
+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): 谢谢参与
