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 slepcdsdefdummy
 11:         use slepcfndef
 12:         use slepcrgdef
 13: #include <../src/sys/classes/ds/f90-mod/slepcds.h>
 14:         end module

 16:         module slepcdsdef
 17:         use slepcdsdefdummy
 18:         interface operator (.ne.)
 19:           function dsnotequal(A,B)
 20:             import tDS
 21:             logical dsnotequal
 22:             type(tDS), intent(in) :: A,B
 23:           end function
 24:         end interface operator (.ne.)
 25:         interface operator (.eq.)
 26:           function dsequals(A,B)
 27:             import tDS
 28:             logical dsequals
 29:             type(tDS), intent(in) :: A,B
 30:           end function
 31:         end interface operator (.eq.)
 32:         end module

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

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

 48:         module slepcds
 49:         use slepcdsdef
 50:         use slepcfn
 51:         use slepcrg
 52: #include <../src/sys/classes/ds/f90-mod/slepcds.h90>
 53:         interface
 54: #include <../src/sys/classes/ds/f90-mod/ftn-auto-interfaces/slepcds.h90>
 55:         end interface
 56:         end module