Actual source code: slepcsvdmod.F90
slepc-3.23.0 2025-03-29
1: !
2: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
3: ! SLEPc - Scalable Library for Eigenvalue Problem Computations
4: ! Copyright (c) 2002-, Universitat Politecnica de Valencia, Spain
5: !
6: ! This file is part of SLEPc.
7: ! SLEPc is distributed under a 2-clause BSD license (see LICENSE).
8: ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
9: !
10: module slepcsvddef
11: use slepcsysdef
12: #include <../ftn/svd/slepcall.h>
13: end module slepcsvddef
15: module slepcsvd
16: use slepcsvddef
17: use slepceps
18: #include <../ftn/svd/slepcall.h90>
19: #include <../src/svd/ftn-mod/slepcsvd.h90>
21: contains
23: #include <../ftn/svd/slepcall.hf90>
24: end module slepcsvd