Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
nam2diel.f
Go to the documentation of this file.
1  Subroutine decodematerial (name,diel,flag)
2 c
3 c
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.
6 c
7 c written by ken struve
8 c jan. 12, 1995.
9 c
10 c
11 c define passed variables
12 c
13  character*80 name
14  real diel
15  integer flag
16 c
17  flag = 0
18  if ((name.eq.'H2O').or.(name.eq.'h2o')) then
19  diel = 1.0
20  else if ((name.eq.'H20').or.(name.eq.'h20')) then
21  diel = 1.0
22  else if ((name.eq.'OIL').or.(name.eq.'oil')) then
23  diel = 2.0
24  else if ((name.eq.'SF6').or.(name.eq.'sf6')) then
25  diel = 3.0
26  else if ((name.eq.'AIR').or.(name.eq.'air')) then
27  diel = 4.0
28  else if ((name.eq.'HE').or.(name.eq.'He').or.(name.eq.'he')) then
29  diel = 5.0
30  else if ((name.eq.'H2').or.(name.eq.'h2')) then
31  diel = 6.0
32  else
33  diel = 0.0
34  flag = 1
35  end if
36 c
37  return
38  end
39 
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
Definition: zdemfmt.h:7
subroutine decodematerial(name, diel, flag)
Definition: nam2diel.f:1