!
! Questão 13 da Lista 07 de exercícios para sala de aula - Capítulo F90/5
!
PROGRAM CONVERTE_CHAR_REAL
 INTEGER NUMERO, NUM_COM_PONTO
 CHARACTER (LEN=9) NUMCHAR
  WRITE (*,*) "ENTRE COM O NUMERO"
  READ(*,*) NUMCHAR
  NUMERO = NUM_COM_PONTO(NUMCHAR)
  WRITE (*,1) "A CONVERSAO DE ", NUMCHAR, "EH O NÚMERO ", NUMERO
1 FORMAT(A15, A10, A12, I7)
  STOP 
END PROGRAM CONVERTE_CHAR_NUM

FUNCTION NUM_TO_PONTO(NUMCHAR)
 INTEGER NUM_COM_PONTO, MILHAO, MILHAR, CENTENA, CHAR_TO_NUM
 CHARACTER (LEN=10) NUMCHAR
  MILHAO = CHAR_TO_NUM(NUMCHAR(1:1))*1000000 
  MILHAR = CHAR_TO_NUM(NUMCHAR(3:5))*1000
  CENTENA = CHAR_TO_NUM(NUMCHAR(7:9))
  NUM_TO_PONTO -= MILHAO+MILHAR+CENTENA
  RETURN
END FUNCTION NUM_TO_PONTO
