TEXT(Choose Fluid Materials
    71 start of ....fluidmat
store(prps)
integer(air20 , airisent,   airideal,   water20,    mercury, freon)
integer(3gasideal, stm100, stmisent, stmideal)
air20 = 0;      airisent=1; airideal=2; 3gasideal=30; stm100=23
stmisent=24;  stmideal=25
water20=67 ;mercury=66; freon=64
    71 end of ....fluidmat