integer beginmodel, beginlocal
INTEGER beginlocal, beginmodel, obsrec
beginlocal = bpstartdate(1)/10000
obsrec = ( beginmodel - beginlocal )*nmonthyear
beginlocal = localstartdate(1)/10000
& ( beginmodel - beginlocal )*nmonthyear
beginlocal = scatxstartdate(1)/10000
beginlocal = scatystartdate(1)/10000