m_compare.f90 – Fortran Program

This File Depends On

Help

Files Dependent On This One

Help

Modules

m_compare

Source Code

m_compare.f90

Source Code

module m_compare
  use variableKind

  implicit none

  interface compare
    module procedure :: compare_d1
  end interface

  contains

  function compare_d1(this,that) result(res)
    real(r64) :: this
    real(r64) :: that
    integer(i32) :: res

    if (this < that) then
      res = -1
    elseif (this > that) then
      res = 1
    else
      res = 0
    end if
  end function

end module

m_compare.f90 Source File

Modules

Source Code

All Source Files

This File Depends On

Files Dependent On This One

Modules

Source Code

Source Code

All Source Files