| 查看: 671 | 回复: 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
» 猜你喜欢
越来越担心硕士毕业后没有竞争力了
已经有14人回复
-
论文的挂名怎么评判贡献？基金申请中，排名第一的挂名文章
已经有3人回复
-
申博自荐 2篇一区TOP+1篇EI+2公开发明专利 2027博士申请
已经有3人回复
-
闲聊
已经有6人回复
-
申博求助
已经有4人回复
2楼2015-11-09 15:14:30