whitespace fixes
This commit is contained in:
@ -1,13 +1,13 @@
|
||||
/* fortran/zladiv.f -- translated by f2c (version 20200916).
|
||||
You must link the resulting object file with libf2c:
|
||||
on Microsoft Windows system, link with libf2c.lib;
|
||||
on Linux or Unix systems, link with .../path/to/libf2c.a -lm
|
||||
or, if you install libf2c.a in a standard place, with -lf2c -lm
|
||||
-- in that order, at the end of the command line, as in
|
||||
cc *.o -lf2c -lm
|
||||
Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
|
||||
on Microsoft Windows system, link with libf2c.lib;
|
||||
on Linux or Unix systems, link with .../path/to/libf2c.a -lm
|
||||
or, if you install libf2c.a in a standard place, with -lf2c -lm
|
||||
-- in that order, at the end of the command line, as in
|
||||
cc *.o -lf2c -lm
|
||||
Source for libf2c is in /netlib/f2c/libf2c.zip, e.g.,
|
||||
|
||||
http://www.netlib.org/f2c/libf2c.zip
|
||||
http://www.netlib.org/f2c/libf2c.zip
|
||||
*/
|
||||
|
||||
#ifdef __cplusplus
|
||||
@ -80,8 +80,8 @@ f"> */
|
||||
/* > \ingroup complex16OTHERauxiliary */
|
||||
|
||||
/* ===================================================================== */
|
||||
/* Double Complex */ VOID zladiv_(doublecomplex * ret_val, doublecomplex *x,
|
||||
doublecomplex *y)
|
||||
/* Double Complex */ VOID zladiv_(doublecomplex * ret_val, doublecomplex *x,
|
||||
doublecomplex *y)
|
||||
{
|
||||
/* System generated locals */
|
||||
doublereal d__1, d__2, d__3, d__4;
|
||||
@ -92,8 +92,8 @@ f"> */
|
||||
|
||||
/* Local variables */
|
||||
doublereal zi, zr;
|
||||
extern /* Subroutine */ int dladiv_(doublereal *, doublereal *,
|
||||
doublereal *, doublereal *, doublereal *, doublereal *);
|
||||
extern /* Subroutine */ int dladiv_(doublereal *, doublereal *,
|
||||
doublereal *, doublereal *, doublereal *, doublereal *);
|
||||
|
||||
|
||||
/* -- LAPACK auxiliary routine -- */
|
||||
@ -128,5 +128,5 @@ f"> */
|
||||
} /* zladiv_ */
|
||||
|
||||
#ifdef __cplusplus
|
||||
}
|
||||
}
|
||||
#endif
|
||||
|
||||
Reference in New Issue
Block a user