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