80 SUBROUTINE gets1loc(S1MNEM,IBEN,ISBYT,IWID,IRET)
92 IF(s1mnem.EQ.
'LEN1')
THEN
95 ELSE IF(s1mnem.EQ.
'BMT')
THEN
97 ELSE IF(s1mnem.EQ.
'OGCE')
THEN
108 ELSE IF(s1mnem.EQ.
'GSES')
THEN
111 ELSE IF(iben.EQ.4)
THEN
117 ELSE IF(s1mnem.EQ.
'USN')
THEN
123 ELSE IF(s1mnem.EQ.
'ISC2')
THEN
130 ELSE IF(s1mnem.EQ.
'MTYP')
THEN
136 ELSE IF(s1mnem.EQ.
'MSBTI')
THEN
142 ELSE IF(s1mnem.EQ.
'MSBT')
THEN
148 ELSE IF(s1mnem.EQ.
'MTV')
THEN
154 ELSE IF(s1mnem.EQ.
'MTVL')
THEN
160 ELSE IF(s1mnem.EQ.
'YEAR')
THEN
167 ELSE IF(s1mnem.EQ.
'YCEN')
THEN
173 ELSE IF(s1mnem.EQ.
'CENT')
THEN
179 ELSE IF(s1mnem.EQ.
'MNTH')
THEN
185 ELSE IF(s1mnem.EQ.
'DAYS')
THEN
191 ELSE IF(s1mnem.EQ.
'HOUR')
THEN
197 ELSE IF(s1mnem.EQ.
'MINU')
THEN
203 ELSE IF(s1mnem.EQ.
'SECO')
THEN
subroutine gets1loc(S1MNEM, IBEN, ISBYT, IWID, IRET)
THIS SUBROUTINE RETURNS THE LOCATION (I.E.