Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 1552 | slepc | 1 | ! |
| 2 | ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
||
| 1672 | slepc | 3 | ! SLEPc - Scalable Library for Eigenvalue Problem Computations |
| 2575 | eromero | 4 | ! Copyright (c) 2002-2011, Universitat Politecnica de Valencia, Spain |
| 1552 | slepc | 5 | ! |
| 1672 | slepc | 6 | ! This file is part of SLEPc. |
| 7 | ! |
||
| 8 | ! SLEPc is free software: you can redistribute it and/or modify it under the |
||
| 9 | ! terms of version 3 of the GNU Lesser General Public License as published by |
||
| 10 | ! the Free Software Foundation. |
||
| 11 | ! |
||
| 12 | ! SLEPc is distributed in the hope that it will be useful, but WITHOUT ANY |
||
| 13 | ! WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
||
| 14 | ! FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for |
||
| 15 | ! more details. |
||
| 16 | ! |
||
| 17 | ! You should have received a copy of the GNU Lesser General Public License |
||
| 18 | ! along with SLEPc. If not, see <http://www.gnu.org/licenses/>. |
||
| 1552 | slepc | 19 | ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - |
| 20 | ! |
||
| 21 | |||
| 22 | #if !defined(PETSC_USE_FORTRAN_MODULES) |
||
| 23 | #include "finclude/ftn-custom/slepcsvddef.h90" |
||
| 24 | #endif |
||
| 25 | |||
| 1564 | slepc | 26 | #if defined(PETSC_USE_FORTRAN_DATATYPES) && !defined(SVD_HIDE) |
| 1552 | slepc | 27 | #define SVD_HIDE type(SVD) |
| 28 | #elif !defined(SVD_HIDE) |
||
| 29 | #define SVD_HIDE SVD |
||
| 30 | #endif |