function [] = free(A)
  status = feval('multitrans_gpu','free');
