argotstartdate1 = 0
& argotstartdate1, argotstartdate2, argotfile,
& argotstartdate1,
integer argotstartdate1
call CAL_FULLDATE( argotstartdate1, argotstartdate2,