REAL(8) FUNCTION SUMFT(A, B)
  !DEC$ ALIAS SUMFT, "SUMFT" 
  !DEC$ ATTRIBUTES DLLEXPORT:: SUMFT  
  !DEC$ ATTRIBUTES VALUE :: A     
  !DEC$ ATTRIBUTES VALUE :: B    
REAL(8) A
REAL(8) B

      SUMFT  = A + B 
END 

gfortran -c test.f90
gfortran -shared -mrtd -o test.dll test.o

#include <Origin.h>
#include "test.h"
#pragma labtalk(1,Math)
double SUMFTmy(double A, double B)
{
	return SUMFT(A,B);
}

#pragma dll("C:\Users\Alexey\Documents\OriginLab\2015\User Files\OriginC\test\test.dll")
// Prototype of the function in the external DLL
double __stdcall SUMFT(double A, double B);

C:\Users\Alexey\Documents\OriginLab\2015\User Files\OriginC\test\test.c(41) :
Error, external DLL cannot find function C:\Users\Alexey\Documents\OriginLab\2015\User Files\OriginC\test\test.dll : SUMFT

quote:

---

Originally posted by ABN

Origin Ver. and Service Release: OriginPro2015 (64-bit) Sr1
Operating System: Windows 7 64-bit

Hello!
I want to use fortran function in OriginLab. As I understand fortran code can be used in originlab via OriginC and dll from Fortan code.
For example, I made test.f90 with simple function:

REAL(8) FUNCTION SUMFT(A, B)
  !DEC$ ALIAS SUMFT, "SUMFT" 
  !DEC$ ATTRIBUTES DLLEXPORT:: SUMFT  
  !DEC$ ATTRIBUTES VALUE :: A     
  !DEC$ ATTRIBUTES VALUE :: B    
REAL(8) A
REAL(8) B

      SUMFT  = A + B 
END 

I made test.dll from fortran code via gfortran in cmd:

gfortran -c test.f90
gfortran -shared -mrtd -o test.dll test.o

and tried to call function in OriginC to according to instructions:
https://www.originlab.com/doc/OriginC/guide/Calling-Third-Party-DLL-Functions

I made test.c:

#include <Origin.h>
#include "test.h"
#pragma labtalk(1,Math)
double SUMFTmy(double A, double B)
{
	return SUMFT(A,B);
}

and test.h:

#pragma dll("C:\Users\Alexey\Documents\OriginLab\2015\User Files\OriginC\test\test.dll")
// Prototype of the function in the external DLL
double __stdcall SUMFT(double A, double B);

When I build all that in Code Builder, I get error:

C:\Users\Alexey\Documents\OriginLab\2015\User Files\OriginC\test\test.c(41) :
Error, external DLL cannot find function C:\Users\Alexey\Documents\OriginLab\2015\User Files\OriginC\test\test.dll : SUMFT

What am I doing wrong? How to fix?

---

double sumft_(double, double)

double sumft_(double*, double*)

double SUMFT(double, double)

                                          &&&&&&&&&
                                        &&&
                                       &&
                                      &  _____ ___________
                                     II__|[] | |   I I   |
                                    |        |_|_  I I  _|
                                   < OO----OOO   OO---OO
**********************************************************

quote:

---

Originally posted by Chris D

Hi,

Did you export the function from the DLL? I am not familiar with Fortran but it seems necessary to export it.

Thanks,
Chris Drozdowski
Originlab Technical Support

---

quote:

---

Originally posted by Castiel


I deem the function exported is

double sumft_(double, double)

instead of

double SUMFT(double, double)

You may check this with Dependency Walker: http://www.dependencywalker.com/

---

quote:

---

Originally posted by ABN

quote:

---

Originally posted by Castiel


I deem the function exported is

double sumft_(double, double)

instead of

double SUMFT(double, double)

You may check this with Dependency Walker: http://www.dependencywalker.com/

---

Yes, you are right, thank you!
I check it via Dependency Walker.
I replace "SUMFT" with "sumft_" and the error don't erase in Code Builder.

But when I call function SUMFTmy in OriginLab, I get error "Originlab2015 has stopped working" - Module error name: test.dll
Apparently problem with dll, but i don't know what's wrong with it. Because compilation dll goes without errors.

---

double sumft_(double*, double*)

                                          &&&&&&&&&
                                        &&&
                                       &&
                                      &  _____ ___________
                                     II__|[] | |   I I   |
                                    |        |_|_  I I  _|
                                   < OO----OOO   OO---OO
**********************************************************

quote:

---

Originally posted by Castiel

I'm afraid it should have been

double sumft_(double*, double*)

.

---