libsim Versione 7.1.11
|
◆ c2d()
Convert a character string to a double value if possible. It is ELEMENTAL so it works with arrays of any shape. It returns missing value if the input cannot be converted or is empty or missing.
Definizione alla linea 736 del file char_utilities.F90. 737INTEGER, POINTER :: lsv(:), lev(:)
738CHARACTER(len=1) :: lsep
739
740IF (PRESENT(sep)) THEN
741 lsep = sep
742ELSE
743 lsep = ' '
744ENDIF
745
746nword = 0
747le = 0
748DO WHILE(.true.)
749 ls = f_nblnk(input_string(le+1:), lsep) + le ! search next nonblank
750 IF (ls > len(input_string)) EXIT ! end of words
751 le = index(input_string(ls:), lsep)
752 IF (le == 0) THEN
|