Commit 4e3758f8 authored by Roberto Susino's avatar Roberto Susino
Browse files

Code optimizations

parent 5efe1b38

metis_dark_uvda.pro

+1 −1
Original line number Diff line number Diff line
@@ -2,7 +2,7 @@ function metis_dark_uvda, data, header, cal_pack, history = history 


	dark = cal_pack.uv_channel.dark



	dit = header.dit/1000.d0

	dit = header.dit/1000.D0

	ndit1 = header.ndit1

	ndit2 = header.ndit2

	nbin = sqrt(header.nbin)

metis_dark_vlda.pro

+3 −3
Original line number Diff line number Diff line
@@ -4,14 +4,14 @@ function metis_dark_vlda, data, header, cal_pack, history = history 
	dark = cal_pack.vl_channel.dark

	bias_dark = cal_pack.vl_channel.bias_dark



	dit = header.dit

	dit = header.dit/1000.D0

	ndit = header.ndit

	nbin = sqrt(header.nbin)

	tsensor = header.tsensor

	obt_beg = header.obt_beg/1000d0

	obt_beg = header.obt_beg/1000.D0



	for i = 0, n_elements(bias_dark) - 1 do begin

		if bias_dark[i].dit eq dit/1000. and bias_dark[i].nbin eq nbin and abs(bias_dark[i].tsensor - tsensor) lt 5 then begin

		if bias_dark[i].dit eq dit and bias_dark[i].nbin eq nbin and abs(bias_dark[i].tsensor - tsensor) lt 5 then begin

			dark_image = float(readfits(cal_pack.path + bias_dark[i].file_name, /silent))

			dark_file = bias_dark[i].file_name

metis_rectify.pro

+1 −0
Original line number Diff line number Diff line
@@ -4,5 +4,6 @@ function metis_rectify, image, filter 
		image = reverse(image, 1)

		image = rotate(image, 1)

	endif

	

	return, image

end

solo_get_carrot.pro

+3 −3
Original line number Diff line number Diff line
@@ -4,7 +4,7 @@ function solo_get_carrot, utc 


	jul_day = date_conv(utc, 'julian')



	carr = (jul_day - 2398167.d0) / 27.2753d0 + 1

	carr = (jul_day - 2398167.D0)/27.2753D0 + 1



	; convert the requested date into ephemeris time
@@ -21,7 +21,7 @@ function solo_get_carrot, utc 
	; calculate the fractional part of the decimal rotation number



	if he_lon lt 0. then he_lon = he_lon + 2. * !dpi

	frac = 1.d0 - he_lon / (2. * !dpi)

	frac = 1.D0 - he_lon/(2. * !dpi)

	n_carr = round(carr - frac)

	carr = n_carr + frac

solo_get_coords.pro

+2 −2
Original line number Diff line number Diff line
@@ -31,8 +31,8 @@ function solo_get_coords, utc, frame, obs, velocity = velocity, spherical = sphe 
		cspice_reclat, coord, solo_dist, solo_lon, solo_lat

		if frame eq 'IAU_SUN' then solo_lon = (solo_lon + 2. * !dpi) mod (2. * !dpi)

		if keyword_set(degrees) then begin

			solo_lat = solo_lat * 180.d0 / !dpi

			solo_lon = solo_lon * 180.d0 / !dpi

			solo_lat = solo_lat * 180.D0/!dpi

			solo_lon = solo_lon * 180.D0/!dpi

		endif

		coord = [solo_dist, solo_lon, solo_lat]

	endif