Esraa_Amer

Untitled

Jan 14th, 2013
48
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.       dimension A(6,10)
  2.       do 10 i=1,6
  3.       do 20 j=1,10
  4.       read(*,*) A(i,j)
  5.   20  continue
  6.   10  continue
  7.       do 30 i=1,6
  8.       SUM = 0
  9.       do 40 j=1,10
  10.       SUM = SUM + A(i,j)
  11.  40   continue
  12.       write(*,*) SUM
  13.  30   continue
  14.       do 60 i=1,6
  15.       SUM1 = 0
  16.       do 50 j=1,10
  17.       SUM1 = SUM1 + A(j,i)
  18.  50   continue
  19.       write(*,*) SUM1
  20.  60   continue
  21.       do 80 i=1,6
  22.       do 70 j=1,10
  23.       SUM2 = SUM2 + A(i,j)
  24.  70   continue
  25.  80   continue
  26.       write(*,*)SUM2
  27.       STOP
  28.       END
Advertisement
Add Comment
Please, Sign In to add comment