sff_GetDate()

subroutine sff_GetDate	(	character	wid2line,
		character, dimension(*)	date
	)

Definition at line 36 of file fapid_sff_getwid2values.f.

c
c  extract date (yyyy/mm/dd)
c
      character wid2line*132, date*(*)
cE
      character wid2decoded*132
c
      call sff_helper_decode_wid2(wid2line, wid2decoded)
      date = wid2decoded(6:15)
      return