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

replace #ifdef with !??? (also see doc/examples/F90SetBasicFortranCallback.f90)

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/phreeqc/trunk@9704 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2015-05-21 07:02:58 +00:00
parent a36f1c2c57
commit 8d315efe04
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
advect/advect.F90
View File

@ -71,9 +71,7 @@ program Advect
year = 2012. year = 2012.
Id = CreateIPhreeqc() Id = CreateIPhreeqc()
if (LoadDatabase(Id, "phreeqc.dat") .ne. 0) call EHandler() if (LoadDatabase(Id, "phreeqc.dat") .ne. 0) call EHandler()
#if 0 !??? if (SetBasicFortranCallback(id, MyCallback) .ne. 0) call EHandler()
if (SetBasicFortranCallback(id, MyCallback) .ne. 0) call EHandler()
#endif
If (RunFile(Id, "ic") .ne. 0) call EHandler() If (RunFile(Id, "ic") .ne. 0) call EHandler()
!Run cell 1, extract/write result !Run cell 1, extract/write result