SUBROUTINE FLOLIN ( JFMT, IDECIMAL, VAR, LIN )
Argument Definitions (+ indicates altered content)
CHARACTER*(*)     +JFMT
INTEGER            IDECIMAL,   LIN
REAL               VAR(13)
Description
     SUBROUTINE WRITES A VECTOR FORMATTED LINE 
FOR A FLOATING POINT VARIABLE
Source file:flolin.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
    LUO                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Local Variables (+ indicates altered content)
CHARACTER*8       +DECIMAL(3)
CHARACTER*4       +NDASH
INTEGER           +I,         +IERRSTAT,  +IMUF,      +J
Referenced Common Block Variables (+ indicates altered content)
CONTRL             INTEGER            JDASH,     JFREQ
FILES              INTEGER            LUO
OUTFMT             CHARACTER*6        KLINE(26)