C / C++ / MFC

<br />
! Fortran part of a C-Fortran DLL example. This<br />
! routine DLL_ROUT is called from a C executable program.<br />
SUBROUTINE DLL_ROUT (INT_ARG, STR_IN, STR_OUT)<br />
IMPLICIT NONE<br />
                        <br />
! Specify that DLL_ROUT is exported to a DLL<br />
!DEC$ ATTRIBUTES DLLEXPORT :: DLL_ROUT<br />
                        <br />
INTEGER INT_ARG<br />
CHARACTER*(*) STR_IN, STR_OUT<br />
                        <br />
! This routine converts INT_ARG to a decimal string.<br />
! appends the string value to STR_IN and stores it<br />
! in STR_OUT. A trailing NUL is added to keep C<br />
! happy.<br />
!<br />
! Note that there are implicit length arguments following<br />
! the addresses of each CHARACTER argument.<br />
                     <br />
CHARACTER*5 INT_STR<br />
                        <br />
WRITE (INT_STR,'(I5.5)')INT_ARG<br />
                        <br />
STR_OUT = STR_IN // INT_STR // CHAR(0)<br />
                        <br />
RETURN<br />
END<br />

<br />
/* Main program written in C++ that calls a Fortran DLL */<br />
#include <stdio.h><br />
#include <string.h><br />
                        <br />
/* Declare the Fortran routine. The following items are of note:<br />
                        <br />
   - The "C" attribute prevents C++ name mangling  Remove it<br />
     if the file type is .c<br />
   - The dllimport specification is required                   <br />
   - Fortran routines use the _stdcall interface by default<br />
   - Fortran character arguments have a hidden length<br />
     argument following the address<br />
   - Routine name must be in uppercase to match Fortran.<br />
*/<br />
//extern "C" __declspec(dllimport) void _stdcall DLL_ROUT (                        <br />
<br />
extern "C" void _stdcall DLL_ROUT (<br />
    int *INT_ARG,<br />
    char *STR_IN,<br />
    int STR_IN_LEN,<br />
    char *STR_OUT,<br />
    int STR_OUT_LEN);<br />
                        <br />
void main (int argc, char *argv[])<br />
    {<br />
    char instring[40];<br />
    char outstring[40];<br />
    int intarg;<br />
                        <br />
    strcpy(instring,"Testing...");<br />
    intarg = 123;<br />
    /* Call Fortran routine - pass intarg by reference,<br />
       pass length of outstring explicitly */<br />
    DLL_ROUT(&intarg,instring,strlen(instring),outstring,40);<br />
    printf("%s\n",outstring);<br />
    }<br />

CGoalsDoc* pDoc = (CGoalsDoc*)((CMainFrame *)<br />
    AfxGetApp()->m_pMainWnd)->GetActiveFrame()->GetActiveDocument();