como puedo leer dos vectores
Publicado por
David (1 intervención) el 25/02/2009 14:02:30
Hola, tengo un problema, quiero leer dos vectores y no puedo, realmente no se donde esta el error. Les evnvio el programa. Saludos David
Program agrupacion
real(8) y(50)
! real(8) y1(50)
!real(8),dimension(:),allocatable::secuencia1
!allocate(secuencia1(1:50))
!Print*,'Ingresar los valores de la primera secuencia'
!read*, secuencia1
real(8),dimension(:),allocatable::secuencia
allocate(secuencia(1:50))
Print*,'Ingresar los valores de la primera secuencia'
read*, secuencia
do i=1,(50-9.d0)
y(1)=0.d0
do j=0,9
y(i)=y(i)+(secuencia(i+j))*10**(9-j)
end do
write(*,*) i,y(i)
end do
!do i=1,(50-9.d0)
! y1(1)=0.d0
! do j=0,9
! y1(i)=y1(i)+(secuencia(i+j,2))*10**(9-j)
! end do
! write(*,*) i,y1(i)
! end do
end