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