*
* Copyright (c) 1991-2000, University of Groningen, The Netherlands.
* Copyright (c) 2001-2004, The GROMACS development team.
- * Copyright (c) 2012,2013,2014,2015,2016, by the GROMACS development team, led by
+ * Copyright (c) 2012,2013,2014,2015,2016,2017, by the GROMACS development team, led by
* Mark Abraham, David van der Spoel, Berk Hess, and Erik Lindahl,
* and including many others, as listed in the AUTHORS file in the
* top-level source directory and at http://www.gromacs.org.
/* Make jobz point to the character "V" if eigenvectors
* should be calculated, otherwise "N" (only eigenvalues).
*/
- jobz = (eigenvectors != NULL) ? "V" : "N";
+ jobz = (eigenvectors != nullptr) ? "V" : "N";
/* allocate lapack stuff */
snew(isuppz, 2*n);
}
#endif
- if (eigenvectors != NULL)
+ if (eigenvectors != nullptr)
{
dovec = 1;
}
#if GMX_DOUBLE
F77_FUNC(dseupd, DSEUPD) (&dovec, "A", select, eigenvalues, eigenvectors,
- &n, NULL, "I", &n, "SA", &neig, &abstol,
+ &n, nullptr, "I", &n, "SA", &neig, &abstol,
resid, &ncv, v, &n, iparam, ipntr,
workd, workl, &lworkl, &info);
#else
F77_FUNC(sseupd, SSEUPD) (&dovec, "A", select, eigenvalues, eigenvectors,
- &n, NULL, "I", &n, "SA", &neig, &abstol,
+ &n, nullptr, "I", &n, "SA", &neig, &abstol,
resid, &ncv, v, &n, iparam, ipntr,
workd, workl, &lworkl, &info);
#endif