AIX

         
    50        format (1x, F7.2, T12, F7.1, T24, I6)

#!/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

$ ./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$