* intrinsics/etime.c (etime_): New function.
From-SVN: r88052
This commit is contained in:
parent
206fb0a722
commit
487c67b637
@ -1,3 +1,7 @@
|
||||
2004-09-24 Tobias Schlueter <tobis.schlueter@physik.uni-muenchen.de>
|
||||
|
||||
* intrinsics/etime.c (etime_): New function.
|
||||
|
||||
2004-09-21 Steven G. Kargl <kargls@comcast.net>
|
||||
|
||||
* libgfortran.h: define gfc_alloca()
|
||||
|
@ -78,3 +78,22 @@ prefix(etime) (gfc_array_r4 *t)
|
||||
prefix(etime_sub) (t, &val);
|
||||
return val;
|
||||
}
|
||||
|
||||
/* LAPACK's test programs declares ETIME external, therefore we
|
||||
need this. */
|
||||
|
||||
GFC_REAL_4
|
||||
etime_ (GFC_REAL_4 *t)
|
||||
{
|
||||
gfc_array_r4 desc;
|
||||
GFC_REAL_4 val;
|
||||
|
||||
/* We only fill in the fields that are used in etime_sub. */
|
||||
desc.dim[0].lbound = 0;
|
||||
desc.dim[0].ubound = 1;
|
||||
desc.dim[0].stride = 1;
|
||||
desc.data = t;
|
||||
|
||||
prefix(etime_sub) (&desc, &val);
|
||||
return val;
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user