Introced long range coupling in main routine