===============================================================
 
   THIS SUBROUTINE CONVERTS A NUMBER MADE OF CHARACTERS
   IN A REAL DOUBLE PRECISION NUMBER: IT ACCEPTS ALL THE
   CHARACTER FORMATS INTEGER, SINGLE PRECISION, DOUBLE PRECISION
 
   LINE= input string type character length 40 (character*40)
 
 ===============================================================
 
function char2dnum(LINE)
 
COMMONS: 
common-initi.f
 
SUBROUTINES USED:
  messages_n
 
micromap-index
Mon Jul 17 08:57:45 CEST 2017