1
C Copyright (C) 2006 Imperial College London and others.
3
C Please see the AUTHORS file in the main source directory for a full list
4
C of copyright holders.
7
C Applied Modelling and Computation Group
8
C Department of Earth Science and Engineering
9
C Imperial College London
11
C adrian@Imperial.ac.uk
13
C This library is free software; you can redistribute it and/or
14
C modify it under the terms of the GNU Lesser General Public
15
C License as published by the Free Software Foundation; either
16
C version 2.1 of the License.
18
C This library is distributed in the hope that it will be useful,
19
C but WITHOUT ANY WARRANTY; without even the implied warranty of
20
C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
21
C Lesser General Public License for more details.
23
C You should have received a copy of the GNU Lesser General Public
24
C License along with this library; if not, write to the Free Software
25
C Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
28
C - this common block holds the timekeeping information
30
INTEGER TOTADD, TOTSUB, TOTCHG, TOTSPL, TOTSHR, TOTE2F, TOTF2E,
31
: TOTE2E, TOTNOD, TOTEDE, TOTFND, TOTNCN
33
REAL TIMADD, TIMSUB, TIMCHG, TIMSPL, TIMSHR, TIME2F, TIMF2E,
34
: TIME2E, TIMNOD, TIMEDE, TIMNCN, TIMFND, TIMTOT
36
COMMON / BLKTIM / TOTADD, TOTSUB, TOTCHG, TOTSPL, TOTSHR, TOTE2F,
37
: TOTF2E, TOTE2E, TOTNOD, TOTEDE, TOTFND, TOTNCN,
38
: TIMADD, TIMSUB, TIMCHG, TIMSPL, TIMSHR, TIME2F,
39
: TIMF2E, TIME2E, TIMNOD, TIMEDE, TIMNCN, TIMFND,