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