PROGRAM example
  INCLUDE "IPhreeqc.f90.inc"
  CHARACTER(LEN=80) :: version

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