Fortran Coder

标题: 变数组问题 [打印本页]

作者: huiselilun 时间: 2016-10-14 16:23
标题: 变数组问题
我需要向一个数组data(n)中添加数据，n是迭代步数，一开始不确定。当迭代结束后以（自然数-data(n)）画曲线，我该怎么定义数组？

作者: vvt 时间: 2016-10-14 16:27
用链表。

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

Program www_fcode_cn 

  Implicit None

  Integer :: iCount , i

  Real :: rRead

  Type :: stPLink

    Real :: rValue

    Type(stPLink) , Pointer :: pNext

  End Type stPLink

  Type( stPLink ) , Target :: stLocal

  Type( stPLink ) , Pointer :: pLocal

  pLocal => stLocal

  iCount = 0

  rRead = 1.0

  write(*,*) '请输入一些数，输入0结束：'

  Do

    Read(*,*) rRead

    If ( rRead < 0.0001 ) then

      Exit

    End If

    pLocal%rValue = rRead

    Allocate( pLocal%pNext ) 

    pLocal => pLocal%pNext

    iCount = iCount + 1

  End Do

  pLocal => stLocal

  Do i = 1 , iCount

    Write(*,*) pLocal%rValue

    pLocal => pLocal%pNext

  End Do

End Program www_fcode_cn

作者: huiselilun 时间: 2016-10-17 22:11

vvt 发表于 2016-10-14 16:27
用链表。

[mw_shl_code=fortran,true]Program www_fcode_cn

我正想问群里有没有指针教程，然后就看见要出的下一个视频就是关于指针的

作者: huiselilun 时间: 2016-10-20 15:24
本帖最后由 huiselilun 于 2016-10-20 15:28 编辑

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

Type :: stPLink

      Double Precision :: Value

      Type(stPLink) , Pointer :: pNext

End Type stPLink

.

.

.

Type( stPLink ) , Pointer :: pwor(:)

.

.

.

Allocate(pwor%pNext, stat=err)

如果我的链表里的数据值是个数组怎么办？上面是我的定义，分配内存的时候提示pNext错误：

error #6563: A component with POINTER attribute may NOT be to the right of an array component (6.1.2). [PNEXT]

作者: pasuka 时间: 2016-10-20 19:29
考虑混合的编程的话
C可以参考
http://troydhanson.github.io/uthash/utlist.html
http://troydhanson.github.io/uthash/utarray.html
C++直接上vector
考虑写入外存的话
直接按照一定的规则写成文本或二进制文件，用得顺手就行

作者: huiselilun 时间: 2016-11-4 09:46

pasuka 发表于 2016-10-20 19:29
考虑混合的编程的话
C可以参考
http://troydhanson.github.io/uthash/utlist.html

已经用fortran链表完美解决了，谢谢

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)