...
The normal convention for Fortran DLLs is that values are returned through the function (effectively, they are passed by reference); for C# results are passed by value. Therefore there may be a need to state explicitly that C# parameters passed to a Fortran routine are to be passed by reference. In Fortran, arrays normally start from index 1 whereas in C# the convention is to start from zero. These differences can be handled in the MyEngineDotNetAccess class. When you have completed the implementation of the methods shown below you can create and implement the corresponding test class and run the unit test.
| Code Block |
|---|
using System; using System.Text; namespace MyOrganisationOatc.OpenMI.MyModel { public class MyEngineDotNetAccess.Examples.ModelComponents.SimpleRiver.Wrapper { public class SimpleRiverEngineDotNetAccess { IntPtr _FortranDllHandle; public void Initialize(string filePath) { { _FortranDllHandle public void Initialize(string filePath)= Kernel32Wrapper.LoadLibrary(@"Oatc.OpenMI.Examples.ModelComponents.SimpleRiver.Engine.dll"); { string curDir = System.IO.Directory.GetCurrentDirectory(); if(\!(MyModelDLLSimpleRiverEngineDllAccess.Initialize(filePath, ((uint) filePath.Length)))) { CreateAndThrowException(); } } { CreateAndThrowException(); } } public void PerformTimeStep() { if (\!(MyModelDLLSimpleRiverEngineDllAccess.PerformTimeStep())) { CreateAndThrowException(); } } } } public void Finish() { if(\!(MyModel { if(!(SimpleRiverEngineDllAccess.Finish())) { CreateAndThrowException(); } { CreateAndThrowException(); } while(Kernel32Wrapper.FreeLibrary(_FortranDllHandle)); } } private void CreateAndThrowException() { { int numberOfMessages = 0; numberOfMessages = MyModelDLLSimpleRiverEngineDllAccess.GetNumberOfMessages(); string message = '"Error Message from MyModelSimpleRiver ';Fortran Core "; for (int i = 0; i < numberOfMessages; i++) { int n = i; StringBuilder messageFromCore = new StringBuilder(" { int n = i; StringBuilder messageFromCore = new StringBuilder(' '); MyModelDLL"); SimpleRiverEngineDllAccess.GetMessage(ref n, messageFromCore, (uint) messageFromCore.Length); message \+='"; '; message \"; message += messageFromCore.ToString().Trim(); } } throw new Exception(message); } } } } |