fortran读取txt文件并赋值

WHX

   想请教一下各位大佬，我想用Fortran读取txt文件，一共15行，第一行代表有几组数据，一组数据有七行，然后每七行进行赋值怎么实现，能不能帮我写一下
        module typ_vis        implicit none
        type :: vis
          integer::nlink  !表示第几组
          real*8 :: c1
          real*8 :: c2
          real*8 :: a1
          real*8 :: a2
          real*8 :: d1
          real*8 :: d2    !spring parameters
        end type vis
      end module typ_vis

       subroutine ReadLinkProp()
        use typ_vis
        implicit none
        integer::I
        integer::nOfsprng  ！表示一共几组
        type(visdamper),allocatable::AllSprngProps(:)
        if (.not.allocated(AllSprngProps)) then
            allocate(AllSprngProps(100))
        end if

                        open(55,file='vis.txt')
              read(55,*) nOfsprng   ！读取一共多少组
                        !write(*,*) "nOfSprng", nOfSprng
              do I=1, nOfSprng
              read(55,*) AllSprngProps(I)%nlink,  ！读取第几组
     1                 AllSprngProps(I)%c1,
     2                 AllSprngProps(I)%c2,
     3                 AllSprngProps(I)%a1,
     4                 AllSprngProps(I)%a2,
     5                 AllSprngProps(I)%d1,
     6                 AllSprngProps(I)%d2,
              end do
                        close(55)

        return
      end subroutine ReadLinkProp
（txt文件如下：
     2  ！表示两组数据
      1！表示第一组
      300
      600
      0.2
      0.3
      0.01
      0.02
      2！表示第二组
      400
      700
      0.4
      0.5
      0.03
      0.04）

Transpose

[Fortran] 纯文本查看 复制代码

         type(visdamper),allocatable::AllSprngProps(:)

改为

[Fortran] 纯文本查看 复制代码

         type(vis),allocatable::AllSprngProps(:)

WHX

Transpose 发表于 2022-12-23 11:11
改为
...

想请教一下我这样写可以吗？其他地方有没有逻辑和语法错误呢？