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