Q4/ The following is a subroutine FORTRAN-90 program. Full-out the blanks 1--- UsingSubroutine IMPLICIT 2- REAL, PARAMETER 3---- pi-3.14 :r.h,v READ (5- -) r, h CylinderVolume (r.h,v) 6-----...

Q4/ The following is a subroutine FORTRAN-90 program. Full-out the blanks<br>1--- UsingSubroutine<br>IMPLICIT 2-<br>REAL, PARAMETER 3---- pi-3.14<br>:r.h,v<br>READ (5- -) r, h<br>CylinderVolume (r.h,v)<br>6-----<br>WRITE(*,*)'radius, r<br>WRITE(*,*)height-', h 7---- WRITE(*,*)<br>WRITE(*,*)volume-', v<br>8.<br>SUBROUTINE Cylinder Volume (r1,hl.v1)<br>IMPLICIT NONE<br>REAL, 9---- (IN): e, f<br>REAL, INTENT(OUT): i<br>vl-pi*rl**2*h1<br>10-<br>SUBROUTINE CylinderVolume<br>END<br>

Extracted text: Q4/ The following is a subroutine FORTRAN-90 program. Full-out the blanks 1--- UsingSubroutine IMPLICIT 2- REAL, PARAMETER 3---- pi-3.14 :r.h,v READ (5- -) r, h CylinderVolume (r.h,v) 6----- WRITE(*,*)'radius, r WRITE(*,*)height-', h 7---- WRITE(*,*) WRITE(*,*)volume-', v 8. SUBROUTINE Cylinder Volume (r1,hl.v1) IMPLICIT NONE REAL, 9---- (IN): e, f REAL, INTENT(OUT): i vl-pi*rl**2*h1 10- SUBROUTINE CylinderVolume END

Jun 06, 2022

SOLUTION.PDF

Q4/ The following is a subroutine FORTRAN-90 program. Full-out the blanks 1--- UsingSubroutine IMPLICIT 2- REAL, PARAMETER 3---- pi-3.14 :r.h,v READ (5- -) r, h CylinderVolume (r.h,v) 6-----...

Get Answer To This Question

Related Questions & Answers

Submit New Assignment