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    hdm_ndm, imin, mode, msec, perihelion_shift, sc, shift, 
	3    th, tm, ts, status, idummy, elmin, elmax, azmin, azmax,
	4    enmin, enmax, init_words(8,4), q_words(5,4)
	parameter (dim =256)
	integer  compressed(dim), electron(dim), electron_c(8,16),
	3    h1corr(dim), h2corr(dim), i1a_3(7,7,32), i1a_3_all(9,16,32),
	1    i1a_3_int(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       
	double precision earcarlat, earcarlng, eardissun, helcarlat,
	1    helcarlng, heldissun, hellngasc, helvnorm, helvrad,
	1    hseangle, k1aint, ki3int, k1b 
	
        double precision azimuth(16,2,2,2), azimuth3(16,2,2,2), 
	1    azimuthe(2,2,2,8), electron_distribution(8,16), 
	2    elevation(9,2), fd1d1a_3(32), fd1d1b(32), 
	3    fd3d(9,16,32), k1a(2,9), ki3(2,9), malph(3), mi1a(5), 
	4    mi1b(3), volt1a(32,2,2), volt1b(32,2,2), volt3(16,2),
	2    vx(9,16,32,2,2,2), vx_e(8,16), vy(9,16,32,2,2,2), 
	5    vy_e(8,16), vz(9,16,32,2,2,2), b(3), bsig(3),
	6    elevation3(9,2), zerorate_i1a, zerorate_i1b, 
	7    zerovar_i1b(3)
	double precision, 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