libsim  Versione6.3.0

◆ c2d()

elemental double precision function, public char_utilities::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 756 del file char_utilities.F90.

756  ENDIF
757  nword = nword + 1
758 ENDDO
759 
760 IF (.NOT.PRESENT(word_start) .AND. .NOT.PRESENT(word_end)) RETURN
761 
762 ALLOCATE(lsv(nword), lev(nword))
763 nword = 0
764 le = 0
765 DO WHILE(.true.)
766  ls = f_nblnk(input_string(le+1:), lsep) + le ! search next nonblank
767  IF (ls > len(input_string)) EXIT ! end of words
768  le = index(input_string(ls:), lsep)
769  IF (le == 0) THEN
770  le = len(input_string)
771  ELSE
Index method.

Generated with Doxygen.