Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
tab2blnk.f
Go to the documentation of this file.
1  subroutine tab2blnk (text)
2 c
3 c define passed variables
4 c
5  character text*(*)
6 c
7 c converts all tab characters in text to blanks
8 c
9  character*1 tab, ablank
10  parameter(tab = char(9), ablank = char(0))
11 c parameter(tab = '\t', ablank = ' ')
12 c
13  do i = 1, len(text)
14  if (text(i:i) .eq. tab) then
15  text(i:i) = ablank
16  end if
17  end do
18 c
19  return
20  end
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
Definition: zdemfmt.h:7
subroutine tab2blnk(text)
Definition: tab2blnk.f:1