blob: 6db95e25e0e43b36a1460c5eb3481e0ec835c623 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
integer function locate (c, pat, offset)
integer c, pat (128)
integer offset
integer i
i = offset + pat (offset)
23000 if (.not.(i .gt. offset))goto 23002
if (.not.(c .eq. pat (i)))goto 23003
locate=(1)
return
23003 continue
23001 i = i - 1
goto 23000
23002 continue
locate=(0)
return
end
|
