MATRIX

 Program name: MATRIX

!Building a 2x3 matrix

  INTEGER*4 MAT(2,3)

  Do 1 J=1,3

  Do 1 I=1,2

     MAT(I,J)=(5*I)+(7*J)

     Print *, MAT(I,J)

1 continue

  Print *, 'Matrix 2x3 (5i+7j): '

  Print *, MAT(1,1),MAT(1,2),MAT(1,3)

  Print *, MAT(2,1),MAT(2,2),MAT(2,3)

  stop

  end

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA