fortran读取文件求助

uni

小弟在读取一个数据文件时，遇到一个这样的问题一直报错：
我的目标是：分别读z和zz的数据并只把字符z和zz输到屏幕。
具体数据文件（*.40）内容是这样的：
Z  
0.00000E+00-0.35714E-01-0.71429E-01-0.14286E+00-0.21429E+00-0.28571E+00-0.35714E+00-0.42857E+00
-0.50000E+00-0.57143E+00-0.64286E+00-0.71429E+00-0.78571E+00-0.85714E+00-0.92857E+00-0.10000E+01
ZZ
-0.17857E-01-0.50508E-01-0.10102E+00-0.17857E+00-0.25000E+00-0.32143E+00-0.39286E+00-0.46429E+00
-0.53571E+00-0.60714E+00-0.67857E+00-0.75000E+00-0.82143E+00-0.89898E+00-0.96429E+00-0.10357E+01
其中我写的读取命令是这样的：
      read(40,'(a5)') field
      write(6,'(a5)') field
       read(40,'(22E12.5)') z
      read(40,'(a5)') field
      write(6,'(a5)') field
       read(40,'(8E12.5)') zz

应该是我的read语句有问题，具体该怎么改各位大神给点指导啊。O(∩_∩)O谢谢