1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
integer function strcmp (str1, str2)
integer str1 (100), str2 (100)
integer i
i = 1
23000 if (.not.(str1 (i) .eq. str2 (i)))goto 23002
if (.not.(str1 (i) .eq. -2))goto 23003
strcmp=(0)
return
23003 continue
23001 i = i + 1
goto 23000
23002 continue
if (.not.(str1 (i) .eq. -2))goto 23005
strcmp = -1
goto 23006
23005 continue
if (.not.(str2 (i) .eq. -2))goto 23007
strcmp = + 1
goto 23008
23007 continue
if (.not.(str1 (i) .lt. str2 (i)))goto 23009
strcmp = -1
goto 23010
23009 continue
strcmp = +1
23010 continue
23008 continue
23006 continue
return
end
|
