【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)
