Date: 2022-03-31T15:28:49+00:00

Actual source code: slepcfn.h90
slepc-3.17.0 2022-03-31
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 FNRationalSetNumerator
     11:         subroutine FNRationalSetNumerator0(a,b,c,z)
     12:           import tFN
     13:           FN a
     14:           PetscInt b
     15:           PetscScalar c
     16:           PetscErrorCode z
     17:         end subroutine
     18:         subroutine FNRationalSetNumerator1(a,b,c,z)
     19:           import tFN
     20:           FN a
     21:           PetscInt b
     22:           PetscScalar c(*)
     23:           PetscErrorCode z
     24:         end subroutine
     25:       end interface FNRationalSetNumerator

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

     44:       interface FNRationalGetNumerator
     45:         subroutine FNRationalGetNumerator0(a,b,c,z)
     46:           import tFN
     47:           FN a
     48:           PetscInt b
     49:           PetscScalar c(*)
     50:           PetscErrorCode z
     51:         end subroutine
     52:         subroutine FNRationalGetNumerator1(a,b,c,z)
     53:           import tFN
     54:           FN a
     55:           PetscInt b(*)
     56:           PetscScalar c(*)
     57:           PetscErrorCode z
     58:         end subroutine
     59:       end interface FNRationalGetNumerator

     61:       interface FNRationalGetDenominator
     62:         subroutine FNRationalGetDenominator0(a,b,c,z)
     63:           import tFN
     64:           FN a
     65:           PetscInt b
     66:           PetscScalar c(*)
     67:           PetscErrorCode z
     68:         end subroutine
     69:         subroutine FNRationalGetDenominator1(a,b,c,z)
     70:           import tFN
     71:           FN a
     72:           PetscInt b(*)
     73:           PetscScalar c(*)
     74:           PetscErrorCode z
     75:         end subroutine
     76:       end interface FNRationalGetDenominator

     78:       interface
     79:         subroutine FNDestroy(a,z)
     80:           import tFN
     81:           FN a
     82:           PetscErrorCode z
     83:         end subroutine
     84:       end interface