This program was originally written in Fortran in 1989 by David R. Brown and the American Public Power Association.
{rho : EARTH RESISTIVITY IN OHM-METERS}
{xl: LENGTH OF THE ROD IN FEET}
{rd: ROD DIAMETER IN INCHES}
# Click the Blue Plane to preview this as a CrossCompute tool
rho = 10
xl = 10
rd = 10
target_folder = '/tmp'
from os.path import join
output_text_path = join(target_folder, 'single_vertical_ground_rod.log')
target_text_path = join(target_folder, 'single_vertical_ground_rod.txt')
from subprocess import run
executable = 'single_vertical_ground_rod.out'
script = 'single_vertical_ground_rod.f'
output_text = run([
'gfortran',
'-o',
executable,
script,])
from os.path import expanduser
from subprocess import check_output, STDOUT
output_text = check_output([
'./single_vertical_ground_rod.out',
expanduser(target_text_path),
str(rho),
str(xl),
str(rd),
], stderr=STDOUT)
with open(output_text_path, 'wb') as output_file:
output_file.write(output_text)
print('output_text_path = ' + output_text_path)
print('target_text_path = ' + target_text_path)