;|-----------------------------------------------------------------|
;|                                                                 |
;|    Subroutine FINDWATS                                          |
;|                                                                 |
;|    calculates which WATS file is needed.                        |
;|                                                                 |
;|-----------------------------------------------------------------|


pro findwats

@gia_var.inc

; Calculate name for wats ascii files

year=1981
date=ddata(1,0)-81000.
if date gt 1000 then begin
	date=date-1000.
	year=1982
	endif
if date gt 1000 then begin
	date=date-1000.
	year=1983
	endif
date=fix(date)

end;-----------------------------------------------------------------------