TEXT(Choose Fluid Materials
    71 start of ....fluidmat
store(prps)
  !! The following ar now already defined in 014.htm
  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