program example
real::a
real::root
a=30
root=sqrt(a)
print*,"The square root of ",a," is ",root
end program example

!Function to calculate the square root of a value
function real sqrt(real value)
real::result
result=1
int::count
do count=0,10
result =(result+value/result)/2
end do
return result
end