scnrm2sub.f 299 Bytes