module matematik
public::radyan, alan,yazdir
contains
!*****************************************
function radyan(x) result(radyanx)
real,intent(in)::x
real::radyanx
real,parameter::pi=3.141592654
radyanx=(x*pi)/180
end function radyan
!*****************************************
subroutine alan(a,b,aci,alani)
real,intent(in)::a,b,aci
real,intent(out)::alani
alani=0.5*(a*b*sin(aci))
end subroutine alan
!*****************************************
subroutine yazdir(sira,ucgen_alani)
integer,intent(in)::sira
real,intent(in)::ucgen_alani
print*,sira," Nolu ucgenin alani= ",ucgen_alani
end subroutine yazdir
!*****************************************
end module matematik