blob: fd3ce7fe2b9df2643610f79e7259056ea7952638 (
plain) (
blame)
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
|
integer function esc (array, i)
integer array (100)
integer i
if (.not.(array (i) .ne. 64))goto 23000
esc = array (i)
goto 23001
23000 continue
if (.not.(array (i+1) .eq. -2))goto 23002
esc = 64
goto 23003
23002 continue
i = i + 1
if (.not.(array (i) .eq. 110 .or. array (i) .eq. 78))goto 23004
esc = 10
goto 23005
23004 continue
if (.not.(array (i) .eq. 116 .or. array (i) .eq. 84))goto 23006
esc = 9
goto 23007
23006 continue
esc = array (i)
23007 continue
23005 continue
23003 continue
23001 continue
return
end
|
