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