GreenPolyProducts/cantera
5
0
Fork 0
mirror of https://github.com/Cantera/cantera.git synced 2025-02-25 18:55:29 -06:00
Code Issues Packages Projects Releases Wiki Activity

[Fortran] Remove unused NEED_ALT_MAIN occurrences

Browse Source 
The NEED_ALT_MAIN variable is not defined anywhere in the code
This commit is contained in:
Ingmar Schoegl 2023-04-04 21:34:12 -05:00 committed by Ray Speth
parent 483f2f49bd
commit 1d964ef432
1 changed files with 0 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
samples/f77/demo_ftnlib.cpp
View File

@ -74,12 +74,6 @@ void handleError(CanteraError& err)
extern "C" {
/// This is the Fortran main program. This works for g77; it may
/// need to be modified for other Fortran compilers
#ifdef NEED_ALT_MAIN
extern int MAIN__();
#endif
/**
* Read in a reaction mechanism file and create a Solution
* object. The file may be in Cantera input format or in YAML. (If
@ -374,27 +368,3 @@ extern "C" {
}
}
/*
* HKM 7/22/09:
* I'm skeptical that you need this for any system.
* Definitely creates an error (dupl main()) for the solaris
* system
*/
#ifdef NEED_ALT_MAIN
/**
* This C++ main program simply calls the Fortran main program.
*/
int main()
{
try {
return MAIN__();
} catch (CanteraError& err) {
std::cerr << err.what() << std::endl;
exit(-1);
} catch (...) {
cout << "An exception was trapped. Program terminating." << endl;
exit(-1);
}
}
#endif