& bpstartdate2,
integer bpstartdate2
& bpstartdate1, bpstartdate2, bpdatfile,
bpstartdate2 = 0
& call CAL_FULLDATE( bpstartdate1, bpstartdate2,