DYNAMICARRAY

 !Program name: DYNAMICARRAY

! Order n of the matrix A and its matrix elements

  Integer :: n,i,j

  Integer, dimension(:,:), allocatable :: A

  Print *, 'Enter the dimension, n, of the square matrix A: '

  Read *, n

  Allocate ( A(n,n) )

  Do i=1,n

     Do j=1,n

     Print *, 'A(',i,',',j,')= '

     Read *, A(i,j)

     End do

  End do

  Do i=1,n

     Do j=1,n

     Print *, 'A(',i,',',j,')= ', A(i,j)

     End do

  End do

Deallocate (A)

stop

end

Comentários

Postagens mais visitadas deste blog

RECURSIVE

HYDROGEN-RADIAL

RUNGE-KUTTA