G
Guest
// this is the code for calling fortran executable
PROCESS_INFORMATION ProcessInfo;
STARTUPINFO StartupInfo = { 0 };
memset((LPVOID)&StartupInfo,0,sizeof(STARTUPINFO));
StartupInfo.cb = sizeof(STARTUPINFO);
if (CreateProcess ( NULL, "main.exe", NULL, NULL, FALSE,
0, NULL, NULL, &StartupInfo, &ProcessInfo) )
{
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
}
else
{
}
// executable calling code end
PROCESS_INFORMATION ProcessInfo;
STARTUPINFO StartupInfo = { 0 };
memset((LPVOID)&StartupInfo,0,sizeof(STARTUPINFO));
StartupInfo.cb = sizeof(STARTUPINFO);
if (CreateProcess ( NULL, "main.exe", NULL, NULL, FALSE,
0, NULL, NULL, &StartupInfo, &ProcessInfo) )
{
WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
}
else
{
}
// executable calling code end