Fortran function example(interest calculation)
program interest_calculation!This program finding interest by the formula I=P*R*T/100
implicit none
interface
function interest(bal,intr_rate,time)
real interest
real, intent(in)::bal,intr_rate,time
end function interest
end interface
real::bal,intr_rate,time!Declare local variable
print*,"Entre the balence,interest rate and time(years)"
read*,bal,intr_rate,time
print*,"bal=",bal,"interest rate=",intr_rate,"time=",time
print*,"interest=",interest(bal,intr_rate,time)!prompting the interest value
end program interest_calculation
!We gonna using this function
function interest(bal,intr_rate,time)
implicit none
real ::interest
real,intent(in)::bal,intr_rate,time
interest=bal*intr_rate*time/100
end function
implicit none
interface
function interest(bal,intr_rate,time)
real interest
real, intent(in)::bal,intr_rate,time
end function interest
end interface
real::bal,intr_rate,time!Declare local variable
print*,"Entre the balence,interest rate and time(years)"
read*,bal,intr_rate,time
print*,"bal=",bal,"interest rate=",intr_rate,"time=",time
print*,"interest=",interest(bal,intr_rate,time)!prompting the interest value
end program interest_calculation
!We gonna using this function
function interest(bal,intr_rate,time)
implicit none
real ::interest
real,intent(in)::bal,intr_rate,time
interest=bal*intr_rate*time/100
end function