1/* Copyright (C) 1996 Free Software Foundation, Inc. 2This file is part of GNU Fortran libU77 library. 3 4This library is free software; you can redistribute it and/or modify it 5under the terms of the GNU Library General Public License as published 6by the Free Software Foundation; either version 2 of the License, or 7(at your option) any later version. 8 9GNU Fortran is distributed in the hope that it will be useful, 10but WITHOUT ANY WARRANTY; without even the implied warranty of 11MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12Library General Public License for more details. 13 14You should have received a copy of the GNU Library General Public 15License along with GNU Fortran; see the file COPYING.LIB. If 16not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, 17Boston, MA 02111-1307, USA. */ 18 19#include "f2c.h" 20 21double G77_second_0 () { 22 extern double G77_etime_0 (); 23 real tarray[2]; 24 25 return G77_etime_0 (tarray); 26} 27