swind1 fix

The swind1.f source file available on the extra models page had an error reported by Roderick Johnstone - lenact was not declared. Fixed this.