void dmatp(double*,long,long,long,STRING);
void imatp(long*,long,long,long,STRING);
void smatp(float*,long,long,long,STRING);