Actual source code: slepcfn.h90
slepc-3.10.1 2018-10-23
Report Typos and Errors

      1: !
      2: !  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
      3: !  SLEPc - Scalable Library for Eigenvalue Problem Computations
      4: !  Copyright (c) 2002-2018, 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 FNRationalSetNumerator
     11:         subroutine FNRationalSetNumerator0(a,b,c,z)
     12:           use slepcfndef
     13:           FN a
     14:           PetscInt b
     15:           PetscScalar c
     16:           integer z
     17:         end subroutine
     18:         subroutine FNRationalSetNumerator1(a,b,c,z)
     19:           use slepcfndef
     20:           FN a
     21:           PetscInt b
     22:           PetscScalar c(*)
     23:           integer z
     24:         end subroutine
     25:       end interface FNRationalSetNumerator

     27:       interface FNRationalSetDenominator
     28:         subroutine FNRationalSetDenominator0(a,b,c,z)
     29:           use slepcfndef
     30:           FN a
     31:           PetscInt b
     32:           PetscScalar c
     33:           integer z
     34:         end subroutine
     35:         subroutine FNRationalSetDenominator1(a,b,c,z)
     36:           use slepcfndef
     37:           FN a
     38:           PetscInt b
     39:           PetscScalar c(*)
     40:           integer z
     41:         end subroutine
     42:       end interface FNRationalSetDenominator

     44:       interface FNRationalGetNumerator
     45:         subroutine FNRationalGetNumerator00(a,b,c,z)
     46:           use slepcfndef
     47:           FN a
     48:           PetscInt b
     49:           PetscScalar c
     50:           integer z
     51:         end subroutine
     52:         subroutine FNRationalGetNumerator10(a,b,c,z)
     53:           use slepcfndef
     54:           FN a
     55:           PetscInt b(*)
     56:           PetscScalar c
     57:           integer z
     58:         end subroutine
     59:         subroutine FNRationalGetNumerator01(a,b,c,z)
     60:           use slepcfndef
     61:           FN a
     62:           PetscInt b
     63:           PetscScalar c(*)
     64:           integer z
     65:         end subroutine
     66:         subroutine FNRationalGetNumerator11(a,b,c,z)
     67:           use slepcfndef
     68:           FN a
     69:           PetscInt b(*)
     70:           PetscScalar c(*)
     71:           integer z
     72:         end subroutine
     73:       end interface FNRationalGetNumerator

     75:       interface FNRationalGetDenominator
     76:         subroutine FNRationalGetDenominator00(a,b,c,z)
     77:           use slepcfndef
     78:           FN a
     79:           PetscInt b
     80:           PetscScalar c
     81:           integer z
     82:         end subroutine
     83:         subroutine FNRationalGetDenominator10(a,b,c,z)
     84:           use slepcfndef
     85:           FN a
     86:           PetscInt b(*)
     87:           PetscScalar c
     88:           integer z
     89:         end subroutine
     90:         subroutine FNRationalGetDenominator01(a,b,c,z)
     91:           use slepcfndef
     92:           FN a
     93:           PetscInt b
     94:           PetscScalar c(*)
     95:           integer z
     96:         end subroutine
     97:         subroutine FNRationalGetDenominator11(a,b,c,z)
     98:           use slepcfndef
     99:           FN a
    100:           PetscInt b(*)
    101:           PetscScalar c(*)
    102:           integer z
    103:         end subroutine
    104:       end interface FNRationalGetDenominator