Date: 2020-01-13T12:01:07+00:00

Actual source code: slepcsvd.h90
slepc-3.12.2 2020-01-13
Report Typos and Errors

      1: !
      2: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      3: !  SLEPc - Scalable Library for Eigenvalue Problem Computations
      4: !  Copyright (c) 2002-2019, 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:       interface SVDGetDimensions
     11:         subroutine SVDGetDimensions000(a,b,c,d,z)
     12:           use slepcsvddef
     13:           SVD a
     14:           PetscInt b
     15:           PetscInt c
     16:           PetscInt d
     17:           integer z
     18:         end subroutine
     19:         subroutine SVDGetDimensions100(a,b,c,d,z)
     20:           use slepcsvddef
     21:           SVD a
     22:           PetscInt b(*)
     23:           PetscInt c
     24:           PetscInt d
     25:           integer z
     26:         end subroutine
     27:         subroutine SVDGetDimensions010(a,b,c,d,z)
     28:           use slepcsvddef
     29:           SVD a
     30:           PetscInt b
     31:           PetscInt c(*)
     32:           PetscInt d
     33:           integer z
     34:         end subroutine
     35:         subroutine SVDGetDimensions001(a,b,c,d,z)
     36:           use slepcsvddef
     37:           SVD a
     38:           PetscInt b
     39:           PetscInt c
     40:           PetscInt d(*)
     41:           integer z
     42:         end subroutine
     43:         subroutine SVDGetDimensions110(a,b,c,d,z)
     44:           use slepcsvddef
     45:           SVD a
     46:           PetscInt b(*)
     47:           PetscInt c(*)
     48:           PetscInt d
     49:           integer z
     50:         end subroutine
     51:         subroutine SVDGetDimensions011(a,b,c,d,z)
     52:           use slepcsvddef
     53:           SVD a
     54:           PetscInt b
     55:           PetscInt c(*)
     56:           PetscInt d(*)
     57:           integer z
     58:         end subroutine
     59:         subroutine SVDGetDimensions101(a,b,c,d,z)
     60:           use slepcsvddef
     61:           SVD a
     62:           PetscInt b(*)
     63:           PetscInt c
     64:           PetscInt d(*)
     65:           integer z
     66:         end subroutine
     67:       end interface SVDGetDimensions

     69:       interface SVDGetSingularTriplet
     70:         subroutine SVDGetSingularTriplet0(a,b,c,d,e,z)
     71:           use slepcsvddef
     72:           SVD a
     73:           PetscInt b
     74:           PetscReal c
     75:           Vec d
     76:           Vec e
     77:           integer z
     78:         end subroutine
     79:         subroutine SVDGetSingularTriplet1(a,b,c,d,e,z)
     80:           use slepcsvddef
     81:           SVD a
     82:           PetscInt b
     83:           PetscReal c(*)
     84:           Vec d
     85:           Vec e
     86:           integer z
     87:         end subroutine
     88:       end interface SVDGetSingularTriplet

     90:       interface SVDGetTolerances
     91:         subroutine SVDGetTolerances00(a,b,c,z)
     92:           use slepcsvddef
     93:           SVD a
     94:           PetscReal b
     95:           PetscInt c
     96:           integer z
     97:         end subroutine
     98:         subroutine SVDGetTolerances10(a,b,c,z)
     99:           use slepcsvddef
    100:           SVD a
    101:           PetscReal b(*)
    102:           PetscInt c
    103:           integer z
    104:         end subroutine
    105:         subroutine SVDGetTolerances01(a,b,c,z)
    106:           use slepcsvddef
    107:           SVD a
    108:           PetscReal b
    109:           PetscInt c(*)
    110:           integer z
    111:         end subroutine
    112:       end interface SVDGetTolerances

    114:       interface SVDSetInitialSpaces
    115:         subroutine SVDSetInitialSpaces00(a,b,c,d,z)
    116:           use slepcsvddef
    117:           SVD a
    118:           PetscInt b
    119:           Vec c
    120:           Vec d
    121:           integer z
    122:         end subroutine
    123:         subroutine SVDSetInitialSpaces01(a,b,c,d,z)
    124:           use slepcsvddef
    125:           SVD a
    126:           PetscInt b
    127:           Vec c
    128:           Vec d(*)
    129:           integer z
    130:         end subroutine
    131:         subroutine SVDSetInitialSpaces10(a,b,c,d,z)
    132:           use slepcsvddef
    133:           SVD a
    134:           PetscInt b
    135:           Vec c(*)
    136:           Vec d
    137:           integer z
    138:         end subroutine
    139:         subroutine SVDSetInitialSpaces11(a,b,c,d,z)
    140:           use slepcsvddef
    141:           SVD a
    142:           PetscInt b
    143:           Vec c(*)
    144:           Vec d(*)
    145:           integer z
    146:         end subroutine
    147:       end interface SVDSetInitialSpaces