Create runmcscat.f