如何在Fortran中读取下列格式的文本？
  1  X=0  Y=18  Z=0
  2  X=0  Y=18  Z=3
  3  X=6  Y=18  Z=0
  4  X=6  Y=18  Z=3
  5  X=0  Y=12  Z=0
  6  X=0  Y=12  Z=3
  7  X=6  Y=12  Z=0
  8  X=6  Y=12  Z=3

上面的数据  1  X=0  Y=18  Z=0，其中1为节点号，后面三个是节点的坐标
想把节点号和其坐标关联起来以备以后通过节点号来调用，于是想用数组，如果只是一个节点，那么一个一行四列的数组joint（1:4）就可以了。
但是由于程序通常不知道到底有多少个节点，又需要通过循环来不断读取数据。于是就不知道这个数组的维数，不知道该如何解决那？  

下面是我根据楼上的改写的，不知道有什么问题
    dimension joint(:4)
    integer :: a,ax,ay,az
      character(len=10) :: x,y,z,tmpx,tmpy,tmpz

    open (10,file='1.dat',status='unknown')
    open (11,file='2.dat',status='unknown')
      read(10,*)a,x,y,z

      tmpx=x(3:)
    tmpy=y(3:)
    tmpz=z(3:)

      read(tmpx,*)ax
      read(tmpy,*)ay
      read(tmpz,*)az

    joint(1,1)=a
    joint(1,2)=ax
    joint(1,3)=ay
    joint(1,4)=az

    write(11,*)joint

    end

这样格式又如何读取？
NO. OF POINTS:  24256  
EQUALLY SPACED INTERVALS OF:  0.005  SEC

-1.072970E-001 -1.072970E-001 -9.958957E-002 -9.958957E-002 -1.072970E-001 -1.034439E-001 -9.573565E-002 -1.034439E-001
-9.958957E-002 -1.034439E-001 -1.072970E-001 -9.958957E-002 -9.958957E-002 -1.111513E-001 -9.958957E-002 -9.958957E-002
-1.072970E-001 -1.034439E-001 -1.072970E-001 -1.072970E-001 -1.072970E-001 -9.958957E-002 -1.072970E-001 -1.111513E-001