sff_GetChannel()

subroutine sff_GetChannel	(	character	wid2line,
		character, dimension(*)	channel
	)

Definition at line 78 of file fapid_sff_getwid2values.f.

c
c  extract channel name (a3)
c
      character wid2line*132, channel*(*)
cE
      character wid2decoded*132
c
      call sff_helper_decode_wid2(wid2line, wid2decoded)
      channel = wid2decoded(36:38)
      return