/* * misc1_timelib.fp * * $Id: misc1_timelib.fp,v 1.1 2000/11/19 16:00:18 keiko Exp $ */ /***************************************************** * misc1/timelib/time12.f ****************************************************/ /* * SUBROUTINE TIME12(ITIME,ITT) */ SUBROUTINE TIME12( INTEGER ITIME INTEGER o ITT ) /***************************************************** * misc1/timelib/time13.f ****************************************************/ /* * SUBROUTINE TIME13(ITIME,IH,IM,IS) */ SUBROUTINE TIME13( INTEGER ITIME INTEGER o IH INTEGER o IM INTEGER o IS ) /***************************************************** * misc1/timelib/time21.f ****************************************************/ /* * SUBROUTINE TIME21(ITIME,ITT) */ SUBROUTINE TIME21( INTEGER o ITIME INTEGER ITT ) /***************************************************** * misc1/timelib/time23.f ****************************************************/ /* * SUBROUTINE TIME23(IH,IM,IS,ITT) */ SUBROUTINE TIME23( INTEGER o IH INTEGER o IM INTEGER o IS INTEGER ITT ) /***************************************************** * misc1/timelib/time31.f ****************************************************/ /* * SUBROUTINE TIME31(ITIME,IH,IM,IS) */ SUBROUTINE TIME31( INTEGER o ITIME INTEGER IH INTEGER IM INTEGER IS ) /***************************************************** * misc1/timelib/time32.f ****************************************************/ /* * SUBROUTINE TIME32(IH,IM,IS,ITT) */ SUBROUTINE TIME32( INTEGER IH INTEGER IM INTEGER IS INTEGER o ITT ) /***************************************************** * misc1/timelib/timec1.f ****************************************************/ /* * SUBROUTINE TIMEC1(CFORM,ITIME) * CHARACTER CFORM*(*) */ SUBROUTINE TIMEC1( CHARACTER*(*) io CFORM INTEGER ITIME ) /***************************************************** * misc1/timelib/timec2.f ****************************************************/ /* * SUBROUTINE TIMEC2(CFORM,ITT) * CHARACTER CFORM*(*) */ SUBROUTINE TIMEC2( CHARACTER*(*) io CFORM INTEGER ITT ) /***************************************************** * misc1/timelib/timec3.f ****************************************************/ /* * SUBROUTINE TIMEC3(CFORM,IH,IM,IS) * CHARACTER CFORM*(*) */ SUBROUTINE TIMEC3( CHARACTER*(*) io CFORM INTEGER IH INTEGER IM INTEGER IS ) /***************************************************** * misc1/timelib/timeq1.f ****************************************************/ /* * SUBROUTINE TIMEQ1(ITIME) */ SUBROUTINE TIMEQ1( INTEGER o ITIME ) /***************************************************** * misc1/timelib/timeq2.f ****************************************************/ /* * SUBROUTINE TIMEQ2(ITT) */ SUBROUTINE TIMEQ2( INTEGER o ITT ) /***************************************************** * misc1/timelib/timeq3.c ****************************************************/ /* * void timeq3_(ih, im, is) */ /* SUBROUTINE TIMEQ3( INTEGER o IH INTEGER o IM INTEGER o IS ) */