argosstartdate1 = 0
& argosstartdate1, argosstartdate2, argosfile,
& argosstartdate1,
integer argosstartdate1
call CAL_FULLDATE( argosstartdate1, argotstartdate2,