/* getcje.f -- translated by f2c (version of 3 February 1990  3:36:42).
   You must link the resulting object file with the libraries:
	-lF77 -lI77 -lm -lc   (in that order)
*/

#include "f2c.h"

/* Common Block Declarations */

struct {
    integer maxtim, itime, icost;
} cje_;

#define cje_1 cje_

/*<       subroutine getcje >*/
/* Subroutine */ int getcje_()
{
    static doublereal xtime;
    extern /* Subroutine */ int second_();

/*<       implicit double precision (a-h,o-z) >*/
/* spice version 2g.6  sccsid=cje 3/15/83 */
/*<       common /cje/ maxtim,itime,icost >*/
/*<       call second(xtime) >*/
    second_(&xtime);
/*<       itime=xtime >*/
    cje_1.itime = (integer) xtime;
/*<       return >*/
    return 0;
/*<       end >*/
} /* getcje_ */

