xerbla_array function

void xerbla_array(
  1. String SRNAME_ARRAY,
  2. int SRNAME_LEN,
  3. int INFO
)

Implementation

void xerbla_array(
  final String SRNAME_ARRAY,
  final int SRNAME_LEN,
  final int INFO,
) {
  int I;
  String SRNAME;

  SRNAME = ' ';
  for (I = 1; I <= min(SRNAME_LEN, SRNAME.length); I++) {
    SRNAME += SRNAME_ARRAY[I - 1];
  }

  xerbla(SRNAME, INFO);
}