void dmatpr(double*,long,long,long,STRING,long,long,long);
void imatpr(long*,long,long,long,STRING,long,long);
void smatpr(float*,long,long,long,STRING,long,long,long);