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 slepcstdefdummy
 11:         use petsckspdef
 12:         use slepcbvdef
 13: #include <../src/sys/classes/st/f90-mod/slepcst.h>
 14:         end module

 16:         module slepcstdef
 17:         use slepcstdefdummy
 18:         interface operator (.ne.)
 19:           function stnotequal(A,B)
 20:             import tST
 21:             logical stnotequal
 22:             type(tST), intent(in) :: A,B
 23:           end function
 24:         end interface operator (.ne.)
 25:         interface operator (.eq.)
 26:           function stequals(A,B)
 27:             import tST
 28:             logical stequals
 29:             type(tST), intent(in) :: A,B
 30:           end function
 31:         end interface operator (.eq.)
 32:         end module

 34:         function stnotequal(A,B)
 35:           use slepcstdefdummy, only: tST
 36:           logical stnotequal
 37:           type(tST), intent(in) :: A,B
 38:           stnotequal = (A%v .ne. B%v)
 39:         end function

 41:         function stequals(A,B)
 42:           use slepcstdefdummy, only: tST
 43:           logical stequals
 44:           type(tST), intent(in) :: A,B
 45:           stequals = (A%v .eq. B%v)
 46:         end function

 48:         module slepcst
 49:         use slepcstdef
 50:         use petscksp
 51:         use slepcbv
 52: #include <../src/sys/classes/st/f90-mod/slepcst.h90>
 53:         interface
 54: #include <../src/sys/classes/st/f90-mod/ftn-auto-interfaces/slepcst.h90>
 55:         end interface
 56:         end module