| 查看: 588 | 回复: 1 | ||
[求助]
Fortran 产生新文件的文件名长度改变 方法
|
|
用FORTRAN 编译成功一程序，40行代码以内的那种， 发现新生成的文件名的长度不够，但是总是修改不成功，请大神 看一眼。附代码和拟转化数据。 PROGRAM GROUP IMPLICIT DOUBLE PRECISION (A-H,O-Z) INTEGER B,F,G,H,PENT CHARACTER*3 PGROUP,filin*12,filen*20,base*5 INTEGER ORDER C ----------------------------------------------------------------- C FORTRAN 77 WITH NAG LIBRARY ROUTINES F02ABF AND F04AAF ----------------------------------------------------------------- PARAMETER (NMAX = 120) PARAMETER (MMAX = NMAX/2+2) DIMENSION A(NMAX,NMAX),B(NMAX,3),C(MMAX,MMAX) DIMENSION F(MMAX),G(3*NMAX),H(MMAX,6) DIMENSION ATOM(3,NMAX),BOND(3,3*NMAX),FACE(3,NMAX) DIMENSION AXIS(3,5*NMAX) DIMENSION PENT (31) C read(5,2084) filin 2084 format(a12) open(unit=8,status='old',file=filin) inumb=0 1 READ (8,*) N M = N/2+2 read(8,*) pent DO 24 I=1,M iii=pent(i) 24 f(i)=iii C inumb=inumb+1 C ICONST=ICHAR('0') IC1=inumb/100+ICONST ! WHY /100 IR=MOD(inumb,100) ! WHY TO GET MOD IC2=IR/10+ICONST IC3=MOD(IR,10)+ICONST FILEN=filin(1:5)//CHAR(IC1)//CHAR(IC2)//CHAR(IC3)//'.gjf' open(unit=7,file=filen,status='new',form='formatted') GO TO 1 END 附件中question为 操作说明和问题。 附件中fort为 拟转化文件。 附件中transfer为编译后的可执行程序。 |
回复此楼» 本帖附件资源列表
-
欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com - 附件 1 : fort.8
- 附件 2 : transfer
2015-10-29 14:27:10, 75.04 K
2015-10-29 14:27:11, 12.99 K
» 猜你喜欢
国自然上会要求
已经有9人回复
-
博士申请
已经有5人回复
-
面上本子正文33页，违规吗？会被低分嘛？
已经有9人回复
-
评审有感
已经有6人回复
-
今年审到国自然15份，谈谈感受
已经有16人回复
-
上海大学实验技术岗位非升即走
已经有8人回复
-
考博自荐
已经有6人回复
-
青C资助名额大幅增加！
已经有16人回复
-
重磅！青年科学基金项目（C类）资助增幅预计超过50%
已经有10人回复
-
我在等一个没有答案的答案
已经有3人回复
2楼2015-11-09 15:14:30
