[Fortran] 纯文本查看 复制代码
module ModParticle
implicit none
integer::x=4
type ParticleType
real(4) , allocatable :: MassGas(:)
contains
Procedure :: CopyParticle => CopyParticle
end type
contains ! Routines of this module
Subroutine CopyParticle( this , ID )
integer(4), intent(in) :: ID
class(ParticleType) :: this
this%MassGas = 0.1
End Subroutine CopyParticle
subroutine CopyType(TempParticlesx,TempParticles)
type(ParticleType)::TempParticles
type(ParticleType)::TempParticlesx
allocate(TempParticles%MassGas(x))
TempParticlesx%MassGas = TempParticles%MassGas
deallocate(TempParticles%MassGas)
end subroutine
end module
[Fortran] 纯文本查看 复制代码
PROGRAM Main
use ModParticle
implicit none
integer::i
type(ParticleType)::TempParticles
type(ParticleType)::TempParticlesx
allocate(TempParticles%MassGas(x))
do i = 1, size(TempParticles%MassGas)
call TempParticles%CopyParticle(i)
end do
write(*,*) TempParticles%MassGas
call CopyType(TempParticlesx,TempParticles)
write(*,*) TempParticlesx%MassGas
deallocate(TempParticles%MassGas)
END PROGRAM Main
