Подключение фортрановской dll к с++ и с#

[ZhEKA_]

Добрый день. Передо мной поставлена такая задача. Все решаемые задачи будут математическими, поэтому решил начать с простого примера, в котором дллка будет считать параметр с=а+в.
Рабочие среды:
-visual compaq fortran 6.6
-microsoft visual c# 2008 express edition sp1
-microsoft visual c++ 2008 express edition sp1
Сперва я создаю дллку в фортране, в которой описана подпрограмма, высчитывающая С. Специально для проверки там добавил строчку, которая выводит параметр на экран.

PHP код:

subroutine newdll(a,b,c)
!DEC$ ATTRIBUTES STDCALL, ALIAS:'newdll' :: newdll
!DEC$ ATTRIBUTES DLLEXPORT :: newdll
real a,b,c
c = a+b
print *,"c=",c
end subroutine newdll 


Дллка компилится без ошибок.
Далее создаю консольное приложение win32 в с++ и подключаю длл явным методом

PHP код:

#include "stdafx.h"
#include <windows.h>
#include <iostream>
using namespace std;
int _tmain()
{
    HMODULE  hDll ;
    hDll = LoadLibrary(L"./newdll.dll" ) ;
    if ( hDll == NULL )
        {   // Не нашли DLL
        cerr << "COULD NOT FIND DLL !" << endl ;
        return 0 ;
        }
    else cerr << "ALL OK !" << endl ;
    typedef double __stdcall newdll( float&, float&, float& ) ;
    newdll* pnewdll = (newdll*) GetProcAddress( hDll, "newdll" ) ; 
    if ( pnewdll == NULL ) {   // Не нашли ф-ю
      cerr << "COULD NOT FIND FUNCTION ENTRY" << endl ;
      return 0 ;
   }
    else cerr << "ALL OK !" << endl ;
float a,b,c;
a=1;b=2;
pnewdll(a,b,c);
cerr << c << endl ;
    return 0;
} 


Запускаю на выполнение. Проект компилится, не выдает ошибок, и выводит на экран значение С такое, как когда переменной еще ничего не присвоено. Но строчку "с=" из дллки выдает на экран.

Аналогичным образом пытаюсь подключить длл в с# (win32 консольное приложение)

PHP код:

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Runtime.InteropServices;
namespace ca1
{
    class Program   
    {
        [DllImport("newdll.dll", EntryPoint = "newdll")]
        public static extern void newdll_(ref double a, ref double b, ref double c);
        static void Main(string[] args)
        {
            double a = 2, b = 5, c=3;
            newdll_(ref a, ref b, ref c);
            Console.WriteLine(c);
            Console.ReadLine();
        }
    }
} 


И также моя программа не считает параметр С.

Т.е. я так понимаю, у меня нет обмена данными между длл и моей программой.
Кто знает, подскажите пожалуйста где я накосячил?

[Abstraction]

1) Вы уверены, что Ваша функция на Fortran работает сама по себе? Попробуйте в функции просто вывести a - и удостоверьтесь, что без dll, в обычной Fortran-программе это получается нормально.

Т.е. понятие "нет обмена" явно неверно: адрес функции получен, ей передано управление, она вызвалась. Соглашения о вызовах (вроде бы) совпадают. Вторая гипотеза - удостовериться, что real в Fortran и float в C++ - это один и тот же тип.

[Vago]

1. В ФОРТРАНе убрать вторую строку:

!DEC$ ATTRIBUTES STDCALL, ALIAS:'newdll' :: newdll

2. В C++ в

newdll* pnewdll = (newdll*) GetProcAddress( hDll, "newdll" ) ;

записать имя разыскиваемой ф-ии ЗАГЛАВНЫМИ БУКВАМИ:

newdll* pnewdll = (newdll*) GetProcAddress( hDll, "NEWDLL" ) ;

В до-диезе ничего никогда не играл, сорри.