fortran接口

fortran interface

module name
    interface is
        module procedure::is_int,is_rr
    end interface is
contains
integer function is_int(logic,itrue,ifalse)
    logical,intent(in)::logic
    integer,intent(in)::itrue,ifalse
    if(logic)then
    is_int=itrue
    else
    is_int=ifalse
    end if
end function is_int
real function is_rr(logic,itrue,ifalse)
......
end function is_rr
end module name
ans=is(db,n,2*n)