In[]:=
Pressure=Range[10000,10100];ThmData=ThermodynamicData["Water","SpecificVolume",{"Pressure"Quantity[Pressure,"Pascal"],"Temperature"Quantity[100,"DegreesCelsius"]}]
Out[]=
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,