Argument Definitions (+ indicates altered content)

INTEGER MONTH REAL SSN

Description

redmap.f THIS ROUTINE READS THE IONOSPHERIC LONG TERM DATA BASE FILE An error in the coefficient data file was corrected on 3.Nov.94 The values for SYS(9,2,6) & SYS(9,10,6) for SPRING & FALL were wro They were 115.2 and should have been 11.52. This required no programming change, but the comment was placed he to record the error for posterity. The change was corrected in th ASCII data file and then it was converted to binary.

Source file:	redmap.f

I/O Operations:

Unit ID Unit No Access Form Operation 27 DIR UNF OR 27 C 27 SEQ UNF OR 27 SEQ A Operation codes A=rewind,B=backspace,C=close,E=endfile I=inquire,O=open,R=read,W=write

External Functions and Subroutines Called

INTEGER LCOUNT

Local Variables (+ indicates altered content)

CHARACTER*12 +COEFF_NAME, +FOF2_NAME INTEGER +I, +J, +NCH_RUN REAL +SSN10, +SSN100, +SSN125, +SSN150 REAL +SSN25, +XERCOF(9,22,2) REAL +XESLCF(5,55,2), +XESMCF(7,61,2) REAL +XESUCF(5,55,2), +XF2COF(13,76,2) REAL +XFM3CF(9,49,2), +XPMAP(29,16,2)

Referenced Common Block Variables (+ indicates altered content)

CCOEFF CHARACTER*4 +COEFF CRUN_DIRECTORY CHARACTER*50 RUN_DIRECTORY FONE REAL +ACHI(2), +ANEW(3) FONE REAL +BCHI(2), +BNEW(3) ONE INTEGER +IKIM(10,6) ONE REAL +ERCOF(9,22) ONE REAL +ESLCOF(5,55) ONE REAL +ESMCOF(7,61) ONE REAL +ESUCOF(5,55) ONE REAL +F2COF(13,76) ONE REAL +FM3COF(9,49) TWO REAL +ABMAP(2,3) TWO REAL +DUD(5,12,5) TWO REAL +F2D(16,6,6) TWO REAL +FAKABP(2,6) TWO REAL +FAKMAP(29,16) TWO REAL +FAKP(29,16,6) TWO REAL +FAM(14,12) TWO REAL +HMYM(29,16) TWO REAL +PERR(9,4,6) TWO REAL +SYS(9,16,6)