void dmatp(double*,long,long,long,STRING);