dll call problem. Urgent Help 1

[bengalliboy]

Please some one help me: I made a fortran dll and am trying to call it from a VB (6) program and am getting the following Runtime error (455): Can't Find DLL entry point DLL_OUT in C;\test\file.dll

What am I missing>?
Here is the code:
Private Sub Command1_Click()

num1 = InputBox("Please enter number 1:")
num2 = InputBox("Please enter number 2:")

'Static STR_IN As String * 10, STR_OUT As String * 20

'Rem Pass lengths of string arguments

Call total1(num1, num2, total)

TextBox1.Text = total

End Sub
Declare Sub total1 Lib "C:\TryVB\myDLL\Debug\myDLL.dll" (ByRef num1 As Integer, ByRef num2 As Integer, ByRef total As Integer)
fortran:
subroutine total1(num1,num2,total)
integer num1,num2,total
total = num1 + num2
write(*,*)total
end

 

[darrellblackhawk]

Not sure how you create a dll with the fortran compiler;
although I'm sure it's similiar to other languages; but
I assume your functions in the fortran dll are not being
exported - so VB can't see them.

If the fortran comiler creates COM/ActiveX dlls, and
doesn't export the dll functions - as VB does - you'll
to use a OLE control to house the fortran dll in VB.

Just some thoughts.

Darrell

 

[darrellblackhawk]

Just found this link while looking for something else.
Hope it helps.

Darrell

http://h18009.www1.hp.com/fortran/docs/vf-html/pg/pgwvbusr.htm