libsim Versione 7.2.4
|
◆ 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 730 del file char_utilities.F90. 731INTEGER, POINTER, OPTIONAL :: word_end(:)
732CHARACTER(len=1), OPTIONAL :: sep
733
734INTEGER :: nword
735
736INTEGER :: ls, le
737INTEGER, POINTER :: lsv(:), lev(:)
738CHARACTER(len=1) :: lsep
739
740IF (PRESENT(sep)) THEN
741 lsep = sep
742ELSE
743 lsep = ' '
744ENDIF
745
746nword = 0
|