Date: 2022-08-09T09:05:48+00:00

Actual source code: slepcsvd.h90
slepc-3.17.2 2022-08-09
Report Typos and Errors

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

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

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

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

    149:       interface
    150:         subroutine SVDDestroy(a,z)
    151:           import tSVD
    152:           SVD a
    153:           PetscErrorCode z
    154:         end subroutine
    155:       end interface