4 c this routine reads an ascii field and gives back a
real number. this
5 c number is used by the sw_model to determine the material
type parameters.
7 c written by ken struve
11 c define passed variables
18 if ((name.eq.
'H2O').or.(name.eq.
'h2o'))
then
20 else if ((name.eq.
'H20').or.(name.eq.
'h20'))
then
22 else if ((name.eq.
'OIL').or.(name.eq.
'oil'))
then
24 else if ((name.eq.
'SF6').or.(name.eq.
'sf6'))
then
26 else if ((name.eq.
'AIR').or.(name.eq.
'air'))
then
28 else if ((name.eq.
'HE').or.(name.eq.
'He').or.(name.eq.
'he'))
then
30 else if ((name.eq.
'H2').or.(name.eq.
'h2'))
then
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line c
subroutine decodematerial(name, diel, flag)