snrm2sub.f 290 Bytes