SUBROUTINE IONPLT ( K )

Argument Definitions (+ indicates altered content)
INTEGER            K
Description
THIS ROUTINE OUTPUTS IONOGRAMS 
 
K IS SAMPLE AREA INDEX
Source file:ionplt.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
   JOUT                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
CHARACTER          CHAR
INTEGER            MAX0,       MIN0
External Functions and Subroutines Called
SUBROUTINE         OUTTOP
Local Variables (+ indicates altered content)
CHARACTER*3       +IB,        +IBB(6),    +IBLANK
CHARACTER         +IC
CHARACTER*3       +IDOT
CHARACTER*10      +IFONE(3)
CHARACTER*3       +ILY(4)
CHARACTER         +IMINUS
CHARACTER*10      +INTG(2)
CHARACTER         +IPLUS
CHARACTER*3       +IS(3)
CHARACTER         +ITF
CHARACTER*3       +IX(100),   +IXXX
INTEGER           +IBI,       +ICR,       +IDN,       +IDX
INTEGER           +IDY,       +IH,        +IHLS,      +IJ
INTEGER           +INDEX,     +INE,       +IPRT,      +IPX
INTEGER           +ISB,       +ISX,       +IZ,        +JFSCAL(10)
INTEGER           +JJ,        +JOUT
REAL              +CKC,       +CLA,       +CLON,      +FINC
REAL              +RDX,       +RDY,       +ZOB1,      +ZOB2
Referenced Common Block Variables (+ indicates altered content)
CON                REAL               R2D,       RZ
ES                 REAL               FS(3,5),   HS(5)
FILES              INTEGER            LUO
GEOG               REAL               CLCK(5)
ION                INTEGER            METHOD
MFAC               INTEGER            IEDP
MFAC               REAL               FSECV(3)
RON                INTEGER            KFX
RON                REAL               CLAT(5),   CLONG(5)
RON                REAL               FI(3,5),   FVERT(30,5)
RON                REAL               HI(3,5),   HPRIM(30,5)
RON                REAL               HTRUE(30,5)
RON                REAL               RD(5),     YI(3,5)
TIME               REAL               GMT