dmcc_ies
Joined: 09 Dec 2011
Posts: 4
|
 Posted: Mon Dec 12, 2011 5:53 pm Post subject: importing Intel Visual Fortran .dll Procedures |
 |
|
Hello, I am currently mixing ftn95 and ifort projects in visual studio 2010 but am encountering difficulties.
My silverfrost program calls a dll subroutine with no arguments:
| Code: | program ftn95_prog
stdcall intelSimple "intelSimple"
call intelSimple() ! Call a simple intel fortran function (no args)
write(*,*) "hit return to terminate..."
end program ftn95_prog |
My Intel .dll is composed of 3 external functions:
| Code: | subroutine intelSimple()
!DEC$ ATTRIBUTES DLLEXPORT, STDCALL, DECORATE,ALIAS:'intelSimple' :: intelSimple
interface
subroutine subA()
end subroutine subA
end interface
write(*,*) "simple intel subroutine called"
call subA()
end subroutine intelSimple
subroutine subA()
!subroutine for calling "subB" with an array argument
integer,dimension(3,3) :: array
interface
subroutine subB(array)
integer,intent(inout),dimension(:,:) :: array
end subroutine subB
end interface
array=1
call subB(array)
end subroutine subA
subroutine subB(array)
integer,intent(inout),dimension(:,:) :: array
array=2
end subroutine subB |
When running this program I expect an array argument with shape = (3,3) to be passed into "subB", instead I find it has shape = (19241...,1,1,0)
Everything apears fine until I step into subroutine subB.
I would appreciate any help whatsoever
Thanks |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
