C
       common/chars/cbuf, filename
       common/parms1/editlist, obj, objn, input_result, objint1,
     &  objint2
       common/parms2/oport, parm, rparm, point
       common/inputs/displ_e_i, displ_h_i, displ_e_r, displ_h_r,
     &  displ_e_t, displ_h_t, no_lines, ntsteps, istep, no_incr,
     &  loop_count, animate, icrit
       common/fresn/f_i_par, f_i_per, f_r_par, f_r_per,
     &  f_t_par, f_t_per
       common/phis/ phi_r_par, phi_r_per, phi_t_par, phi_t_per
       common/reals/unit_length, box_length, speed_light, pi,
     &  lambda_ru_1, lambda_ru_2, ri_1, ri_2, ri_rat, incr_1,
     &  incr_2, deg_to_rad, b_angle, c_angle, freq,
     &  rad_to_deg, amp_e, amp_h, amp_e_i, amp_e_r, amp_e_t,
     &  amp_h_i, amp_h_r, amp_h_t, amp_e_par, amp_e_per,
     &  R_par, R_per, T_par, T_per,
     &  er_par, er_per, et_par, et_per, tint1, tint2,
     &  phase_deg, phase_rad, theta_i_rad, theta_i_deg,
     &  theta_r_deg, theta_r_rad, theta_t_deg, theta_t_rad
       common/reala/col_e_i_m, col_e_i_0, col_h_i_m, col_h_i_0,
     &  col_e_r_m, col_e_r_0, col_h_r_m, col_h_r_0,
     &  col_e_t_m, col_e_t_0, col_h_t_m, col_h_t_0,
     &  col_e_i, col_e_r, col_e_t,
     &  col_h_i, col_h_r, col_h_t,
     &  vert_e_i, vert_e_r, vert_e_t,
     &  vert_h_i, vert_h_r, vert_h_t,
     &  svert_e_i, svert_e_r, svert_e_t,
     &  svert_h_i, svert_h_r, svert_h_t
       common/uvals/uxki, uyki, uzki, uxkr, uykr, uzkr,
     &  uxkt, uykt, uzkt
       common/vvals/xei, yei, zei, xer, yer, zer,
     &  xet, yet, zet
       common/fixed/vi,ci,vr,cr,vt,ct,vn,cn,intv,intc1,intc2
       common/tabs/ntab_i, ntab_r, ntab_t
C
       character*1024 cbuf
       character*120  filename
C
       integer editlist, obj, objn, input_result, objint1,
     &  objint2
       integer oport, parm, rparm, point(30)
       integer displ_e_i, displ_h_i, displ_e_r, displ_h_r,
     &  displ_e_t, displ_h_t, no_lines, ntsteps, istep, no_incr,
     &  loop_count, animate, icrit
       integer ntab_i, ntab_r, ntab_t
C
       real f_i_par, f_i_per, f_r_par, f_r_per,
     &  f_t_par, f_t_per
       real phi_r_par, phi_r_per, phi_t_par, phi_t_per
       real unit_length, box_length, speed_light, pi,
     &  lambda_ru_1, lambda_ru_2, ri_1, ri_2, ri_rat, incr_1,
     &  incr_2, deg_to_rad, b_angle, c_angle, freq,
     &  rad_to_deg, amp_e, amp_h, amp_e_i, amp_e_r, amp_e_t,
     &  amp_h_i, amp_h_r, amp_h_t, amp_e_par, amp_e_per,
     &  R_par, R_per, T_par, T_per,
     &  er_par, er_per, et_par, et_per, tint1, tint2,
     &  phase_deg, phase_rad, theta_i_rad, theta_i_deg,
     &  theta_r_deg, theta_r_rad, theta_t_deg, theta_t_rad
       real col_e_i_m(3), col_e_i_0(3), col_h_i_m(3), col_h_i_0(3),
     &  col_e_r_m(3), col_e_r_0(3), col_h_r_m(3), col_h_r_0(3),
     &  col_e_t_m(3), col_e_t_0(3), col_h_t_m(3), col_h_t_0(3),
     &  col_e_i(3,2,500), col_e_r(3,2,500), col_e_t(3,2,500),
     &  col_h_i(3,2,500), col_h_r(3,2,500), col_h_t(3,2,500),
     &  vert_e_i(3,2,500), vert_e_r(3,2,500), vert_e_t(3,2,500),
     &  vert_h_i(3,2,500), vert_h_r(3,2,500), vert_h_t(3,2,500),
     &  svert_e_i(3,2,200), svert_e_r(3,2,200), svert_e_t(3,2,200),
     &  svert_h_i(3,2,200), svert_h_r(3,2,200), svert_h_t(3,2,200)
       real uxki, uyki, uzki, uxkr, uykr, uzkr,
     &  uxkt, uykt, uzkt
       real xei, yei, zei, xer, yer, zer,
     &  xet, yet, zet
       real vi(3,2),ci(3,2),vr(3,2),cr(3,2),vt(3,2),
     &  ct(3,2),vn(3,2),cn(3,2),intv(3,4),intc1(3,4),intc2(3,4)