| 查看: 635 | 回复: 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 (^) 求各方大神赐教...... |
回复此楼» 猜你喜欢
288求调剂 一志愿哈工大 材料与化工
已经有31人回复
-
一志愿北京科技大学085601材料工程英一数二初试总分335求调剂
已经有5人回复
-
085801 总分275 本科新能源 求调剂
已经有17人回复
-
324求调剂
已经有6人回复
-
学硕化学工程与技术，一志愿中国海洋大学320+求调剂
已经有7人回复
-
材料调剂
已经有5人回复
-
初试301，代码085701环境工程，本硕一致，四六级已过，有二区一作，共发表5篇论文
已经有6人回复
-
化学308分调剂
已经有15人回复
-
346求调剂
已经有3人回复
-
环境285分，过六级，求调剂
已经有6人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 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
