Q1, Fortran - rextester

Q1

program a3q1
integer, dimension(3,3) :: G,T ,M , GT , M1 , T1 , Sp
   integer :: i, s,j
  M(1,:)=(/1,5,-3/)
  M(2,:)=(/2,-9,5/)
  M(3,:)=(/-1,1,-6/)
  print*,'The matrix,M is ='
  do i=1,3
   write(*,102)M(i,:)
   102 format(3(I5))
  end do
    
  G(1,:)=(/3,-1,2/)
  G(2,:)=(/-2,6,3/)
  G(3,:)=(/0,-4,5/)
  print*,'The matrix,G is ='
  do i=1,3
   write(*,100)G(i,:)
   100 format(3(I5))
  end do
  T(1,:)=(/4,-3,-3/)
  T(2,:)=(/3,-2,-3/)
  T(3,:)=(/-1,1,2/)
  write(*,103)'The matrix,T is ='
  103 format(A)
  do i=1,3
  write(*,104)T(i,:)
  104 format(3(I5))
  end do
  do j=1,3
  do k=1,3
   s=0
   do i =1,3
   s=s+G(j,i)*T(i,k)
   end do
   GT(j,k)=s 
  end do 
 end do 
 print*,"The GT matrix is "
  do i=1,3 
   write(*,105) GT(i,:)
   105 format(3(I5))
   end do 
   do i=1,3
   do j=1,3
  M1(i,j)=M(j,i)
  end do
  end do
  write(*,109)' The transpose matrix of M is'
  109 format(A)
  do i=1,3
  write(*,111) M1(i,:)
  111 format(3(I5))
  end do
  do i=1,3
   do j=1,3
  T1(i,j)=T(j,i)
  end do
  end do
  write(*,108)' The transpose matrix of T is'
  108 format(A)
  do i=1,3
  write(*,107) T1(i,:)
  107 format(3(I5))
  
  end do
  
  do i=1,3
  do j=1,3
  Sp(i,j)=M1(i,j)+T1(i,j)
  end do
  end do
  Write(*,101)'the value of Mt+Tt is'
  101 format(A)
  do i=1,3
  write(*,106) Sp(i,:)
  106 format(3(I5))
  end do
  
  
  
   end program


run \| edit \| history \| help	0