libsim Versione 7.1.11
|
◆ 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 688 del file char_utilities.F90. 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
702ELEMENTAL FUNCTION f_nblnk(input_string, blnk) RESULT(nblnk)
703CHARACTER(len=*), INTENT(in) :: input_string
704CHARACTER(len=1), INTENT(in), OPTIONAL :: blnk
|