pro sta_swea_angle_map, phi, dphi, theta, dtheta

phi = fltarr(80)
dphi = phi
theta = phi
dtheta = phi

phi[0:7] = 144.17
phi[8:23] = 122.50
phi[24:39] = 100.83
phi[40:55] = 79.17
phi[56:71] = 57.50
phi[72:79] = 35.83

;phi = 180. - phi
;phi = -1. * phi
;phi = phi + 90.
dphi[*] = 21.67

thetas = [  241.875, 264.375, 286.875, 309.375, 331.875, 354.375, 16.875, 39.375, 61.875, 84.375, 106.875, 129.375, 151.875, 174.375, 196.875, 219.375 ]
;thetas = thetas + 80.
;for i=0,15 do if thetas[i] ge 360. then thetas[i] = thetas[i] - 360.

for i=0,7 do theta[i] = (thetas[i*2] + thetas[i*2+1])/2.
theta[8:23] = thetas
theta[24:39] = thetas
theta[40:55] = thetas
theta[56:71] = thetas
for i=0,7 do theta[72+i] = (thetas[i*2] + thetas[i*2+1])/2.

dtheta[0:7] = 45.0
dtheta[8:71] = 22.5
dtheta[72:79] = 45.0

return
end