libsim Versione 7.2.4
|
◆ c2i()
Convert a character string to an integer 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 682 del file char_utilities.F90. 683CHARACTER(len=1) :: lblnk
684INTEGER :: nblnk
685
686IF (PRESENT(blnk)) THEN
687 lblnk = blnk
688ELSE
689 lblnk = ' '
690ENDIF
691
692DO nblnk = len(input_string), 1, -1
693 IF (input_string(nblnk:nblnk) /= lblnk) RETURN
694ENDDO
695
696END FUNCTION l_nblnk
697
698
|