Actual source code: slepcepsmod.F90
slepc-3.21.1 2024-04-26
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:         module slepcepsdefdummy
     11:         use slepcstdef
     12:         use slepcbvdef
     13:         use slepcrgdef
     14:         use slepcdsdef
     15:         use slepclmedef
     16:         use petscsnesdef
     17: #include <../src/eps/f90-mod/slepceps.h>
     18:         end module

     20:         module slepcepsdef
     21:         use slepcepsdefdummy
     22:         interface operator (.ne.)
     23:           function epsnotequal(A,B)
     24:             import tEPS
     25:             logical epsnotequal
     26:             type(tEPS), intent(in) :: A,B
     27:           end function
     28:         end interface operator (.ne.)
     29:         interface operator (.eq.)
     30:           function epsequals(A,B)
     31:             import tEPS
     32:             logical epsequals
     33:             type(tEPS), intent(in) :: A,B
     34:           end function
     35:         end interface operator (.eq.)
     36:         end module

     38:         function epsnotequal(A,B)
     39:           use slepcepsdefdummy, only: tEPS
     40:           logical epsnotequal
     41:           type(tEPS), intent(in) :: A,B
     42:           epsnotequal = (A%v .ne. B%v)
     43:         end function

     45:         function epsequals(A,B)
     46:           use slepcepsdefdummy, only: tEPS
     47:           logical epsequals
     48:           type(tEPS), intent(in) :: A,B
     49:           epsequals = (A%v .eq. B%v)
     50:         end function

     52:         module slepceps
     53:         use slepcepsdef
     54:         use slepcst
     55:         use slepcbv
     56:         use slepcrg
     57:         use slepcds
     58:         use slepclme
     59:         use petscsnes
     60: #include <../src/eps/f90-mod/slepceps.h90>
     61:         interface
     62: #include <../src/eps/f90-mod/ftn-auto-interfaces/slepceps.h90>
     63:         end interface
     64:         end module