SUBROUTINE INCARD ( )

Description
                                                                        * 
  Copyright (C) 1996 Leif Laaksonen, Dage Sundholm                      * 
  Copyright (C) 1996-2010 Jacek Kobus               * 
                                                                        * 
  This program is free software; you can redistribute it and/or modify  * 
  it under the terms of the GNU General Public License version 2 as     * 
  published by the Free Software Foundation.                            * 
                                                                        * 
 
### inCard ### 
 
    This routine reads )and echoes) a single data card and 
 
      - changes upper case letters into a lower case ones 
      - changes tabs (if any) into spaces 
      - removes leading spaces 
 
    Then it scans the line for nonspace fields. The number of fields 
    is stored in jump, the starting point of a given field in istrt(i) 
    and the number of characters in that field in inumb(i). If the 
    routine finds an exclamation mark or a hash then anything on the 
    same line that follows these characters is treated as a comment.
Source file:inCard.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
  IINP5                   SEQ  FMTD          R   
  IOUT6                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
External Functions and Subroutines Called
SUBROUTINE         LFTPOS,     LOWCASE,    TABCHK
Parameter Variables Used
INTEGER            I40                (I40 = 40)
INTEGER            I80                (I80 = 80)
Local Variables (+ indicates altered content)
CHARACTER         +BLNK,      +EXM,       +HASH,      +IATMP(80)
INTEGER           +I,         +IKE,       +ILE,       +ISW
INTEGER           +IT
Referenced Common Block Variables (+ indicates altered content)
IOCHAN             INTEGER            IINP5,     IOUT6
WORK               CHARACTER         +IA(I80)
WORK               INTEGER           +INUMB(I40)
WORK               INTEGER           +ISTRT(I40)
WORK               INTEGER           +JREC,     +JUMP

SUBROUTINE INCARDH ( HEADER80 )

Argument Definitions (+ indicates altered content)
CHARACTER*80      +HEADER80
Description
                                                                        * 
  Copyright (C) 1996 Leif Laaksonen, Dage Sundholm                      * 
  Copyright (C) 1996-2010 Jacek Kobus               * 
                                                                        * 
  This program is free software; you can redistribute it and/or modify  * 
  it under the terms of the GNU General Public License version 2 as     * 
  published by the Free Software Foundation.                            * 
                                                                        * 
 
### inCardh ### 
 
    This routine reads a single data card (80 characters) and returns 
    the data from columns 6-80.
Source file:inCard.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
  IINP5                   SEQ  FMTD          R   
  IOUT6                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
External Functions and Subroutines Called
SUBROUTINE         LFTPOS,     LOWCASE,    TABCHK
Parameter Variables Used
INTEGER            I40                (I40 = 40)
INTEGER            I80                (I80 = 80)
Local Variables (+ indicates altered content)
CHARACTER         +BLNK,      +EXM
CHARACTER*80      +H80
CHARACTER         +HASH,      +HEADER(I80),           +IATMP(80)
INTEGER           +I,         +IKE,       +ILE,       +ISW
INTEGER           +IT
Referenced Equivalenced Variables (+ indicates altered content)

EQUIV              CHARACTER*80      +H80        Local Var
                   CHARACTER         +HEADER()   Local Var
Referenced Common Block Variables (+ indicates altered content)
IOCHAN             INTEGER            IINP5,     IOUT6
WORK               CHARACTER         +IA(I80)
WORK               INTEGER           +INUMB(I40)
WORK               INTEGER           +ISTRT(I40)
WORK               INTEGER           +JREC,     +JUMP

SUBROUTINE LFTPOS ( LINE, LENGTH )

Argument Definitions (+ indicates altered content)
CHARACTER         +LINE(LENGTH)
INTEGER            LENGTH
Description
### lftpos ### 
 
Eliminates blanks to the left and left position chararcter string card.
Source file:inCard.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
               6          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)
INTEGER           +IEFF,      +IPOS,      +NTEST

SUBROUTINE LOWCASE ( LINE, LENGTH )

Argument Definitions (+ indicates altered content)
CHARACTER         +LINE(LENGTH)
INTEGER            LENGTH
Description
### lowcase ### 
 
Converts letters in a character string line to the lower case.
Source file:inCard.f
Local Variables (+ indicates altered content)
CHARACTER         +LOWER(26), +UPPER(26)
INTEGER           +I,         +ICHA

SUBROUTINE TABCHK ( LINE, LENGTH )

Argument Definitions (+ indicates altered content)
CHARACTER         +LINE(LENGTH)
INTEGER            LENGTH
Description
### tabchk ### 
 
    Searches for a tab in the string line and replace it by a space.
Source file:inCard.f
Intrinsic Functions Called
CHARACTER*8        CHAR
Local Variables (+ indicates altered content)
CHARACTER         +ITAB
INTEGER           +I