program revjulia

C 6/07:  revise test JULIA ViperpN,E (Viz,E) so pltvst will work

	integer int11(11),int5(5),int4(4),int3(3)

	open (11,file='julia050907.asc',status='old')
	open (12,file='jul050907a.asc')

	do 200 n=1,132
	read (11,"(i7,10i6)") int11
	read (11,"(i4,4i6)") int5
C Change number of lines to read from 4 to 5 (prologue+2 1-D + 2 2-D = 5)
	int11(1) = 5
C Change kinst to 840
	int11(3) = 840
C Change kindat to 1950
	int11(4) = 1950
C Change #1-D from 3 to 5
	int5(3) = 5
	write (12,"(16i6)") int11,int5
C  Add 110 and -110 codes for 140-170 km ave
	read (11,"(i7,2i6)") int3
	write (12,"(3i6,'   110  -110')") int3
	read (11,"(i7,2i6)") int3
	write (12,"(3i6,'   155    15')") int3
	read (11,"(i7,3i6)") int4
	write (12,"(4i6)") int4
	if (int11(7) .lt. 1404 .or. int11(7) .gt. 2039) then
C  The format is i6 at the beginning if negative (-32768) or is i7 if positive
C   if neg 1252 is neg 1242, but is neg 1242 (VpE) but not neg 1252 (Viz) 2015,2035UT
C   Was easier to just change the spacing so was never 4i6 between 1405-2035
	  read (11,"(4i6)") int4
	else
	  read (11,"(i7,3i6)") int4
	endif
C  Change all -32768 to -32767
	do 100 i=1,4
	if (int4(i) .eq. -32768) int4(i) = -32767
100     continue
	write (12,"(4i6)") int4
200     continue

	stop
	end