Can someone please help me convert this fortran program from Fortran 95 to Fortr

Question

Can someone please help me convert this fortran program from Fortran 95 to Fortran 77? implicit none integer ::i real :: w=200, lc=3., lp=3., d=0.4, dmax = 2.8, step = 0.1 real :: t, tmin = 1.0e10, dmin ! start with d=.4 and step at .1 increments until d> 2.8 ! ! open(10,file='week3.output') write(10,*) '----------------- week3.output ----------------------' write(10,*) 'Beginning loop over cable location' do d = d +step if (d > dmax) exit ! leave loop t = w*lc*lp/(d*sqrt(lp**2 - d**2)) !tension at distance d if (t < tmin) then tmin = t; dmin = d end if write(10,'(1x,a,f10.4,a,f6.2)') 'Tension =',t,' at distance =',d end do ! here after exit write(10,*) write(10,'(1x,a,f10.4,a,f6.2)') 'Minimum tension =',tmin,' at & distance =',dmin end program tension

Explanation / Answer

Go through this link could help you out......!!!!

http://www.crsp.com/documentation/pdfs/for77_to_for95_migration.pdf

Related Questions

Navigate

• Browse (All)
• Browse C
• Subjects

---