用Fortran怎么实现尾插法

li913

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

!  主程序
program T
implicit none
type node
    real val
    type(node),pointer :: P
end type
type(node),pointer :: pHead=>null(), pTail=>null(), pTemp=>null()  !指针置空
integer istat, num, i
real rTemp

nullify(pHead, pTail, pTemp )  !断开关联（置空）
open(1,file='1.txt')
num = 0
do  !循环读取数据
    read(1,*,iostat=istat) rtemp
    if(istat/=0) exit
    num =num + 1
    if( .NOT.associated(pHead) ) then  !第一个数据
        allocate(pHead)  !分配空间
        pTail => pHead    !pHead、pTail均指向第一个数据
        !nullify(pTail.P)
        phead.val =rTemp
    else
        allocate(pTail.P)
        pTail => pTail.P
        !nullify(pTail.P)
        pTail.val =rTemp
    end if
end do
close(1)
if( associated(pTail) ) nullify(pTail.P)  !如果有数据，最后一个节点的指针置空
print*,num
do i=1,num  !循环输出
    !if( .NOT.associated(pHead) ) exit
    write(*,*) pHead.val
    pTemp => pHead
    pHead => pHead.P
    deallocate(pTemp)  !销毁数据
end do
pause
end program T