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
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
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
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
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