我被下面的例子弄糊涂了:
TYPE :: car
real :: x, u ! position, velocity
real :: y, v !
real :: z, w !
real,dimension(3) :: uvw_0 ! initial uvw
END TYPE
TYPE (car), pointer:: mercedes
TYPE (car), DIMENSION(m,n,q,r), TARGET :: mercedes_ay
它看起来像一个对象的实现,但是是什么
TYPE (car), DIMENSION(m,n,q,r), TARGET :: mercedes_ay
关于 TYPE(car) - DIMENSION(m,n,q,r) 引用了哪些变量? mercedes_ay(1,1,1,1) 是什么意思? mercedes(1,1,1,1) 是什么意思?
最佳答案
它所做的只是声明一个维度为 (m,n,q,r) 的 car
数组。不过,您的示例代码并未定义这些维度。
mercedes_ay(1,1,1,1)
是数组中的第一辆车。所以mercedes_ay(1,1,1,1)%x
就是第一辆车的x
位置。 mercedes_ay(1,1,1,1)%uvw_0(1)
是第一辆车的初始u
。等等。
mercedes(1,1,1,1)
是不可能的,因为它没有维度,它是一个标量。所以它只能指向一个标量。相反,它可能会像这样使用:
mercedes => mercedes_ay(1,1,1,1)
这意味着您将 mercedes
指向数组中的第一辆车。它基本上充当别名。
关于object - Fortran 派生类型 :,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/13196201/