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