24小时热门版块排行榜

>论坛更新日志 (3108)
>虫友互识 (769)
>文献求助 (191)
>休闲灌水 (148)
>导师招生 (136)
>考博 (128)
>教师之家 (81)
>找工作 (76)
>硕博家园 (74)
>博后之家 (73)
>论文投稿 (71)
>论文道贺祈福 (66)
>基金申请 (62)
>考研 (57)
>公派出国 (50)
>招聘信息布告栏 (32)

返回列表

leilei_

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 203
帖子: 9
在线: 4.3小时
虫号: 2284621
注册: 2013-02-17
专业: 星系和类星体

[求助] 求助 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 (^)

求各方大神赐教......

回复此楼