在fortran语言中,
(x1-x2)的三次方如何表示?请问
两个星号表示次方,(x1-x2)**3
3**(x1-x2)
program example001
implicit none
external input,matrix_add,output
integer,parameter::m=3,n=4
integer,dimension(m,n)::A,B,C
call input(A,m,n)
call input(B,m,n)
call matrix_add(A,B,C,m,n)
call output(C,m,n)
read(*,*)
end program
subroutine input(mat,n1,n2)
integer mat(n1,n2),n1,n2,i,j
write(*,*)"n1,n2"
read(*,*)((mat(i,j),j=1,n2),i=1,n1)
do i=1,n1
write(*,*)(mat(i,j),j=1,n2)
end do
end subroutine
subroutine matrix_add(A,B,C,n1,n2)
integer n1,n2,i,j
integer,dimension(n1,n2)::A,B,C
Forall(i=1:n1,j=1:n2)C(i,j)=A(i,j)+B(i,j)
end subroutine
subroutine output(mat,n1,n2)
integer mat(n1,n2),n1,n2,i,j
write(*,*)"the total number output:",n1,n2
do i=1,n1
write(*,*)(mat(i,j),j=1,n2)
end do
end subroutine