| 查看: 636 | 回复: 1 | ||
[求助]
求助 fortran 有关读书据
|
|
我的原数据是这样的 RXJ0056.9-2740 00:56:56.1 -27:40:12 RXJ0110.3+1938 01:10:18.0 19:38:23 RXJ0154.2-5937 01:54:14.8 -59:37:48 RXJ0522.2-3625 05:22:14.2 -36:25:04 RXJ0826.1+2625 08:26:06.4 26:25:47 RXJ0841.1+6422 08:41:07.4 64:22:43 RXJ0847.1+3449 08:47:11.3 34:49:16 RXJ0926.6+1242 09:26:36.6 12:42:56 RXJ0957.8+6534 09:57:53.2 65:34:30 RXJ1015.1+4931 10:15:08.5 49:31:32 RXJ1117.2+1744 11:17:12.0 17:44:24 RXJ1123.1+1409 11:23:10.2 14:09:44 RXJ1354.2-0221 13:54:16.9 -02:21:47 RXJ1540.8+1445 15:40:53.3 14:45:34 RXJ1642.6+3935 16:42:38.9 39:35:53 RXJ2059.9-4245 20:59:55.2 -42:45:33 RXJ2108.8-0516 21:08:51.2 -05:16:49 RXJ2139.9-4305 21:39:58.5 -43:05:14 RXJ2202.7-1902 22:02:44.9 -19:02:10 RXJ2328.8+1453 23:28:49.9 14:53:12 这三组数据前面的是名字 后面的我想分别提取这6个数 ，编程如下 ，报错如下 求指教 program exp integer n parameter (n=20) integer ra_h(n),ra_m(n),dec_d(n),dec_m(n),i real ra_s(n),dec_s(n) character*15 name(n) character*1 colon1(n),colon2(n),colon3(n),colon4(n) open(unit=11,file='file1') do i=1,20 read(11, 100)name(i),ra_h(i),ra_m(i),ra_s(i), 1 dec_d(i),dec_m(i),dec_s(i) c read(11,"(c15,I3,c1,I2,c1,F3.1,I3,c1,I2,c1,F3.1"  name(i),c 1 ra_h(i),colon1(i),ra_m(i),colon2(i),ra_s(i), c 1 dec_d(i),colon3(i),dec_m(i),colon4(i),dec_s(i) end do write(*,*)'read end i=',i do i=1,20 write(*,*)name(i),ra_h(i),ra_m(i),ra_s(i), 1 dec_d(i),dec_m(i),dec_s(i) end do 100 format (A14,1X,I2,1X,I2,1X,F3.1,1X,I3,1X,I2,1X,I2) stop end ========================================================= exp1.f: In program `exp': exp1.f:24: 100 format (A14,1X,I2,1X,I2,1X,F3.1,1X,I3,1X,I2,1X,I2) 1 2 Label at (1) invalid with continuation line indicator at (2) [info -f g77 M LEX] exp1.f:24: 100 format (A14,1X,I2,1X,I2,1X,F3.1,1X,I3,1X,I2,1X,I2) ^ Invalid form for END statement at (^) exp1.f:20: do i=1,20 1 exp1.f:26: (continued): end 2 Statement at (2) invalid in context established by statement at (1) exp1.f:20: do i=1,20 ^ End of source file before end of block started at (^) exp1.f:12: read(11, 100)name(i),ra_h(i),ra_m(i),ra_s(i), ^ Undefined label, first referenced at (^) 求各方大神赐教...... |
回复此楼» 猜你喜欢
362求调剂
已经有14人回复
-
求调剂 302分初试 0854
已经有4人回复
-
299求调剂
已经有4人回复
-
266分，一志愿电气工程，本科材料，求材料专业调剂
已经有3人回复
-
312求调剂
已经有4人回复
-
315求调剂
已经有7人回复
-
土木304求调剂
已经有3人回复
-
316求调剂
已经有16人回复
-
一志愿华东理工大学，080500学硕，317分，求调剂
已经有13人回复
-
材料与化工306分找调剂
已经有9人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- fortran输出求助
已经有6人回复
- 求助学习fortran的书籍
已经有5人回复
- 求助Fortran编程
已经有8人回复
- 【求助】Fortran语言赋值问题？
已经有3人回复
- 【求助】FORTRAN写文件时每行开头都多了一个空格？
已经有6人回复
- 【求助】用fortran怎么描述下面这样的情况，我是新手，请大家帮忙
已经有8人回复
- 【求助】初学fortran，
已经有15人回复
- 【求助】请问一下fortran的可视化编程
已经有7人回复
- 【求助】Fortran 如何读取文件中特定行的内容
已经有16人回复
- 【求助】有关fortran进行数值模拟
已经有10人回复
- 【求助】visual fortran6.5 的使用
已经有5人回复
- 【求助】fortran计算时出现NaN
已经有11人回复
weiwei43
至尊木虫 (正式写手)
- 应助: 16 (小学生)
- 金币: 18316.1
- 红花: 6
- 帖子: 737
- 在线: 94.7小时
- 虫号: 250282
- 注册: 2006-05-13
- 专业: 机械动力学
2楼2013-02-26 09:59:59
