/* second.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"

/*<       subroutine second(t1) >*/
/* Subroutine */ int second_(t1)
doublereal *t1;
{
    static integer ibuff[4];
    extern /* Subroutine */ int times_();

/*<       implicit double precision (a-h,o-z) >*/
/*<       dimension ibuff(4) >*/
/*<       call times (ibuff) >*/
    times_(ibuff);
/*<       t1=dble (ibuff(1))/60.0d0 >*/
    *t1 = (doublereal) ibuff[0] / 60.;
/*<       return >*/
    return 0;
/*<       end >*/
} /* second_ */

