implicit none
c
       	integer * 2 yr_doy(2)
	integer i, j, k, l, m, n, o
	integer bitrate, dim, dismod, earcarrot, eminus, fformat,
	1   helcarrot, i1a_3_on, i2a_b, i1min, i1max, i2min, i2max,
	1   i3min,i3max, i11min, i11max, i21min, i21max,i31min, i31max,
	2   minus,minus_one,mode, msec, perihelion_shift, sc, shift, th,
	2   tm, ts, status, idummy
	parameter (dim =256)
	integer  compressed(dim), electron(dim), electron_c(8,16),
	3   h1corr(dim), h2corr(dim), i1a(7,7,32), i1a_all(16,9,32),
	1   i1aint(32), i1b(32),i2b(8,16), indata(128), index(3),
	4   gmaxel(4), gmaxaz(4),gmaxen(4), gmass(4), norm(dim), 
	2   shape(2)
	integer, allocatable, dimension(:,:,:) :: i1a_dummy
c
	real earcarlat, earcarlng, eardissun, helcarlat,
	1   helcarlng, heldissun, hellngasc, helvnorm, helvrad,
	1   hseangle, k1aint, k1b

        real azimuth(16,2,2,2), azimuthe(2,2,2,8), b(3), bsig(3),
	3   electron_distribution(8,16), elevation(9,2), fd1d1a(32),
	1   fd1d1b(32), fd3d(16,9,32), k1a(2,9), malph(3),mi1a(5),
	4   mi1b(3), volt1a(32,2,2), volt1b(32,2,2),
	2   vx(16,9,32,2,2,2), vx_e(8,16), vy(16,9,32,2,2,2), 
	5   vy_e(8,16), vz(16,9,32,2,2,2)
	real, allocatable, dimension(:,:,:,:) :: dummy
c
	double precision AU_day2km_s, azimuth_cor, millisec2hour, 
	1   phi_sc, pi180,si_me2, vcor, vnorm, vrad, vxcor, vycor, waz
	double precision cr(2), v(16), v_sc2(16), v_sw2(16), v4(16)
c
	character endung * 3, file * 12, out * 9, out_0 * 2, shiftc * 1,
	1   directory * 7, year * 2, doy * 3, yesno * 3
c