Lines Matching refs:surfset

29       character*81 set(*),tieset(3,*),surfset  local
225       surfset(1:22)='ELECTROMAGNETICSZONE1T'
227         surfset(i:i)=' '
229       call cident81(set,surfset,nset,id)
268         set(iset)=surfset
274       surfset(1:22)='ELECTROMAGNETICSZONE2T'
276         surfset(i:i)=' '
278       call cident81(set,surfset,nset,id)
317         set(iset)=surfset
323       surfset(1:22)='ELECTROMAGNETICSZONE3T'
325         surfset(i:i)=' '
327       call cident81(set,surfset,nset,id)
366         set(iset)=surfset