mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-15 16:18:22 +01:00
8f85adcf3b
Changed default logic to write xyz only for count_chem cells. If NEW_STYLE_XYZ is defined, then xyz file contains nxyz cells. write2_2.f90 changed to USE IPhreeqc write5.f90 changed to USE IPhreeqc TestRM advection_f90.F90 changed to USE IPhreeqc TestRM species_f90.F90 changed to USE IPhreeqc FortranAdvect.vfproj: IPhreeqc.f90.inc removed and IPhreeqc_interface.F90 added. PhreeqcRM.vcxproj, PhreeqcRM.vcxproj.filters: fwrap files removed and IPhreeqc_interface_F.cpp added phast3.vcxproj: added or corrected postbuild copy of zlib1, hdf5dll, and szlibdll.dll. removed OLD_STYLE_XYZ (logically it is now the default for xyz file). removed dead preprocessor definitions PHREEQC_CPP, MERGE_FILES, GZIP_RESTART, OMPI_IMPORTS phastf.vfproj: removed IPhreeqc.f90.inc added IPhreeqc_interface.F90. fwrap files are compiled if #ifdef IPHREEQC_NO_FORTRAN_MODULE IPhreeqc_interface.F90 compiled if #ifndef IPHREEQC_NO_FORTRAN_MODULE fixed bug intent(inout) should have been intent(in) (constant character argument). fixed interfaces for SetBasicFortranCallback IPhreeqc_interface_F.cpp compiled if #ifndef IPHREEQC_NO_FORTRAN_MODULE git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@9356 1feff8c3-07ed-0310-ac33-dd36852eb9cd
24 lines
350 B
C++
24 lines
350 B
C++
#ifdef IPHREEQC_NO_FORTRAN_MODULE
|
|
#include "IPhreeqc.h"
|
|
#include "fwrap.h"
|
|
|
|
#if defined(_WIN32)
|
|
|
|
#if defined(__cplusplus)
|
|
extern "C" {
|
|
#endif
|
|
|
|
//
|
|
// Intel Fortran compiler 9.1 /iface:default /names:lowercase
|
|
//
|
|
#define IPQ_DECL
|
|
#define IPQ_CASE_UND(name, NAME, name_, NAME_) name
|
|
|
|
#include "fimpl.h"
|
|
|
|
#if defined(__cplusplus)
|
|
}
|
|
#endif
|
|
|
|
#endif
|
|
#endif |