89 INTEGER srname_len, info
92 CHARACTER(1) srname_array(srname_len)
112 DO i = 1, min( srname_len, len( srname ) )
113 srname( i:i ) = srname_array( i )
116 CALL
xerbla( srname, info )
subroutine xerbla(SRNAME, INFO)
XERBLA
subroutine xerbla_array(SRNAME_ARRAY, SRNAME_LEN, INFO)
XERBLA_ARRAY