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 ctomn (c, rep)
integer c, rep (4)
integer i
integer length
integer mntext (136)
data mntext / 78, 85, 76, -2, 83, 79, 72, -2, 83, 84, 88, -2, 69,
* 84, 88, -2, 69, 79, 84, -2, 69, 78, 81, -2, 65, 67, 75, -2, 66, 6
*9, 76, -2, 66, 83, -2, -2, 72, 84, -2, -2, 76, 70, -2, -2, 86, 84,
* -2, -2, 70, 70, -2, -2, 67, 82, -2, -2, 83, 79, -2, -2, 83, 73, -
*2, -2, 68, 76, 69, -2, 68, 67, 49, -2, 68, 67, 50, -2, 68, 67, 51,
* -2, 68, 67, 52, -2, 78, 65, 75, -2, 83, 89, 78, -2, 69, 84, 66, -
*2, 67, 65, 78, -2, 69, 77, -2, -2, 83, 85, 66, -2, 69, 83, 67, -2,
* 70, 83, -2, -2, 71, 83, -2, -2, 82, 83, -2, -2, 85, 83, -2, -2, 8
*3, 80, -2, -2, 68, 69, 76, -2/
i = mod (max0(c,0), 128)
if (.not.(0 .le. i .and. i .le. 32))goto 23000
call scopy (mntext, 4 * i + 1, rep, 1)
goto 23001
23000 continue
if (.not.(i .eq. 127))goto 23002
call scopy (mntext, 133, rep, 1)
goto 23003
23002 continue
rep (1) = c
rep (2) = -2
23003 continue
23001 continue
ctomn=(length (rep))
return
end
|
