CUDA Fortran 结构体问题

li913

1、去掉 第六行的 allocatable;
2、MODULE Global_variables 放在最开始;      
3、主程序 use Compute。

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

MODULE Global_variables
IMPLICIT NONE
type Person
    integer(kind=4)                        ::     age                    ! 年龄
    integer(kind=4)                        ::     height                 ! 身高
    integer(kind=4)                        ::     weight                 ! 体重
end type
END module

MODULE Compute
USE Global_variables
IMPLICIT NONE
CONTAINS
attributes ( global ) SUBROUTINE Age_add(People_d)
INTEGER                :: I,N1
type(Person) :: People_d(:)
I=(BLOCKIDX%X-1)*BLOCKDIM%X+THREADIDX%X
N1=SIZE(People_d,1)
IF (I>N1) RETURN
People_d(I)%age = People_d(I)%age + 1
END SUBROUTINE
END

program Test
use cudafor
use Global_variables
use Compute
implicit none
integer , parameter :: PersonNum = 10000
type(Person),       allocatable              :: People(:)
type(Person),device,allocatable              :: People_d(:)
integer :: i
allocate(People(PersonNum))
allocate(People_d(PersonNum))
DO i = 1, PersonNum
    People(i)%age = i
    People(i)%height = i
    People(i)%weight = i
ENDDO
People_d = People
CALL Age_add<<<CEILING(REAL(PersonNum)/256),256>>>(People_d)
People = People_d
write(*,*) People(500)%age
write(*,*) SIZE(People, 1)
end program Test