void smatp(float*,long,long,long,STRING);

.