[½»Á÷] fortranÈçºÎʵÏÖÕÅÁ¿Ïà³Ë£¨²¢³Ë£© ÒÑÓÐ3È˲ÎÓë

2Â¥: Originally posted by snoopyzhao at 2012-07-13 12:50:41
ʲôÊÇÕÅÁ¿Ïà³Ë£¬ÏòÁ¿µÄµã³Ë£¿

program test

   integer, dimension(5) :: a = (/1,2,3,4,5/)
   integer, dimension(5) :: b = (/5,4,3,2,1/)
   integer, dimension(5) :: c
   integer, dimension(3, 3) :: d
   integer, dimension(3, 3) :: e
   integer, dimension(3, 3) :: f
   
   d = reshape((/ 1, 2, 3, 4, 5, 6, 7, 8, 9 /), shape(d))
   e = reshape((/ 1, 2, 3, 4, 5, 6, 7, 8, 9 /), shape(e))
   
   c = a * b
   f = d * e
   write(*,*) c
   write(*,*) f

end program test

4Â¥: Originally posted by snoopyzhao at 2012-07-13 13:47:01
ûÓмÆË㹫ʽ²»ºÃ˵¡£Èç¹û¼ÆËã²»ÄÜÏòÁ¿»¯£¬ÄÇô»ù±¾ÉÏÒ²Ö»ÄÜÓÃÑ­»·ÁË¡­¡­

do i=1,3
    do j=1,3
        do k=1,3
           do l=1,3
                 c(i, j, k, l)=a(i, j)*b(k, l)
           end do
         end do
    end do
end do

7Â¥: Originally posted by supersunyan at 2012-07-13 16:33:14
forallÓï¾äºÃÏñÖ»Äܸ³Öµ£¬Ò²Ã»ÓÐÏ뵽ʲôºÃµÄ·½·¨¡£

9Â¥: Originally posted by whu_zyg at 2012-07-15 17:25:16
Õâ¸öËÄÖØÑ­»·¾õµÃÓ¦¸Ã¿ÉÒÔ¼õÉÙΪÁ½ÖØÑ­»·£¬ÒòΪÁ½¸öÏòÁ¿Ö±½ÓÏà³Ë£¨productÃüÁ¾ÍÊÇÇóºÍÁË£¬Äã¿ÉÒÔÊÔÊÔ