| 查看: 558 | 回复: 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
» 猜你喜欢
材料考研调剂
已经有3人回复
-
材料调剂
已经有12人回复
-
英一数一408，总分284，二战真诚求调剂
已经有14人回复
-
085410 一志愿211 22408分数359求调剂
已经有4人回复
-
271求调剂
已经有19人回复
-
385分 生物学（071000）求调剂
已经有3人回复
-
一志愿安徽大学计算机科学与技术学硕，331分求调剂
已经有3人回复
-
318求调剂，计算材料方向
已经有8人回复
-
291求调剂
已经有25人回复
-
一志愿北京科技大学085601材料工程英一数二初试总分335求调剂
已经有6人回复
2楼2015-11-09 15:14:30
