This is my code sample and I simplified it.
Module NumData
interface
subroutine Write_Model(ModelOut)
!DEC$ ATTRIBUTES DLLEXPORT,REFERENCE,STDCALL,DECORATE,ALIAS : 'Write_Model' ::
end subroutine
end interface
type NumInfo
integer(kind=4):: num
end type
type MyModel
type(Numinfo):: TotalNum
integer(kind=4),allocatable,dimension(:) :: Values
end type
type(MyModel),allocatable, target:: ModelIn
contains
subroutine Write_Model(ModelOut)
!DEC$ ATTRIBUTES DLLEXPORT,REFERENCE,STDCALL,DECORATE,ALIAS : 'Write_Model' :: Write_Model
type(MyModel), intent(in):: ModelOut
if(allocated(ModelIn)) deallocate(ModelIn)
allocate(ModelDIn)
ModelDIn=ModelDOut
end subroutine
end NumData
When I call Write_Model, ModelDIn assigned failed in ivf2020. Could someone tell me WHY ? Do I miss any configuration?
Regards.👷
configure
