util.args

utl.rg>   ## Don't show: 
utl.rg> data(thermo)
thermo$obigt has 1800 aqueous, 2925 total species

utl.rg> ## End Don't show
utl.rg>   ## argument processing
utl.rg>   eos.args("hkf",c("g","H","S","cP","V","kT","e"))
$props
[1] "G"  "H"  "S"  "Cp" "V"  "kT" "E" 

$prop
[1] "g"  "h"  "s"  "cp" "v"  "kt" "e" 

$Prop
[1] "G"  "H"  "S"  "Cp" "V"  "kT" "E" 


utl.rg>   ## produces an error because "Q" is not allowed in water.SUPCRT92
utl.rg>   ## Not run: eos.args("hkf",c("G","H","S","Cp","V","kT","E","Q"))
utl.rg>   thermo$opt$water <- "IAPWS"  # needed for p and n in next line

utl.rg>   eos.args("water",c("p","u","cv","psat","rho","n","q","x","y","epsilon"))
$props
 [1] "G"       "H"       "S"       "Cp"      "V"       "kT"      "E"       "A"       "U"       "Cv"     
[11] "Psat"    "rho"     "Q"       "X"       "Y"       "epsilon" "w"       "P"       "N"       "UBorn"  
[21] "de.dT"   "de.dP"  

$prop
 [1] "p"       "u"       "cv"      "psat"    "rho"     "n"       "q"       "x"       "y"       "epsilon"

$Prop
 [1] "P"       "U"       "Cv"      "Psat"    "rho"     "N"       "Q"       "X"       "Y"       "epsilon"


utl.rg>   TP.args(c(273.15,373.15))
$T
[1] 273.16 373.15

$P
NULL


utl.rg>   TP.args(c(273.15,373.15),"Psat")
$T
[1] 273.16 373.15

$P
[1] 1.00000 1.01418


utl.rg>   TP.args(c(273.15,373.15),c(100,100,200,200))
$T
[1] 273.16 373.15 273.16 373.15

$P
[1] 100 100 200 200


utl.rg>   state.args(c("AQ","GAS"))
[1] "AQ"  "GAS"

utl.rg>   state.args(c("a","l","liq"))
[1] "aq"  "liq" "liq"