Wade Ward kirjutas Esmaspäev, 1. oktoober 2007 kl 20:07:44 UTC+2:
I want to create a 2d struct with the folllowing charaatarsistcs:
3 x 3 matrix
rows or columns sum to:
1.28, 5.5, 2
the 1.28 row (column) is bounded by binary:
neg infinity 0 1
0 0 1
one matrix bounds below; another bounds above;
contract;
http://www.zaxfuuq.net/beatdown3.htm
--
wade ward
"The final irony is that cops
and rodney king have the same IQ."
Intelligence test result is just a number.
******************************************************
Phone: 372 53900660
program beatdown7
implicit none
integer, parameter :: dp=kind(1.0d0)
real(kind=dp):: grams_per_gallon, bins, ergs, gallons_per_bin, subtotal real(kind=dp):: ergs_per_gram, gram_to_ergs , ten_to_the_five
real(kind=dp):: scratch, abrasion, subtotal2, contusion, punitive, total1 real(kind=dp):: dollars
bins = 55.0_dp
!units: 1 bin = .25 gallons
gallons_per_bin = .25_dp
!units: grams per gallon
grams_per_gallon = 946.34110134025_dp
!units: 1 gram = 9 e 20 ergs
gram_to_ergs = 9.0
ten_to_the_five=100000.0
ergs_per_gram=gram_to_ergs * ten_to_the_five**4.0
scratch = .5
abrasion = 2
contusion = 10.0
punitive =ten_to_the_five**2
! the figgerin'
subtotal = bins * gallons_per_bin * grams_per_gallon
ergs = subtotal* ergs_per_gram
!subtotal2 = scratch+abrasion+contusion
!total1 = subtotal2 +punitive
! (*,*)
write (*, '(A , F12.8)') "bins= ", bins
write (*, '(A , F12.8)') "scratch= ", scratch
write (*, '(A , F12.8)') "abrasion= ", abrasion
write (*, '(A , F12.8)') "contusion= ", contusion
write (*, '(A , F20.8)') " subtotal= ", subtotal
write (*, '(A , F20.8)') " subtotal2= ", subtotal2
write (*, '(A , F12.8)') "total is ", total1
write (*, '(A , F40.8)') "ergs= " ,ergs
write (*, '(A , F40.8)') "$$ = " ,dollars
write (*, '(A )') " 12345678911234567892123456. "
end program beatdown7
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)