max/iphreeqc
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/iphreeqc.git synced 2025-12-16 16:44:49 +01:00
Code Issues Packages Projects Releases Wiki Activity

added changes from email dated 2020-07-15

Browse Source
This commit is contained in:
Charlton, Scott R 2020-07-15 18:56:06 -06:00
parent 74b541d42e
commit 9029c2bcba
3 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
IPhreeqc.cpp
View File

@ -971,6 +971,7 @@ void IPhreeqc::SetErrorFileName(const char *filename)
void IPhreeqc::SetErrorFileOn(bool bValue)
{
this->ErrorFileOn = bValue;
this->Set_error_on(bValue);
}
void IPhreeqc::SetErrorStringOn(bool bValue)
@ -1143,7 +1144,6 @@ void IPhreeqc::check_database(const char* sz_routine)
{
this->ErrorReporter->Clear();
this->WarningReporter->Clear();
std::map< int, CSelectedOutput* >::iterator it = this->SelectedOutputMap.begin();
for (; it != this->SelectedOutputMap.end(); ++it)
{

4
IPhreeqc_interface.F90
View File

@ -680,8 +680,8 @@ INTEGER FUNCTION GetSelectedOutputValue(id, row, col, vtype, dvalue, svalue, sle
sz_fortran = sz
GetSelectedOutputValue = GetSelectedOutputValueF(id, row, col, vtype, dvalue, svalue, sz)
if (present(slength)) then
slength = 0
if (sz > sz_fortran) then
slength = sz_fortran
if (sz < sz_fortran) then
slength = sz
endif
endif

1
IPhreeqc_interface_F.cpp
View File

@ -4,6 +4,7 @@
#include <memory.h> /* memcpy */
#include <assert.h> /* assert */
#include <stdio.h> /* sprintf */
#include <cstring>
#include "phrqtype.h"
#include "IPhreeqc.h"