blob: 106a9335cb2affb459e814fbe3bfcc04e45d090d (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
include defs
# MAPID -- Map a long identifier. The new identifier is formed by
# concatenating the first MAXIDLENGTH-1 characters and the last character.
subroutine mapid (name)
character name(MAXTOK)
integer i
for (i=1; name(i) != EOS; i=i+1)
;
if (i-1 > MAXIDLENGTH) {
name(MAXIDLENGTH) = name(i-1)
name(MAXIDLENGTH+1) = EOS
}
end
|
