c======================================================================
c                      Programa SumaIterada_R4
c======================================================================
c  Este programa suma iterativamente en doble precision el numero 
c  a = 0.1 hasta que el error de redondeo afecta al tercer decimal.
c======================================================================

      implicit real*4 (a-h,o-z)
      character*20 spk
      logical seguir
      
      npk=0
      dpk=0.1
      xpk=0.0
      seguir=.TRUE.
      
      do while(seguir)
        npk=npk+1
        xpk=xpk+dpk
        write(spk,'(f20.3)')xpk
        write(6,100)xpk
        seguir=(spk(20:20).eq.'0')
      enddo

      write(6,101)npk,spk
 100  format('P.K. ',f20.3)
 101  format(' Problema en el termino ',i20,' ---> xpk = ',a)

      end


