fortran

林明宇

integer a(5,5)
integer i,j,k
do i=1,5
    a(i,j)=0,j=1,5
end do
a(2,3)=10
do i=1,5
write(*,*)(a(i,j),j=1,5)
end do
end

我想用隐式循环赋值，应该把
do i=1,5
    a(i,j)=0,j=1,5
end do
改成什么呢

言深深

你的这个运算就显式就行了。
do i=1,m
do j=1,n
a(i,j)=0
enddo
enddo

lysx

言深深 发表于 2014-11-19 21:14
你的这个运算就显式就行了。
do i=1,m
do j=1,n

直接a=0不就完了！！！

pvasbob

我不明白你到底是要干嘛，你的意思好像是要把所有的值都设为0.除了a(2,3)=10
但是a(i,j)=0,j=1,5是有语法错误的
program ex
    implicit none
    integer :: a(5,5)
    integer :: i,j
   
    forall(i=1:5,j=1:5)
    a(i,j)=0
    end forall

a(2,3)=10

write(*,'(5(2x,i2),/)') ((a(i,j),j=1,5),i=1,5)
end

应该可以的

royalosyin

楼上正解，矩阵赋初值，直接矩阵名=初值即可
real a(n,m)
a=0

言深深

lysx 发表于 2014-11-20 08:18
直接a=0不就完了！！！

是的呢···针对这个，确实可以这样，或者干脆不赋值也行。

zcilly

我不知道楼主的意思

林明宇

言深深 发表于 2014-11-19 21:14
你的这个运算就显式就行了。
do i=1,m
do j=1,n

谢谢您的帮助，这是我自己想的题，就是把5*5的矩阵除a(2,3)以外的值都赋成0，a(2,3)赋成10。
就是想看看
   forall(i=1:5,j=1:5)
     a(i,j)=0
     end forall
用do的隐式循环能不能写？

林明宇

zcilly 发表于 2014-11-20 11:49
我不知道楼主的意思

我只是想看看
   forall(i=1:5,j=1:5)
     a(i,j)=0
     end forall
用do的隐式循环怎么写？

言深深

林明宇 发表于 2015-3-9 21:50
我只是想看看
   forall(i=1:5,j=1:5)
     a(i,j)=0

a=0;a(2,3)=10
就可以了，当然，非要循环的话，可以用显式循环，隐式循环报错。
do i=1,5
do j=1,5
if(i.eq.2.and.j.eq.3)then
a(i,j)=10
else
a(i,j)=0
endif
enddo
enddo