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

updated f90 version

Browse Source 
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@8158 1feff8c3-07ed-0310-ac33-dd36852eb9cd
This commit is contained in:
Scott R Charlton 2013-11-02 01:09:12 +00:00
parent 4b62f6d670
commit 5c52b2744f
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
doc/examples/F90GetVersionString.f90
View File

@ -2,6 +2,7 @@ PROGRAM example
INCLUDE "IPhreeqc.f90.inc" INCLUDE "IPhreeqc.f90.inc"
CHARACTER(LEN=80) :: version CHARACTER(LEN=80) :: version
WRITE(*,*) 'Version:'
CALL GetVersionString(version) CALL GetVersionString(version)
WRITE(*,*) TRIM(version) WRITE(*,*) TRIM(version)
END PROGRAM example END PROGRAM example