Question: Pls, Covert the following Fortran code to Python : implicit real*8(a-h,o-z) external fcn,funzX1 common/par/pot,t h=1.d0 n=24 n1=int(n/h) x0=60.d0 t=0.d0 pot=0.d0 open(20,file='result.txt') write(20,*)t,x0 do i=0,n1 call

Pls, Covert the following Fortran code to Python :

implicit real*8(a-h,o-z) external fcn,funzX1 common/par/pot,t h=1.d0 n=24 n1=int(n/h) x0=60.d0 t=0.d0 pot=0.d0 open(20,file='result.txt') write(20,*)t,x0 do i=0,n1 call fcn(h,x0,xn) x0=xn t=t+h write(20,*)t,x0 end do end

subroutine fcn(h,x0,xn) implicit real*8(a-h,o-z) common/par/pot,t if (x0<59.d0) then pot=4320000.d0 xk1=funzX1(x0) xk2=funzX1(x0+0.5d0*xk1*h) xk3=funzX1(x0+0.5d0*xk2*h) xk4=funzX1(x0+xk3*h) xn=x0+(h/6.d0)*(xk1+2.d0*xk2+2.d0*xk3+xk4) go to 1 end if if (x0>61.d0) then pot=0.d0 xk1=funzX1(x0) xk2=funzX1(x0+0.5d0*xk1*h) xk3=funzX1(x0+0.5d0*xk2*h) xk4=funzX1(x0+xk3*h) xn=x0+(h/6.d0)*(xk1+2.d0*xk2+2.d0*xk3+xk4) go to 1 end if xk1=funzX1(x0) xk2=funzX1(x0+0.5d0*xk1*h) xk3=funzX1(x0+0.5d0*xk2*h) xk4=funzX1(x0+xk3*h) xn=x0+(h/6.d0)*(xk1+2.d0*xk2+2.d0*xk3+xk4) 1 return end

double precision function funzX1(x) implicit real*8(a-h,o-z) common/par/pot,t cp=4186.d0 ro=1.d0 U=12558.d0 S=1.2d0 tin=17.d0 ta=20.d0 V=80.d0 if (t.GE.0.d0 .AND. t.LT.7.d0) then Q=0.d0 end if if (t.GT.7.d0 .AND. t.LT.9.d0) then Q=70.d0 end if if (t.GT.9.d0 .AND. t.LT.14.d0) then Q=40.d0 end if if (t.GT.14.d0 .AND. t.LT.15.d0) then Q=30.d0 end if if (t.GT.15.d0 .AND. t.LT.19.d0) then Q=10.d0 end if if (t.GT.19.d0 .AND. t.LT.20.d0) then Q=50.d0 end if if (t.GT.20.d0 .AND. t.LT.24.d0) then Q=10.d0 end if funzX1=(Q/V)*(tin-x)-(U*S*(x-ta))/(V*ro*cp)+pot/(V*ro*cp) return end

Step by Step Solution

There are 3 Steps involved in it

1 Expert Approved Answer
Step: 1 Unlock blur-text-image
Question Has Been Solved by an Expert!

Get step-by-step solutions from verified subject matter experts

Step: 2 Unlock
Step: 3 Unlock

Students Have Also Explored These Related Databases Questions!

Q:

Please read the following questions and answer according! 3. There is a PDF file on iCollege named "Programmer's Reference Manual" for Fortran Using this manual, describe the syntax and semantics of...

Q:

use fortran program please . Brainerd, Chapter 2, Question 4, Page 61 (modified from original) ol in college 60% rebate goo The Enlightened Corporation is pleased when its employees enr classes. If...

Q:

Lab 8: (1) Go to http://ideone.com/ to run the following Fortran 77 sample code and Fortran 90(95) sample code; (2) rewrite these two pieces of sample code in C# A. PROGRAN MAIN EXTERNAL SUB1 COMMCN...

Q:

Assembly Coding, Thank you! This is the specification of what the assembly functions need to perform. Do not copy or type this code. Use it as a reference when writing the assembly. specification/...

Q:

The following Fortran program was written to read information for three households (address, type of vehicle, yearly income, and number of children), store the information in an array of Households,...

Q:

Users/kailyn.davls avIS/U What are three general methods of implementing a programming languge . What are syntax and semantics of a programming language? 4. Given the follow FORTRAN program, explain...

Q:

please answer the questions 12) Pls explain a) Liquidity Ratios b) Solvency/Capital Structure Ratios c) Profitability Ratios d) Working Capital Management Ratios e) Market Ratios 13) Pls explain...

Q:

6-5. Determine which of the following Fortran program fragments are valid. For each valid statement, specify what will happen in the program. (Assume default typing for any variables that are not...

Q:

please answer the questions 2021 FINANCIAL MANAGEMENT STUDY TOPICS 1) Pls explain financial manager tasks 2) Pls explain investing decisions, financing decisions and dividend decisions. 3) Pls...

Q:

What is the output of following FORTRAN program? PROGRAM TEST k = 5 m = 0 DO 20 i = 1, 5 DO 10 j = 1, k k = k + 1 m = m + i + k write (*, *) m 10 CONTINUE 20 CONTINUE END You may recall that the loop...

Q:

The Electronics Manufacturing Department of Best Gadgets uses ABC to allocate all of its conversion costs (direct labour and manufacturing overhead). The company assembles and tests electronic...

Q:

In their review of the public accounting profession, Lou Harris and Associates warn that an audit report too often is viewed as a "certificate of health" for a company. The report states: The most...

Q:

the starting point in the valuation of a REIT s NAV is the application of a capitalization rate. To what is this capitalization rate applied? Where does this cap rate come from?

Q:

On January 1,2024 , a U.S. company purchased 100% of the outstanding stock of Sandhill Grains, a company located in Latz City, New Zealand. Sandhill Grains was organized on January 1, 2005. All the...

Q:

4. Assume that as the HR manager, you have decided to prepare some guidelines for supervisors to use when they have to discipline employees. Gather the information needed, using Internet resources...

Q:

2. Suppose a coworker just brought you a union leaflet urging employees to sign an authorization card. What questions would you ask of the union supporter? What may happen from this point on?

Q:

1. Under what circumstances might a company side with a union in its attempt to organize employees? How would you, as an employee, feel if your employer supported you joining a union?