اصلاح یه کد نوشته شده به زبان فرترن

یک کد فرترن را برای پروژه نوشتم اما میخوام اصلاحش کنم برای یک محفظه مربعی که گوشه هاش چاه و چشمه حرارتی دارن کد من برای محفظه ساده مربعی هست با دو تا دیوار با دما های T=0 , t=1 در نظر گرفته شده .یه سری اصلاحش کردم واسه شکل محفظه ام اما واسه متوسط ناسلت یه ایرادی هست میخواستم اون کده اصلاح بشه فقط واسه هندسه من.کسی که انجام میده حتما باید توضیح بده کدوم قسمتش را اصلاح کرده و چرا .عکس هندسه شکل ها را در قسمت ضمیمه میزارمش.