Il seguente codice fornisce la matrice di identità di qualsiasi dimensione che l'utente desidera che sia:
program identitymatrix
real, dimension(:, :), allocatable :: I
character:: fmt*8
integer :: ms, j
print*,'the size of the matrix...
posta
04.04.2014 - 15:32