sff_GetStation()

subroutine sff_GetStation	(	character	wid2line,
		character, dimension(*)	sta
	)

Definition at line 64 of file fapid_sff_getwid2values.f.

c
c  extract station name (a5)
c
      character wid2line*132, sta*(*)
cE
      character wid2decoded*132
c
      call sff_helper_decode_wid2(wid2line, wid2decoded)
      sta = wid2decoded(30:34)
      return