fortran- pomoč

Živijo!

Prosim če lahko kdo pogleda in pove kaj delam narobe.

Naloga:Število vijakov s katerimi je lahko privita prirobnica je , 5,7,9,11. Nosilnost vsakega vijaka je podana za enačbo Pi*d**2/4*dopustna napetost. Napišite program , ki prebere dopustno napetost, pet(5)premerov vijakov in za vse kombinacije premerov in števila vijakov izračuna skupno nosilnost. Program razdeli na glavni(izračuna nosilnost in izpiše rezultate) in podprogram(bere podatke)

program prirobnica
implicit none
real::d(5), napetost, nosilnost(20), nosilnostenga
integer:: i, v, n=0
real, parameter::Pi=3.141
call beri(napetost, d)

do i=1,5
nosilnostenga= Pi*d(i)**2*napetost/4
do v=5, 11, 2
n=n+1
nosilnost(20)=nosilnostenga*v
print*, nosilnost
end do
end do
end program prirobnica

subroutine beri(napetost, d) !podprogram
implicit none
real::napetost, d(5)
print*, 'vnesi napetost in pet premerov vijakov'
read *, napetost, d
end subroutine beri

v compilerju mi napiše no errors, v exe pa pridem samo do vstavljanja podatkov in konec, nobenega izpisa ni