do irec = 1, nmonsrec
nmonsloc=nmonsrec
& ' cost_obcs_ageos: number of records to process = ',nmonsrec
do irec = 1,nmonsrec
& nmonsrec,
integer nmonsrec
DO irec = 1, nmonsrec
& nmonsrec, nmonsrec, bpstartdate, 0. _d 0,
nmonsrec = cal_IntMonths( mythid )
gencost_nrec(k) =nmonsrec