%N tabwcr %F $MIR/src/subs/tabio.c
%D Write a real value to a column in a table
%: image-i/o
%B
FORTRAN call sequence:
        subroutine tabwcr(tno,col,value)
        integer tno,col
        real value

  This writes a real value into a column of the active row. See
  TABSETR to set the row (1=first)_

  Input:
    tno         The table file handle, returned by tabopen.
    col         The column to write  (1=first)
    value       The real value                                          
