I am using FORTRAN 90 on AIX 5.3 and need to output my data to a tab-delimited file. It must have actual tabs, and I cannot figure out a way to make it work. The resulting file will be imported into another application (quickbooks) as an .iif file....for some reason, it needs the tabs; spaces do not work. I would think it would be simple, but no...
Anyone have any experience with this one? Any info is greatly appreciated!
T == tab character, usage Tc where c == column number, tab at columns 12 and 24 example:
50 format (1x, F7.2, T12, F7.1, T24, I6)
Hi.
This uses gfortran to write TAB characters:
#!/usr/bin/env bash
# @(#) s1 Demonstrate Fortran-90 writing TAB characters.
# Utility functions: print-as-echo, print-line-with-visual-space, debug.
# export PATH="/usr/local/bin:/usr/bin:/bin"
pe() { for _i;do printf "%s" "$_i";done; printf "\n"; }
pl() { pe;pe "-----" ;pe "$*"; }
db() { ( printf " db, ";for _i;do printf "%s" "$_i";done;printf "\n" ) >&2 ; }
db() { : ; }
C=$HOME/bin/context && [ -f $C ] && $C gfortran
FILE=${1-one.f90}
pl " Input data file $FILE:"
cat $FILE
gfortran $FILE
pl " Results, plain:"
./a.out
pl " Results, showing invisible character representation:"
./a.out |
cat -vet
pl " Results, showing invisible character representation, eliminate blanks:"
./a.out |
sed 's/ //g' |
cat -vet
exit 0
producing:
$ ./s1
Environment: LC_ALL = , LANG = en_US
(Versions displayed with local utility "version")
aix 7.1.0.0
bash GNU bash 4.2.10
gfortran GNU Fortran (GCC) 4.6.3
-----
Input data file one.f90:
program f1
! @(#) f1 Demonstrate Fortran-90, write a TAB character.
character*1 :: tab
tab = " " ! a real TAB character between quotes
write(*, "(f7.3,a,f7.3,a,i7)") 1.0, tab, 2.0, tab, 3
end
-----
Results, plain:
1.000 2.000 3
-----
Results, showing invisible character representation:
1.000^I 2.000^I 3$
-----
Results, showing invisible character representation, eliminate blanks:
1.000^I2.000^I3$
See man pages for details.
Best wishes ... cheers, drl