fortran用派生数据实现链表

最新推荐文章于 2025-03-23 00:56:09 发布

chder_白南

最新推荐文章于 2025-03-23 00:56:09 发布

阅读量1.9k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： FortranNote Fortran教程文章标签： fortran

本文链接：https://blog.youkuaiyun.com/chd_lkl/article/details/83796689

FortranNote 同时被 2 个专栏收录

81 篇文章

订阅专栏

Fortran教程

68 篇文章

订阅专栏

本文介绍了一个使用Fortran实现的链表操作示例，包括读取文件数据到链表、遍历链表并输出数据的过程。示例中定义了链表节点类型，实现了链表初始化、插入和输出功能，展示了Fortran在数据结构处理上的应用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

代码如下：
Module chainTableMod 
    implicit none 
    type :: real_value
        real :: value
        type( real_value ), pointer :: next
    end type 
    type( real_value ), pointer     :: head
    type( real_value ), pointer     :: tail
    type( real_value ), pointer     :: ptr
    character(len=20)               :: fname
    integer                         :: istat, fileid
    real                            :: temp
contains
    
    subroutine chainTable
        implicit none
        write( *,'(1x,a)' ) 'please input the filename: '
        read( *,'(a)' ) fname
        open( newunit = fileid, file = trim(fname), iostat = istat )
        fileopen: if ( istat == 0 ) then  !.. open file successfully
            input: do
                read( fileid, *, iostat = istat ) temp
                if ( istat /= 0 ) exit input
                if ( .not. associated(head) ) then
                    allocate( head, stat = istat )
                    tail       => head
                    tail%next  => null()
                    tail%value = temp
                else
                    allocate( tail%next, stat = istat )
                    tail       => tail%next
                    nullify( tail%next )
                    tail%value = temp
                end if
            end do input
        
            !.. write out the data
            ptr => head
            output: do
                if ( .not. associated(ptr) ) exit
                write( *,'(1x,f10.4)' ) ptr%value
                ptr => ptr%next
            end do output
        else  !.. open file failed
            write( *,'(1x,a,g0)' )  'file open failed--status = ', istat
        end if fileopen
        
    end subroutine chainTable
    
    
End module chainTableMod
    
Program main
    use chainTableMod
    implicit none
    call chainTable
End program main

需要用到的文件名为：input.dat
文件input.dat数据如下：
1.1
2.34
0.0
4.6
7.2
5.6
8.2
1.9
4.2
3.3
4.1

执行代码，结果如下：
1.1
2.34
0.0
4.6
7.2
5.6
8.2
1.9
4.2
3.3
4.1