libsim Versione 7.1.11

◆ c2d()

elemental double precision function, public c2d ( character(len=*), intent(in)  string)

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.

Parametri
[in]stringstring to be represented as DOUBLE PRECISION

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
Index method.

Generated with Doxygen.