; tst_mateer calls getprf to get a profile
; and then calls the mateer code with input
;
pres     = 1.0000
sza      = [31.96]
satza    = [0.]
phi      = [0.]
ref      = [8.0]
wav      = [380.00] ; wavelengths input in nanometers
c0       = [.0000001]
c1       = [0.00]
c2       = [0.00]
bet      = [0.4458]
rho      = [.0306]
iter     = [7]
rhoflag  = 1
;
getprf,'l275',prfoz,prftemp
;
mateer,pres,sza,satza,phi,ref,wav,c0,c1,c2,bet,rho,prfoz, $
 prftemp,iter,rhoflag,i0,i1,i2,t,sb,itot,nval
;
print,'i0   = ',i0
print,'i1   = ',i1
print,'i2   = ',i2
print,'t    = ',t
print,'sb   = ',sb
print,'itot = ',itot
print,'nval = ',nval
print,''
;
pres     = 0.4765
sza      = [31.96]
satza    = [0.]
phi      = [0.]
ref      = [80.0]
wav      = [380.00] ; wavelengths input in nanometers
c0       = [.0000001]
c1       = [0.00]
c2       = [0.00]
bet      = [0.4458]
rho      = [.0306]
iter     = [7]
rhoflag  = 1
;
getprf,'m325',prfoz,prftemp
;
mateer,pres,sza,satza,phi,ref,wav,c0,c1,c2,bet,rho,prfoz, $
 prftemp,iter,rhoflag,i0,i1,i2,t,sb,itot,nval
;
print,'i0   = ',i0
print,'i1   = ',i1
print,'i2   = ',i2
print,'t    = ',t
print,'sb   = ',sb
print,'itot = ',itot
print,'nval = ',nval
print,''
;
pres     = 1.0000
sza      = [31.96]
satza    = [0.]
phi      = [0.]
ref      = [80.0]
wav      = [380.00] ; wavelengths input in nanometers
c0       = [.0000001]
c1       = [0.00]
c2       = [0.00]
bet      = [0.4458]
rho      = [.0306]
iter     = [7]
rhoflag  = 1
;
getprf,'h475',prfoz,prftemp
;
mateer,pres,sza,satza,phi,ref,wav,c0,c1,c2,bet,rho,prfoz, $
 prftemp,iter,rhoflag,i0,i1,i2,t,sb,itot,nval
;
print,'i0   = ',i0
print,'i1   = ',i1
print,'i2   = ',i2
print,'t    = ',t
print,'sb   = ',sb
print,'itot = ',itot
print,'nval = ',nval
print,''
;
pres     = 0.4000
sza      = [31.96]
satza    = [0.]
phi      = [0.]
ref      = [80.0]
wav      = [380.00] ; wavelengths input in nanometers
c0       = [.0000001]
c1       = [0.00]
c2       = [0.00]
bet      = [0.4458]
rho      = [.0306]
iter     = [7]
rhoflag  = 1
;
getprf,'l275',prfoz,prftemp
;
mateer,pres,sza,satza,phi,ref,wav,c0,c1,c2,bet,rho,prfoz, $
 prftemp,iter,rhoflag,i0,i1,i2,t,sb,itot,nval
;
print,'i0   = ',i0
print,'i1   = ',i1
print,'i2   = ',i2
print,'t    = ',t
print,'sb   = ',sb
print,'itot = ',itot
print,'nval = ',nval
print,''
;
end