blob: 1148779c11e407d30d693ad58d3d0210be149f66 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
integer function equal (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
equal=(1)
return
23003 continue
23001 i = i + 1
goto 23000
23002 continue
equal=(0)
return
end
|
