Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.programming > #15203

Re: 2-dimensional struct

Show all headers | View raw

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

Back to comp.programming | Previous | Next | Find similar | Unroll thread

Thread

Re: 2-dimensional struct Кристьян Робам <vavvvvvvaavvvvavaa@gmail.com> - 2022-06-06 16:13 -0700

csiph-web