pro norh_pr_rep,year,week

;+
; NAME:
;       NORH_PR_REP
;
; PURPOSE:
;       This procedure gives the NORH tohban report
;
; CALLING SEQUENCE:
;       norh_pr_rep,year,week
;
; INPUTS:
;       year:  
;       week:  
;
; HISTORY:
;       Writtern 1998-08-15 TY
;
;-


if (year ge 1900) and (year lt 2000) then yy=year-1900 else yy=year

files='rep'+string(yy,week,format="(i2.2,i2.2)")

dirst=getenv('DIR_NORH_REP')
dir=norh_splitstr(dirst,':')
infil=file_list(dir,files)

filestr=''
for mfil=0,n_elements(infil)-1 do filestr=filestr+' '+infil(mfil)

spawn,'more '+filestr

end