Commit 2d2d7814 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

correction

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 2458
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 538e3002
c this is <time_mul.f> (extracted from ../libtime.f)
c automatically generated by "SPLITF.PL V1.0 SPLIT Fortran source code"
c----------------------------------------------------------------------
c $Id: time_mul.f,v 2.1 2006-03-28 16:23:07 tforb Exp $
c $Id: time_mul.f,v 2.2 2007-12-05 15:19:51 tforb Exp $
c
c Copyright 2000 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -26,6 +26,7 @@ c
c REVISIONS and CHANGES
c 05/08/2000 V1.0 Thomas Forbriger
c V2.0 call language specific fatal error handler
c 05/12/2007 V2.1 correction in variable declaration
c
c ============================================================================
cS
......@@ -43,7 +44,8 @@ c last change: V2.00 (05/08/2000)
c
integer date1(7), date2(7), n
cE
integer quotient(7), rest(7), product(7), carry(7), i, limit(7), help
integer quotient(7), rest(7), product(7), carry(7), i, limit(7)
integer help
data limit/-1,-1,24,60,60,1000,1000/
c
if (date1(1).ne.0) then
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment