3 c define passed variables
7 c converts all tab characters in text to blanks
9 character*1 tab, ablank
10 parameter(tab = char(9), ablank = char(0))
11 c parameter(tab =
'\t', ablank =
' ')
14 if (text(i:i) .eq. tab)
then
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line c
subroutine tab2blnk(text)