mirror of
https://git.gfz-potsdam.de/naaice/iphreeqc.git
synced 2025-12-15 16:18:22 +01:00
e31acfe57a
git-svn-id: svn://136.177.114.72/svn_GW/IPhreeqc/trunk@8489 1feff8c3-07ed-0310-ac33-dd36852eb9cd
13 lines
927 B
R
13 lines
927 B
R
# databases
|
|
Amm.dat <- paste(scan("../database/Amm.dat", what="", sep="\n"), collapse="\n")
|
|
iso.dat <- paste(scan("../database/iso.dat", what="", sep="\n"), collapse="\n")
|
|
llnl.dat <- paste(scan("../database/llnl.dat", what="", sep="\n"), collapse="\n")
|
|
minteq.dat <- paste(scan("../database/minteq.dat", what="", sep="\n"), collapse="\n")
|
|
minteq.v4.dat <- paste(scan("../database/minteq.v4.dat", what="", sep="\n"), collapse="\n")
|
|
pitzer.dat <- paste(scan("../database/pitzer.dat", what="", sep="\n"), collapse="\n")
|
|
sit.dat <- paste(scan("../database/sit.dat", what="", sep="\n"), collapse="\n")
|
|
phreeqc.dat <- paste(scan("../database/phreeqc.dat", what="", sep="\n"), collapse="\n")
|
|
wateq4f.dat <- paste(scan("../database/wateq4f.dat", what="", sep="\n"), collapse="\n")
|
|
save(list = ls(all=TRUE), file="phreeqc/data/databases.RData")
|
|
rm(list = ls(all=TRUE))
|