PROGRAM matrice_2
	   IMPLICIT NONE
	   INTEGER, PARAMETER :: Nda = 10

!  Matrice matA, implementata con i tipi derivati
	TYPE riga
		REAL(8), DIMENSION(:), POINTER :: col
	END TYPE riga
	TYPE (riga), DIMENSION(:), POINTER :: matA_rig 
	INTEGER :: ir, ic 

! Si riserva la memoria necessaria
	ALLOCATE(matA_rig(Nda), STAT=ic)
	DO ir = 1, Nda
		ALLOCATE(matA_rig(ir)%col(ir), STAT=ic)
		matA_rig(ir)%col = 0.0D0
	END DO

! Si definiscono i valori per matA     
	DO ir = 1, Nda
		DO ic = 1, ir
			matA_rig(ir)%col(ic) = ir + ic
		END DO
	END DO
	DO ir = 1, Nda
		print*,"matA_rig(",ir,") = ",matA_rig(ir)%col
	END DO
END PROGRAM matrice_2