Screamer Project
V3.3.1
Screamer Structure
Main Page
Files
File List
File Members
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
strip_name
subroutine strip_name(text, name, start)
Definition:
strpname.f:1
release_3.3.1_beta
src
strpname.f
Generated on Mon May 5 2014 15:41:49 for Screamer Project by
1.8.7