99 INTEGER srname_len, info
102 CHARACTER(1) srname_array(srname_len)
122 DO i = 1, min( srname_len, len( srname ) )
123 srname( i:i ) = srname_array( i )
126 CALL
xerbla( srname, info )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine xerbla_array(SRNAME_ARRAY, SRNAME_LEN, INFO)
XERBLA_ARRAY