void imatp(long*,long,long,long,STRING);