Date: 2024-04-26T10:22:11+00:00

Actual source code: slepcmfnmod.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 slepcmfndefdummy
     11:         use slepcbvdef
     12:         use slepcfndef
     13: #include <../src/mfn/f90-mod/slepcmfn.h>
     14:         end module

     16:         module slepcmfndef
     17:         use slepcmfndefdummy
     18:         interface operator (.ne.)
     19:           function mfnnotequal(A,B)
     20:             import tMFN
     21:             logical mfnnotequal
     22:             type(tMFN), intent(in) :: A,B
     23:           end function
     24:         end interface operator (.ne.)
     25:         interface operator (.eq.)
     26:           function mfnequals(A,B)
     27:             import tMFN
     28:             logical mfnequals
     29:             type(tMFN), intent(in) :: A,B
     30:           end function
     31:         end interface operator (.eq.)
     32:         end module

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

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

     48:         module slepcmfn
     49:         use slepcmfndef
     50:         use slepcbv
     51:         use slepcfn
     52: #include <../src/mfn/f90-mod/slepcmfn.h90>
     53:         interface
     54: #include <../src/mfn/f90-mod/ftn-auto-interfaces/slepcmfn.h90>
     55:         end interface
     56:         end module