; Purpose: construct .inf and .txt files as input to mbh.exe
; Category: mbh

n=50
ys=1000
ye=1990
l=ye-ys+1
y=indgen(l)+ys

if (n_elements(start) eq 0) then start=1900
print,'Training period is from ',start

openw,lun1,'wmc.inf',/get
printf,lun1,start,1000

for i=0,n-1 do begin

  data=randomn(seed,l)
  file='wmc'+lzp(i,3)+'.txt'
  print,file
  printf,lun1,1.0,file,form='(f5.2,1a20)'
  openw,lun,/get,file
  for j=0,l-1 do printf,lun,y(j),data(j)
  free_lun,lun

endfor

free_lun,lun1

end