Date: 2024-12-02T08:57:57+00:00

Actual source code: slepcbvmod.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 slepcbvdefdummy
     11:         use slepcsysdef
     12: #include <../src/sys/classes/bv/f90-mod/slepcbv.h>
     13:         end module

     15:         module slepcbvdef
     16:         use slepcbvdefdummy
     17:         interface operator (.ne.)
     18:           function bvnotequal(A,B)
     19:             import tBV
     20:             logical bvnotequal
     21:             type(tBV), intent(in) :: A,B
     22:           end function
     23:         end interface operator (.ne.)
     24:         interface operator (.eq.)
     25:           function bvequals(A,B)
     26:             import tBV
     27:             logical bvequals
     28:             type(tBV), intent(in) :: A,B
     29:           end function
     30:         end interface operator (.eq.)
     31:         end module

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

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

     47:         module slepcbv
     48:         use slepcbvdef
     49:         use slepcsys
     50: #include <../src/sys/classes/bv/f90-mod/slepcbv.h90>
     51:         interface
     52: #include <../src/sys/classes/bv/f90-mod/ftn-auto-interfaces/slepcbv.h90>
     53:         end interface
     54:         end module