c INCLUDE file which gives alternate real/imaginary names for
c some complex variables in itg.cmn.  These *_ri variables names
c are for local reference only, and are not global common symbols.
c This is used only in wpunch.f and wread.f to translate between old
c cosine/sin conventions and present complex conventions.
c     
c     (c) Copyright 1991 to 1995 by Michael A. Beer, William D. Dorland, 
c     and Gregory W. Hammett. ALL RIGHTS RESERVED.
c

c potential replaces uc, us:
c     complex potential(lz,mz,nz)
      real    potential_ri(2,lz,mz,nz)
      equivalence (potential, potential_ri)

c density replaces wc, ws:
c     complex density(lz,mz,nz,nspecz)
      real    density_ri(2,lz,mz,nz,nspecz)
      equivalence (density, density_ri)

c u_par replaces vc and vs:
c     complex u_par(lz,mz,nz,nspecz)
      real u_par_ri(2,lz,mz,nz,nspecz)
      equivalence(u_par, u_par_ri)

c t_par replaces tpars, tparc:
c     complex t_par(lz,mz,nz,nspecz)
      real    t_par_ri(2,lz,mz,nz,nspecz)
      equivalence (t_par, t_par_ri)

c t_perp replaces ts, tc:
c     complex t_perp(lz,mz,nz,nspecz)
      real    t_perp_ri(2,lz,mz,nz,nspecz)
      equivalence (t_perp, t_perp_ri)

c q_par replaces qpars, qparc:
c     complex q_par(lz,mz,nz,nspecz)
      real    q_par_ri(2,lz,mz,nz,nspecz)
      equivalence (q_par, q_par_ri)

c q_perp replaces qs, qc:
c     complex q_perp(lz,mz,nz,nspecz)
      real    q_perp_ri(2,lz,mz,nz,nspecz)
      equivalence (q_perp, q_perp_ri)

c e_density replaces e_densityr, e_densityi:
c     complex e_density(kz,mz,nz)
      real e_density_ri(2,kz,mz,nz)
      equivalence (e_density, e_density_ri)

c     complex e_p(kz,mz,nz)
      real e_p_ri(2,kz,mz,nz)
      equivalence (e_p, e_p_ri)

c     complex e_r(kz,mz,nz)
      real e_r_ri(2,kz,mz,nz)
      equivalence (e_r, e_r_ri)

c     complex e_t(kz,mz,nz)
      real e_t_ri(2,kz,mz,nz)
      equivalence (e_t, e_t_ri)

c     complex phi_ba(kz,mz,nz)
      real phi_ba_ri(2,kz,mz,nz)
      equivalence (phi_ba, phi_ba_ri)

c     complex phi_bk(lz,mz,nz)
      real phi_bk_ri(2,lz,mz,nz)
      equivalence (phi_bk, phi_bk_ri)

c     complex e_denk(lz,mz,nz)
      real e_denk_ri(2,lz,mz,nz)
      equivalence (e_denk, e_denk_ri)

c     complex phiav_old(mz,nz)
      real phiav_old_ri(2,mz,nz)
      equivalence (phiav_old, phiav_old_ri)

c     complex utim(fno*nez,mz,nz)
      real utim_ri(2,fno*nez,mz,nz)
      equivalence (utim, utim_ri)