[Previous]
[Next]
NAME:
d2c
PURPOSE:
Convert digit from integer to single char
CATEGORY:
gen/for/lib/forstr.f
CALLING SEQUENCE:
character function d2c(i,n)
INPUTS:
i integer integer
n integer digit number (0,1, etc.)
OUTPUTS:
d2c character*1 decimal digit
CALLED BY:
Time2Str
PROCEDURE:
Used in functions like Time2Str instead of using a
write statement to avoid I/O recursion.
MODIFICATION HISTORY:
JUL-2005, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
[Previous]
[Next]
NAME:
dacosd
CALLING SEQUENCE:
entry dacosd(a)
INPUTS:
a double precision cos(angle)
CALLED BY:
POINT_ON_LOS, SC_ECLIPTIC, Time2smei_quaternion, rotate, rotated
SEE ALSO:
cosd
MODIFICATION HISTORY:
JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
[Previous]
[Next]
NAME:
dailyips
PURPOSE:
Sort daily IPS files into yearly files
CATEGORY:
IPS
CALLING SEQUENCE:
program dailyips
dailyips -day=day_dir -year=year_dir (full mode)
dailyips file-list -year=year_dir (update mode)
INPUTS:
In 'full mode' daily IPS files are read from $DAT/nagoya/ipsrt
In 'update mode' daily files whose names are read from 'file-list' are read
OUTPUTS:
New yearly files ('full mode') or updated yearly files ('update mode')
NOTE: an exit code of 1 indicates that new yearly files have been created
or that records have been added to the yearly files.
This is currently used by the Linux script 'sync_daily_ips' to decide
whether or not the tomography program should be rerun.
CALLS: ***
DailyIPS_UCSD [1], DailyIPS_UCSD [2], ForeignArg, IndexChar, Int2Str, LocFirst
LocFirstLen, Say, Str2Str, bOpenFile, cHideLogical, cInt2Str, iArrI4ValuePresent
iCheckDirectory, iFilePath, iFourDigitYear [1], iFourDigitYear [2], iFreeLun
iGetFileSpec, iSearch, iSetFileSpec, itrim
INCLUDE:
include 'dirspec.h'
include 'openfile.h'
include 'filparts.h'
RESTRICTIONS:
PROCEDURE:
> Daily files files are located in $DAT/nagoya/ipsrt unless another directory
is specified on the command line using argument -day_dir
> Yearly files are assumed to be located in the same directory as the daily files
unless another directory is specified on the command line using argument -year_dir
> The yearly files will be sorted into chronological order.
> FULL MODE:
If no foreign input is provided then the program will look in the directory
$DAT/nagoya/ipsrt for daily IPS files, and process all into yearly IPS files.
$DAT should be defined as a logical (VMS) or should be present in LOGFIL.TXT.
The yearly files are put in the same directory as the daily files.
Note that on Unix, Linux and NT this could mean that old version are
overwritten.
> UPDATE MODE:
If foreign input (command line argument) is provided it is assumed to be
a file containing a list of names of daily IPS files to be integrated into
the existing data base of yearly files.
The file names for the daily files should be fully-qualified file names
(including directory, which will be the same for all the daily files).
If no directory is specified then the program will look in the current
directory for daily and yearly files, so in that case the program MUST be
run from the data directory containing the IPS files.
MODIFICATION HISTORY:
SEP-1999, Paul Hick (UCSD/CASS)
SEP-2002, Paul Hick (UCSD/CASS)
Adapted to handle more than one scintillation index
OCT-2002, Paul Hick (UCSD/CASS)
Added option to specify locations of daily and yearly files
as command line arguments. (The sync_daily_ips script now uses
the Perl script 'mirror' to keep track of the VLIST_UCSD files,
so the yearly files had to be moved to another directory).
Fixed minor bug in detecting duplicate records. Sometimes duplicate
records were put in the yearly files.
NOV-2002, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
Rearranged format of output yearly files. Now each record ends with
pairs of g-level and scint index values in format F8.5,E10.3.
The first of these are the 'best values' (the g-level of this pair
is what is currently used in the tomography programs. Then follow
pairs for individual IPS stations (currently Kiso and Fuji).
The VLIST_UCSD files contain only the scint indices for the two
IPS stations. This program insert a leading pair of 'best values'
(zero g-level with scint index from the first IPS station) and
inserts columns for the g-level for each station (again zero g-level).
Fujiki's nagoya_glevel.pro calculates the g-level values.
[Previous]
[Next]
NAME:
dailyips
PURPOSE:
Sort daily IPS files into yearly files
CATEGORY:
IPS
CALLING SEQUENCE:
program dailyips
dailyips -day=day_dir -year=year_dir (full mode)
dailyips file-list -year=year_dir (update mode)
INPUTS:
In 'full mode' daily IPS files are read from $DAT/nagoya/ipsrt
In 'update mode' daily files whose names are read from 'file-list' are read
OUTPUTS:
New yearly files ('full mode') or updated yearly files ('update mode')
NOTE: an exit code of 1 indicates that new yearly files have been created
or that records have been added to the yearly files.
This is currently used by the Linux script 'sync_daily_ips' to decide
whether or not the tomography program should be rerun.
CALLS: ***
DailyIPS_UCSD [1], DailyIPS_UCSD [2], ForeignArg, IndexChar, Int2Str, LocFirst
LocFirstLen, Say, Str2Str, bOpenFile, cHideLogical, cInt2Str, iArrI4ValuePresent
iCheckDirectory, iFilePath, iFourDigitYear [1], iFourDigitYear [2], iFreeLun
iGetFileSpec, iSearch, iSetFileSpec, itrim
INCLUDE:
include 'dirspec.h'
include 'openfile.h'
include 'filparts.h'
RESTRICTIONS:
PROCEDURE:
> Daily files files are located in $DAT/nagoya/ipsrt unless another directory
is specified on the command line using argument -day_dir
> Yearly files are assumed to be located in the same directory as the daily files
unless another directory is specified on the command line using argument -year_dir
> The yearly files will be sorted into chronological order.
> FULL MODE:
If no foreign input is provided then the program will look in the directory
$DAT/nagoya/ipsrt for daily IPS files, and process all into yearly IPS files.
$DAT should be defined as a logical (VMS) or should be present in LOGFIL.TXT.
The yearly files are put in the same directory as the daily files.
Note that on Unix, Linux and NT this could mean that old version are
overwritten.
> UPDATE MODE:
If foreign input (command line argument) is provided it is assumed to be
a file containing a list of names of daily IPS files to be integrated into
the existing data base of yearly files.
The file names for the daily files should be fully-qualified file names
(including directory, which will be the same for all the daily files).
If no directory is specified then the program will look in the current
directory for daily and yearly files, so in that case the program MUST be
run from the data directory containing the IPS files.
MODIFICATION HISTORY:
SEP-1999, Paul Hick (UCSD/CASS)
SEP-2002, Paul Hick (UCSD/CASS)
Adapted to handle more than one scintillation index
OCT-2002, Paul Hick (UCSD/CASS)
Added option to specify locations of daily and yearly files
as command line arguments. (The sync_daily_ips script now uses
the Perl script 'mirror' to keep track of the VLIST_UCSD files,
so the yearly files had to be moved to another directory).
Fixed minor bug in detecting duplicate records. Sometimes duplicate
records were put in the yearly files.
NOV-2002, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
Rearranged format of output yearly files. Now each record ends with
pairs of g-level and scint index values in format F8.5,E10.3.
The first of these are the 'best values' (the g-level of this pair
is what is currently used in the tomography programs. Then follow
pairs for individual IPS stations (currently Kiso and Fuji).
The VLIST_UCSD files contain only the scint indices for the two
IPS stations. This program insert a leading pair of 'best values'
(zero g-level with scint index from the first IPS station) and
inserts columns for the g-level for each station (again zero g-level).
Fujiki's nagoya_glevel.pro calculates the g-level values.
[Previous]
[Next]
NAME:
DailyIPS_UCSD
PURPOSE:
Reads content of IPS data file, and appends it to the input arrays
CALLING SEQUENCE:
subroutine DailyIPS_UCSD(iParse,cName,iRec,nRec,cRec,cFil,iTime,iTb,iTe,nBlock,nReclIn,nReclOut,iReclOut,cStrOut)
INPUTS:
iParse integer 0: do not parse the input file name
1: parse the input file name
cName character*(*) Name of IPS data file to be read
iRec integer # records in input/output arrays already filled with data
(the current file is appended starting at iRec+1)
nRec integer Max. # records stored in input/output arrays.
iTime integer 0: file does not contain header (yearly file)
1: file contains header (daily VLIST_UCSD file)
nBlock integer daily file: # chars used for scint index (10)
yearly file: # chars used for g-level/scint index pair (10+8=18)
nReclIn integer Max. allowed record length for input records
nReclOut integer Max. allowed record length for output records
cStrOut character*(*) Scratch string
OUTPUTS:
iRec integer # records containing valid data
cRec(nRec) character*(*) Records read from file
cFil(nRec) character*(*) File name from which each record was read
iTb integer start of time substring in data records
iTe integer end of time substring in data records
iReclOut(2) integer Max. length of records read from file
CALLED BY:
dailyips [1], dailyips [2]
INCLUDE:
include 'openfile.h'
CALLS: ***
LocFirst, LocLast, Say, Str2Flt, Str2Flt_Exp, Str2Flt_Format, Str2Flt_Mask, bOpenFile
iFreeLun, itrim
MODIFICATION HISTORY:
SEP-1999, Paul Hick (UCSD/CASS)
SEP-2002, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
Modified to handle multiple scint indices in the incoming VLIST_UCSD files
The header in the new format is slightly different: it has SCINDX-A instead
of SC-INDX starting in a different column. Instead of using the position of
this string to determine the position of the scint index, now the first data
record is used directly assuming that the scint indices are written in E10.3
(i.e. 9 chars preceeded by a space).
In addition to inserting a column for g-levels (set to zero), a copy of the
first scint indices is inserted, and now is the first scint index in each
record. This extra column can later be used to derive a 'best' scint index
from the indices from multiple sites.
[Previous]
[Next]
NAME:
DailyIPS_UCSD
PURPOSE:
Reads content of IPS data file, and appends it to the input arrays
CALLING SEQUENCE:
subroutine DailyIPS_UCSD(iParse,cName,iRec,nRec,cRec,cFil,iTime,iTb,iTe,nBlock,nReclIn,nReclOut,iReclOut,cStrOut)
INPUTS:
iParse integer 0: do not parse the input file name
1: parse the input file name
cName character*(*) Name of IPS data file to be read
iRec integer # records in input/output arrays already filled with data
(the current file is appended starting at iRec+1)
nRec integer Max. # records stored in input/output arrays.
iTime integer 0: file does not contain header (yearly file)
1: file contains header (daily VLIST_UCSD file)
nBlock integer daily file: # chars used for scint index (10)
yearly file: # chars used for g-level/scint index pair (10+8=18)
nReclIn integer Max. allowed record length for input records
nReclOut integer Max. allowed record length for output records
cStrOut character*(*) Scratch string
OUTPUTS:
iRec integer # records containing valid data
cRec(nRec) character*(*) Records read from file
cFil(nRec) character*(*) File name from which each record was read
iTb integer start of time substring in data records
iTe integer end of time substring in data records
iReclOut(2) integer Max. length of records read from file
CALLED BY:
dailyips [1], dailyips [2]
INCLUDE:
include 'openfile.h'
CALLS: ***
LocFirst, LocLast, Say, Str2Flt, Str2Flt_Exp, Str2Flt_Format, Str2Flt_Mask, bOpenFile
iFreeLun, itrim
MODIFICATION HISTORY:
SEP-1999, Paul Hick (UCSD/CASS)
SEP-2002, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
Modified to handle multiple scint indices in the incoming VLIST_UCSD files
The header in the new format is slightly different: it has SCINDX-A instead
of SC-INDX starting in a different column. Instead of using the position of
this string to determine the position of the scint index, now the first data
record is used directly assuming that the scint indices are written in E10.3
(i.e. 9 chars preceeded by a space).
In addition to inserting a column for g-levels (set to zero), a copy of the
first scint indices is inserted, and now is the first scint index in each
record. This extra column can later be used to derive a 'best' scint index
from the indices from multiple sites.
[Previous]
[Next]
NAME:
dasind
CALLING SEQUENCE:
function dasind(a)
INPUTS:
a double precision sin(angle)
CALLED BY:
POINT_ON_LOS, SC_ECLIPTIC, quaternion_rotate_angles, smei_frm_fts_axis
smei_skyd_fts, smei_skyd_init, smei_skyd_make, smei_skyd_sky
INCLUDE:
include 'math.h'
SEE ALSO:
cosd
MODIFICATION HISTORY:
JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
[Previous]
[Next]
NAME:
datan2d
CALLING SEQUENCE:
entry datan2d(a,b)
INPUTS:
a double precision sin(angle)
b double precision cos(angle)
CALLED BY:
POINT_ON_LOS, SC_ECLIPTIC, Time2KeplerOrbit, Time2smei_quaternion
quaternion_rotate_angles, rotate, rotated, smei_axis_cam, smei_axis_ccd
smei_cam2ccd, smei_ccd2cam, smei_frm_fts_axis, smei_frm_ok, smei_skyd_fill
smei_skyd_flush, smei_skyd_fts, smei_skyd_init, smei_skyd_make, smei_skyd_sky
smei_skyd_sort
SEE ALSO:
cosd
MODIFICATION HISTORY:
JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
[Previous]
[Next]
NAME:
datand
CALLING SEQUENCE:
entry datand(a)
INPUTS:
a double precision tan(angle)
CALLED BY:
Time2PAnglePole
SEE ALSO:
cosd
MODIFICATION HISTORY:
JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
[Previous]
[Next]
NAME:
DATE_DOY
PURPOSE:
Converts dates (iYr,Month,iDay) to daynumber iDoy and v.v.
CATEGORY:
Time keeping
CALLING SEQUENCE:
subroutine DATE_DOY(ID,iYr,cMon,iMon,iDay,iDoy)
INPUTS:
ID integer ID=0 date (yr,month,day) ----> doy of year
ID=1 doy of year ----> date (yr,month,day)
iYr integer year; the year xxxBC should be entered as -xxx+1.
ID = 0:
cMon character*3 month (either cMon or iMon must be specified)
iMon integer value 1-12 (see PROCEDURE)
iDay integer day of month
ID = 1:
iDoy integer day of year
OUTPUTS:
ID = 0:
iDoy integer day of year
ID = 1:
cMon character*3 month
iMon integer 1-12
iDay integer day of month
CALLS: ***
uppercase
CALLED BY:
HERDISK, Pandora, ReadG, ReadGHD, SetGrid, SortIPS, iProcessNagoya, iProcessNagoyan
iProcessOoty, iProcessOotyn, iReadNagoya, iReadNagoyan, iReadOoty, iReadOotyn, ipsd
ipsdt
RESTRICTIONS:
>>> For ID=0 (date --> doy) the input for the month may be given in the form
of a char-string cMon or as an integer iMon. cMon takes precedence
over iMon: first cMon is checked for valid input; if cMon is not valid
iMon is used (if iMon is invalid too, the program is aborted).
>>> ADVICE: ALWAYS use cMon for input.
Upon output the values of cMon and iMon are always consistent.
The returned value for cMon is always in uppercase.
PROCEDURE:
Dates before 5 october 1582 are interpreted as Julian dates; after 15
october as Gregorian dates.
>>> 5 october 1582 (Julian) = 15 october 1582 (Gregorian).
MODIFICATION HISTORY:
1989-1990, Paul Hick (MPAE,UCSD/CASS; pphick@ucsd.edu)
[Previous]
[Next]
NAME:
Dbl2Str
PURPOSE:
Convert floating point number to string
CATEGORY:
Strings: write floating point number to string
CALLING SEQUENCE:
integer function Dbl2Str(Fin,Nin,cFlt)
INPUTS:
Fin double precision floating point number to be converted
Nin integer (see PROCEDURE)
OUTPUTS:
cFlt character*(*) resulting string
Dbl2Str integer number of useful characters in cFlt
CALLED BY:
AskLimit, AskR8, MAP_TZERO, Time2CarringtonT0, cDbl2Str, smei_frm_ok, smei_orb
smei_skyd, smei_skyd_fts, smei_skyd_init, smei_skyd_make, smei_skyd_sky
INCLUDE:
include 'str2str_inc.h'
CALLS: ***
Int2Str, Int2StrSet, LocFirst, icompress
SEE ALSO:
Int2Str, Str2Str, cFlt2Str
PROCEDURE:
> Round-off is done properly (I think)
> Maximum number of digits behind the decimal point is 8
> ndig=mod(Nin,100) is the number of digits behind the decimal point
> The output string is made as short as possible. Trailing zero's in the
decimal fraction are dropped (unless ndig < 0). A zero decimal fraction
is dropped, including decimal point.
> If ndig < 0 then trailing zero's in the decimal fraction are retained
(this implies that a zero fraction is not automatically dropped)
> nexp = abs(Nin)/100 determines the range of numbers printed in F
format: 0.1 <= Fin < 10^nexp is printed in F format. Numbers outside
this range are printed in E format.
MODIFICATION HISTORY:
AUG-1995, Paul Hick (UCSD)
[Previous]
[Next]
NAME:
dcosd
CALLING SEQUENCE:
function dcosd(a)
INPUTS:
a double precision angle in degrees
CALLED BY:
POINT_ON_LOS, PRECESSION_APPROX, SC_ECLIPTIC, SunNewcomb, SunNewcomb8, TheFit
Time2KeplerOrbit, Time2PAnglePole, Time2SunNewcomb, quaternion_rotate_angles
rotate, rotate_euler2dcm, rotated, smei_axis_ccd, smei_cam2ccd, smei_ccd2cam
smei_skyd_fill, smei_skyd_flush, smei_skyd_fts, smei_skyd_init, smei_skyd_make
smei_skyd_pixel, smei_skyd_scan, smei_skyd_sky, smei_skyd_sort
INCLUDE:
include 'math.h'
SEE ALSO:
cosd
MODIFICATION HISTORY:
JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
[Previous]
[Next]
NAME:
Deneq3
PURPOSE:
Determines the average value at the mid latitude of a 3D array.
CALLING SEQUENCE:
subroutine Deneq3(nLng,nLat,nT,Z,RR,DENEQU)
INPUTS:
nLng integer # longitudes
nLat integer # latitudes
nT integer # times
Z(nLng,nLat,nT) real 3D array of function values
RR real Height of source surface in AU
OUTPUTS:
DENEQU real Average density at 1 AU at the solar equator
CALLS: ***
BadR4
CALLED BY:
ipsdt
PROCEDURE:
MODIFICATION HISTORY:
February, 2001, B. Jackson (UCSD)
[Previous]
[Next]
NAME:
dir_linux
PURPOSE:
Operating system: LINUX
Contains OS specific parameters related to the file system.
This is our main defense against platform-dependent I/O problems.
CALLING SEQUENCE:
include 'dirspec.h'
INCLUDE:
include 'dirspec_os.h'
PROCEDURE:
[Previous]
[Next]
NAME:
dirspec
PURPOSE:
Operating system: LINUX
Contains OS specific parameters related to the file system.
This is our main defense against platform-dependent I/O problems.
CALLING SEQUENCE:
include 'dirspec.h'
INCLUDE:
include 'dirspec_os.h'
INCLUDED BY:
AskChar, AskLog, AskR4, AskR8, BListAll, Connect, CvI2, CvI4, CvR4, CvR8, FileSelection
ForeignArg, ForeignArgFind, ForeignArgSet, ForeignArgs, ForeignI2ArgN
ForeignI4ArgN, ForeignInput, ForeignR4ArgN, ForeignR8ArgN, ForeignStrArg, GIPSCAST
HERDISK, HOSInquire, HOSdos2vms, LogModFile, OGetRecord, OSExitCmd, Pandora
ParseRepair, Peep, READ_HOS, ReadVIPS, ReadVIPSn, SD, SD_SCAN, SD_TREE, Say, SetGipsy
SetGrid, SetLog2Dir, SetRotations, Time2smei_eph, UlyssesOrbit, WR2DARR, WriteLOSD
WriteLOSY, bOSFind, bOpenFile, bReadNic, bTempFile, bUncompressNic, bValidFileName
bValidFragment, bValidPath, bWriteNic, dailyips [1], dailyips [2], iDir2File
iFile2Dir, iFilePath, iFullFragment, iGetDefaultDir, iGetLogical [1]
iGetLogical [2], iHOSArch, iHOSInfo, iHOSRead, iHideLogical, iLastFragment
iOSCheckDirectory, iOSCopyFile, iOSGetDirectory, iOSgunzip, iOpenFile
iParentFragment, iReadG, iReadProxyMap, iSearch, iSetFileSpec, iShowDefaultDir
iTopFragment, ipsd, ipsg2, ipsg2s, ipsg2t, jpl_state, jpl_test, mkenv, rice, smei_base
smei_cal, smei_cal_c3mask, smei_cal_get, smei_foreign, smei_frm_getlist
smei_frm_path, smei_get_glare, smei_get_lsff, smei_get_starmask, smei_orb
smei_orb_get, smei_orbit_info2, smei_skyd, sprint
PROCEDURE:
[Previous]
[Next]
NAME:
dirspec_os
PURPOSE:
Defines parameters to identify operating systems.
Used to resolve platform-dependent problems
INCLUDED BY:
dir_linux, dirspec
MODIFICATION HISTORY:
JAN-2000, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
[Previous]
[Next]
NAME:
DOW
PURPOSE:
Calculate day of week from Julian day number
CATEGORY:
Time keeping
CALLING SEQUENCE:
character*3 function DOW(JD)
INPUTS:
JD double precision Julian day number
OUTPUTS:
DOW character*3 day of week (standard abbreviation, e.g. MON,TUE)
PROCEDURE:
Julian day 1 is by definition a monday. The MOD function is used to
find the correct day of the week.
MODIFICATION HISTORY:
1990, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
[Previous]
[Next]
NAME:
dsind
CALLING SEQUENCE:
entry dsind(a)
INPUTS:
a double precision angle in degrees
CALLED BY:
EqKeplerd, POINT_ON_LOS, PRECESSION_APPROX, SC_ECLIPTIC, SunNewcomb, SunNewcomb8
TheFit, Time2KeplerOrbit, Time2SunNewcomb, quaternion_rotate_angles, rotate
rotate_euler2dcm, rotated, smei_axis_cam, smei_axis_ccd, smei_cam2ccd
smei_ccd2cam, smei_skyd_fill, smei_skyd_flush, smei_skyd_fts, smei_skyd_init
smei_skyd_make, smei_skyd_pixel, smei_skyd_scan, smei_skyd_sky, smei_skyd_sort
SEE ALSO:
cosd
MODIFICATION HISTORY:
JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
[Previous]
[Next]
NAME:
dtand
CALLING SEQUENCE:
entry dtand(a)
INPUTS:
a double precision angle in degrees
CALLED BY:
Time2PAnglePole
SEE ALSO:
cosd
MODIFICATION HISTORY:
JAN-2001, Paul Hick (UCSD; pphick@ucsd.edu)
[Previous]
[Next]
NAME:
Dust
PURPOSE:
Test program for the subroutine DustAsymmetry which transforms the Helios
photometer brightnesses into the plane of symmetry of the zodiacal dust cloud.
CATEGORY:
Test: Helios
CALLING SEQUENCE:
program Dust
INPUTS:
Unnormalized Helios photometer, containing a single color and filter.
OUTPUTS:
To screen
CALLS: ***
ASKLOGG, ArrR4Copy, AskI4, AskYN, BadR4, CLEARWINDOW, DustAsymmetry, HOSRead
ISETTERMANDPLOT, ISWITCHGRAPHICSOFF, ISWITCHGRAPHICSON, PlotCurve, Say, USRDF
hardcopy, iGetFileSpec, iHOSInfo, iSetFileSpec, pInfR4
INCLUDE:
include 'filparts.h'
include 'hos_e9.h'
PROCEDURE:
Only filters 1 through 4 are analyzed. Filter 5 (pB) is ignored.
MODIFICATION HISTORY:
MAY-2000, Paul Hick (UCSD; pphick@ucsd.edu); documentation
[Previous]
[Next]
NAME:
DustAsymmetry
PURPOSE:
Converts an observed intensity in the ecliptic into an intensity as
would be observed in the plane of symmetry of the zodiacal dust cloud
(iD=0) and v.v. (iD=1)
CATEGORY:
Physics: empirical correction
CALLING SEQUENCE:
subroutine DustAsymmetry(nD,iSc,iT,P,L,nS,Z)
INPUTS:
nD integer =0 : convert from ecliptic to symmetry plane
=1 : convert from symmetry plane to ecliptic
iT integer # measurements
P(iT) integer photometers
L(iT) real ecliptic longitude of Sun
nS integer # sectors
Z(nS,iT) real intensities
OUTPUTS:
Z(nS,iT) real corrected intensities
CALLS: ***
BadR4, cosd, sind
CALLED BY:
Dust, NODAT, TheFit
PROCEDURE:
The corrections used are from Leinert et al.: Astron. Astrophys. 110
(1982) 355-357
MODIFICATION HISTORY:
???-1990, Paul Hick (UCSD/CASS; pphick@ucsd.edu)
