| 查看: 2038 | 回复: 23 | |||
[交流]
【求助】如何实现数字紧贴字母输入
|
|
H 1 H 2 H 3 H 4 H 5 H 6 H 7 H 8 H 9 H 10 H 11 H 12 请教前辈，如何让后面的数字紧贴着字母输入呢后面还有几百行 |
回复此楼» 猜你喜欢
316求调剂
已经有6人回复
-
346求调剂[0856]
已经有7人回复
-
一志愿山大07化学 332分 四六级已过 本科山东双非 求调剂！
已经有3人回复
-
310求调剂
已经有3人回复
-
机械专硕299求调剂至材料
已经有4人回复
-
070300化学319求调剂
已经有7人回复
-
08工科 320总分 求调剂
已经有6人回复
-
一志愿天津大学化学工艺专业（081702）315分求调剂
已经有12人回复
-
307求调剂
已经有3人回复
-
265求调剂
已经有3人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 【求助】光栅重构DLP(Discrete Layer Peeling)模型
已经有2人回复
- 【资源】催化剂制备中浸渍（等体积浸渍）不断改进
已经有151人回复
- 【求助】帮忙看一段程序
已经有9人回复
- 【讨论】80后”创业者何以前仆后继
已经有0人回复
- 【分享】巨牛总结：搞有机必须学会的合成检索方法
已经有169人回复
» 抢金币啦！回帖就可以得到:
-
材料、化学类硕士研究生调剂机会，学硕专硕均可，有意请联系，非诚勿扰！
+1/88
-
加拿大阿尔伯塔大学招收电磁、无线通信、机器学习方向全奖硕士/博士/博士后/访问学者
+1/53
-
欢迎交流咨询
+1/44
-
河南工学院诚聘优秀凝聚态物理和电子科学与技术相关专业硕博研究生
+2/38
-
从专科一路到211硕士，到TOP5博士，也想进高校体制
+1/31
-
西北工业大学光子学研究团队诚聘博士后！
+2/30
-
中国科学院杭州医学研究所覃江江课题组招聘博士后
+1/30
-
中山大学院士团队微纳器件、脑机接口方向博士招生、博后招聘
+1/18
-
招聘科研助理——储能方向（储能、流体传热、CFD模拟）
+1/16
-
宁波东方理工大学余鹏课题组2026年上海交大联培博士生、博士后、科研助理招聘
+1/15
-
26年博士自荐
+1/14
-
重庆文理学院化学与环境工程学院 2026 届硕士研究生调剂通知
+1/13
-
南开大学陈树琪教授研究团队招收2026级超构材料方向博士研究生
+1/10
-
江西赣州-赣南师范大学-学校推荐
+1/7
-
三峡大学 计算力学课题组招收调剂（力学/水利/土木/计算机/机械/电子信息）
+1/7
-
青岛科技大学可持续高分子团队 考研招生
+1/6
-
新加坡国立大学药学系化学生物学课题组招PhD
+1/6
-
【第三轮招生】澳科大诚招2026年秋季药剂学硕士研究生（3月31日下午18:00截止）
+1/5
-
国家级人才团队诚聘生物信息相关专业的科研助理
+1/4
-
南京林业大学化学工程学院柏惺峰课题组招收2026年申请考核制博士2名
+1/4
★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
xk6891(金币+5):谢谢前辈，问题解决了。用了第二种方法 2011-01-12 10:32:06
余泽成(金币+3):谢谢参与应助！ 2011-01-13 19:47:34
小木虫(金币+0.5):给个红包，谢谢回帖交流
xk6891(金币+5):谢谢前辈，问题解决了。用了第二种方法 2011-01-12 10:32:06
余泽成(金币+3):谢谢参与应助！ 2011-01-13 19:47:34
|
program align_left_output_1 do i=1,200 L=int(log10(i*1.0))+1 write(*,100) i enddo 100 format('H'I end program program align_left_output_2 character*8 tmpchar do i=1,200 write(tmpchar,'(I8)') i write(*,*) 'H'//adjustl(tmpchar) enddo end program 第一种方法形式简单，容易理解。但变宽度输出依赖于编译器，可移植性不好；而且用到了对数运算，在数据量很大时效率较低。 第二种方法借用了临时字符串做内部文件，效率可能更高一些。 |
2楼2011-01-12 09:17:49
3楼2011-01-12 10:37:14
4楼2011-01-12 13:49:20
5楼2011-01-12 14:13:53
6楼2011-01-12 20:44:29
7楼2011-01-13 08:49:44
8楼2011-01-13 09:44:55
9楼2011-01-13 10:13:10
|
请教个问题，用fortran读取文件编译通过，但是读取的时候出现这个错误“Fortran runtime error: End of file”，贴上说在文本的最后敲enter，但是没解决（昨天成功读取了，今天又不行了） 参考的是这个帖子http://muchong.com/bbs/viewthread.php?tid=2760897里面的code |
10楼2011-01-13 10:19:56
11楼2011-01-13 10:25:59
|
还是不明白，您能否再细致明示一下，是read（……）括号当中的什么选项。  这个帖子http://forum.simwe.com/viewthread.php?tid=852737有时候成功，我把里面第一个程序中read（100）改成了*，昨天成功了几次，但是修改成要读我的数据数目时，就失败了  ，没看懂[ Last edited by xk6891 on 2011-1-13 at 11:15 ] |
12楼2011-01-13 11:09:00
13楼2011-01-13 11:21:43
|
这是帖子上的内容 说明：我不知道你的文件里面的具体格式，所以只能用格式语句100来表示了，具体自己弄吧。我下面这个程序是把文件里面的所有数据都读取出来，然后用了一个do循环，将你要的第三列数据赋值给了b数组，不知道是不是你想要的。implicit real*8 (a-h,o-z) dimension a(3,7),b(3,1) open (1,file='shuju.dat',form='formatted',status='unknown') do i=1,3 read (1,100) (a(i,j),j=1,7) end do close (1) do i=1,3 b(i,1)=a(i,3) end do end 复制代码 为的是读取这组数据中的第三列 例如这样一个文件： 1 2 3 4 5 u 1 2 3 6 5 x 55 2 2 3 6 9 5 4 5 如果只想读入其中第三列，也就是第三个空格(backspace)处的数字，如何实现呢？ 谢谢！！！ 对于fortran对文本数据操作没有看懂，觉得文本操作时read write里面很多选项，但是貌似作用不大，是这样么 [ Last edited by xk6891 on 2011-1-13 at 11:30 ] |
14楼2011-01-13 11:28:53
15楼2011-01-13 11:44:30
16楼2011-01-13 13:27:10
17楼2011-01-13 13:43:30
18楼2011-01-13 13:50:11
19楼2011-01-13 13:53:32
想看一看 20楼2011-01-13 14:14:43
21楼2011-01-13 19:59:40
★ ★
jjdg(金币+2): 感谢参与 2011-06-17 22:09:03
jjdg(金币+2): 感谢参与 2011-06-17 22:09:03
|
好的，找来看一看 fortran对于格式的要求很严格，刚开始读取数据的时候出现的是 At line 10 of file tiH.f90 (unit = 17, file = 'wa_xyz.dat') Fortran runtime error: End of file 这个错误修改之后，对于读取和写入数据采取不同的格式之后，看出了问题所在，下面是 [code:] program main implicit none integer i,j character B real A dimension B(768),A(768,3) open(17,file='wa_xyz',status='old') do i=1,768 read (17,*) B(i),A(i,1),A(i,2),A(i,3) end do close(17) open(18,file='nem_wa_xyz',status='unknown') do i=1,768 if(mod(i,3)/=0)then write(18,*)(B(i),A(i,j),j=1,3) end if end do close(18) stop end program [code:] 读取这样一段数据： O 3.668000 10.082000 15.904000 H 3.224000 10.451000 15.101000 H 3.092000 10.379000 16.627001 O 5.186000 16.695999 12.072000 H 6.083000 16.979000 11.816000 H 5.337000 15.832000 12.490000 O 3.786000 16.318001 1.310000 H 3.781000 15.388000 1.196000 H 4.528000 16.580000 0.781000 O 6.205000 6.991000 18.441999 H 6.782000 7.347000 19.152000 H 5.309000 7.062000 18.799999 O 16.125999 14.701000 4.577000 H 16.070000 14.272000 3.726000 ……………………………………………………………………………… 得到的如下 O 3.6680000 O 10.082000 O 15.904000 H 3.2240000 H 10.451000 H 15.101000 O 5.1859999 O 16.695999 O 12.072000 H 6.0830002 H 16.979000 H 11.816000 O 3.7860000 O 16.318001 O 1.3099999 H 3.7809999 H 15.388000 H 1.1960000 O 6.2049999 O 6.9910002 O 18.441999 H 6.7820001 H 7.3470001 H 19.152000 O 16.125999 O 14.701000 O 4.5770001 H 16.070000 H 14.272000 H 3.7260001 O 2.7500000 O 8.8439999 O 9.6289997 H 2.1099999 H 8.2900000 H 9.9980001 O 10.674000 O 8.9090004 O 4.9860001 H 10.998000 H 8.8710003 H 5.9320002 O 2.00000009E-03 O 5.6669998 O 14.591000 H 0.48300001 H 5.9899998 H 13.830000 ……………………………………………………………………………… 这就可以明显的看出问题是出在哪里了，本来读取数据的时候采用的是和写入一样的方式(B(i),A(i,j),j=1,3),一直出现上面的错误，记录一下，以备日后学习汲取教训 [ Last edited by xk6891 on 2011-3-20 at 13:20 ] 进一步修改成这样就顺多了，首先要能读，然后才是写入数据 code: program main implicit none integer i,j character B real A dimension B(768),A(768,3) open(17,file='wa_xyz',status='old') do i=1,768 read(17,*)B(i),A(i,1),A(i,2),A(i,3) end do close(17) open(18,file='nem_wa_xyz',status='unknown') do i=1,768 if(mod(i,3)/=0)then write(18,"(A3,3(F16.6))"  B(i),A(i,1),A(i,2),A(i,3)end if end do close(18) stop end program code: 得到的结果 O 3.668000 10.082000 15.904000 H 3.224000 10.451000 15.101000 O 5.186000 16.695999 12.072000 H 6.083000 16.979000 11.816000 O 3.786000 16.318001 1.310000 H 3.781000 15.388000 1.196000 O 6.205000 6.991000 18.441999 H 6.782000 7.347000 19.152000 O 16.125999 14.701000 4.577000 H 16.070000 14.272000 3.726000 O 2.750000 8.844000 9.629000 [ Last edited by xk6891 on 2011-3-20 at 13:25 ] |
22楼2011-01-13 23:56:56
23楼2011-01-14 07:36:37
24楼2011-06-17 16:56:36
