... program linalg implicit none real :: v1(3), v2(3), m(3,3) integer :: i,j v1(1) = 0.25 v1(2) = 1.2 v1(3) = 0.2 ! ... to the unit matrix do i=1,3 do j=1,3m(j,i) = 0.0 end do m(i,i) = 1.0 end do ! do a matrix multiplication of a vector ! ...
... fill upper triangle only if (mod(m+n,2) == 0) then h(m+1,n+1) = (8.0d0*(2*m*n+m+n-1))/((m+n+3)*(m+n+1)*(m+n-1)) s(m+1,n+1) = 16.0d0/((m+n+5)*(m+n+3)*(m+n+1)) end if end do end do ! ...
... 2006) Tessenyi et al. (2013) sferics 1 kHz - 100 M Hz Radio signatures: Eect on lo cal chemistry NOx 439 nm (NO2 ) 445 nm (NO2 ) 5.3 µm (NO) 9.6 µm 14.3 µm 200 350 nm 420 830 nm Sferics (atmospherics): emission in the low- frequency (LF) Ehrenreich et al ...
[
Текст
]
Ссылки http://www.mrao.cam.ac.uk/wp-content/uploads/2014/04/GHodosan.pdf -- 1542.0 Кб -- 16.04.2014 Похожие документы
... Milestone P V M- 0 3 P V M- 0 3 P V M- 0 3 P V M- 0 3 P V M- 0 3 P V M- 0 3 P V M- 0 3 P V M- 0 4 P V M- 0 4 P V M- 0 6 P V M- 0 7 P V M- 0 8 P V M- 0 9 P V M- 1 0 P V M- 1 1 P V M- 1 2 P V M- 1 3 Sub-Project AAS AAS AAS AAS AAS AAS AAS AAS AAS AAS AAS ...
[
Текст
]
Ссылки http://www.mrao.cam.ac.uk/projects/OAS/pmwiki/uploads/MROIDelayLineSW.RequirementsReview/AAS_SRS.pdf -- 409.5 Кб -- 24.04.2009 Похожие документы
... For example, the 3.3 µ m UIB is the highest in energy, and is therefore emitted by ... NGC 520: K-band (colour, from [3]) and ISOCAM 15 µ m (contoured at 0.2 mJy arcsecs-2 ...
[
Текст
]
Ссылки http://www.mrao.cam.ac.uk/~bn204/mk2/publications/2003/nam2003-aod2003-poster.pdf -- 1338.9 Кб -- 25.11.2009 Похожие документы