Actual source code: slepclmemod.F90

slepc-3.22.2 2024-12-02
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 slepclmedefdummy
 11:         use slepcbvdef
 12: #include <../src/lme/f90-mod/slepclme.h>
 13:         end module

 15:         module slepclmedef
 16:         use slepclmedefdummy
 17:         interface operator (.ne.)
 18:           function lmenotequal(A,B)
 19:             import tLME
 20:             logical lmenotequal
 21:             type(tLME), intent(in) :: A,B
 22:           end function
 23:         end interface operator (.ne.)
 24:         interface operator (.eq.)
 25:           function lmeequals(A,B)
 26:             import tLME
 27:             logical lmeequals
 28:             type(tLME), intent(in) :: A,B
 29:           end function
 30:         end interface operator (.eq.)
 31:         end module

 33:         function lmenotequal(A,B)
 34:           use slepclmedefdummy, only: tLME
 35:           logical lmenotequal
 36:           type(tLME), intent(in) :: A,B
 37:           lmenotequal = (A%v .ne. B%v)
 38:         end function

 40:         function lmeequals(A,B)
 41:           use slepclmedefdummy, only: tLME
 42:           logical lmeequals
 43:           type(tLME), intent(in) :: A,B
 44:           lmeequals = (A%v .eq. B%v)
 45:         end function

 47:         module slepclme
 48:         use slepclmedef
 49:         use slepcbv
 50: #include <../src/lme/f90-mod/slepclme.h90>
 51:         interface
 52: #include <../src/lme/f90-mod/ftn-auto-interfaces/slepclme.h90>
 53:         end interface
 54:         end module