Actual source code: slepcdsmod.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 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