program smorb

	include		'filparts.h'

	parameter	(nVar = 1000)
	character	cVar(nVar)*(FIL__LENGTH)
	character	cArg*(FIL__LENGTH)
	integer		tt(2)
	double precision dorbit

	iVar = nVar
	cVar(1) = 'quiet'
	call ForeignArg(' ', iVar, cVar, cArg)

	do i=1,iVar
	    call smei_Time2Split(1,cVar(i),tt)
	    call smei_orbit2(tt,iorbit,dorbit)

	    j = iSetFileSpec(cVar(i))
	    j = iGetFileSpec(FIL__NAME,FIL__NAME,cArg)

	    write (*,'(1X,2A,F12.4)') cArg(:itrim(cArg)),'  orbit', iorbit+dorbit 
	end do

	end