PROGRAM example
  USE IPhreeqc
  CHARACTER(LEN=80) :: version

  WRITE(*,*) "Version:"
  CALL GetVersionString(version)
  WRITE(*,*) TRIM(version)
END PROGRAM example