Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
orthogonal multinomials least squares questure
Hi, guys, I have implemented the least squares using orthogonal multinomials basis. The result is ok in 1D problems, but not good in 2D. The structure of the codes is: a module file - orthogonal_multinomials_least_squares.f90 a test main file - test_OMLS_1d.f90 & test_OMLS_2d.f90 program... -
allocatable array problem
Hi, I made a small test program for allocatable array, as following [code] real, allocatable :: a(:) allocate(a(2)) a(1) = 1.0 a(2) = 2.0 a(3) = 3.0 ! This can be accessed!!! write(*, *) a(1), a(2) write(*, *) a(3) [\code] The result is: [code] 1.00000000000000... -
extract one byte from real
Hi, I want to extract one specific byte from a 4-bytes real variable. How to do it? For example: real :: a = 42 integer(1) :: b a: 01000010001010000000000[00000000] -> b Thanks for help!
