How would you fix the error real parameter E200109 The val

How would you fix the error : real, parameter :: E=200*10**9. The value of E is too large.

I tried using real*8, parameter :: E=200*(10**6)*(10**3) and it was wrong.

Compile and run the following code. It will generate one or more errors on some systems. Can you see where the error is? Can you fix it? program Rodstretch Calculate the extension (stretch) of a simple uniform rod of circular cross section when subject to a constant tension force Assume that we are given d the rod diameter (milimeters) the rod 1 ength meters F the force on the rod (Newtons) implicit none real d 25.0 mm real 1.0 real F 1000 N real parameter E 200 10 *9 200 GPa elastic modulus of stee 1) real parameter pi 3.14159 value of pi real A, d m, delta area, diameter in meters, stretch of rod 1000.0 convert units pi d m 2/4.0 delta 1 F/CA E) print delta meters end program Rodstretch

Solution

You just give real parameter as 200 considering the unit a GPA then after computing Delta just divde it by 10*10*10*10*10*10*10*10*10.