Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
strpname.f
Go to the documentation of this file.
1  subroutine strip_name (text, name, start)
2 c
3 c Define passed variables
4 c
5  character text*(*),name*(*)
6  integer start
7 c
8  character period*1
9  parameter(period = '.')
10  parameter(no_text = 0)
11 c
12 c Finds the period in a file name.
13 c If all blanks and commas, or if no text passed, START=END=0.
14 c
15  lentext = len(text)
16 c
17 c Strip left blanks and commas.
18 c
19  start = 1
20  do i = 1,lentext
21  if (text(i:i) .eq. period) start = i-1
22  end do
23 c
24 c Return if no periods
25 c
26  if (start .ge. lentext) then
27  name = text
28  return
29  end if
30 c
31 c Strip off text right of period
32 c
33  name = text(1:start)
34 
35  return
36  end
subroutine strip_name(text, name, start)
Definition: strpname.f:1