Some years ago, I needed to produce two output files, one in SI units and another in USCS...I made my calculations ahead of writing anything (do not want to calculate twice) and grouped all WRITE statements in a loop
SI output file unit 41
USCS outpuf file unit 42
conversion factor array (1) = 1.0
conversion factor array (2) = SI-to-USCS conversion factor for given quantity
Code:
do i = 1, 2
iout=40+i
write(iout,*) 'Side length is: ', Lside*cf_m(i)
end do
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.