calling a c dll function

[lauale]

hello,
i want to use a function from a dll program. Here is my code:

character :: infile,outfile

interface 
   subroutine dllFunction(infile, outfile) bind(C, name="main")
      use iso_c_binding, only: C_CHAR, C_NULL_CHAR
      character(1,c_char) :: infile
      character(1,c_char) :: outfile
   end subroutine dllFunction
end interface

call dllFunction(infile, outfile)

The problem that the program call iteratively the dllfunction and it should be call it only once.
The dll is writen in C. Here is the C function that it should be used.

#ifdef DLLCONFIG
#define DLL_API __declspec(dllexports)
#else
#define DLL_API
#endif

DLL_API int main(char *infile, char *outfile) {

}

Any idea because call the function all the time?
Thanks

 

[xwb]

Is this your first attempt at using C with Fortran? If it is, try using ints first, then an int array and then char and then char array. Char arrays are stored very differently in C and Fortran.

Also don't call your routine main - the function called main has a special meaning in C>