นี่คือรหัส Fortran 90 ที่ฉันเขียน เป็นฟังก์ชันที่ฉันใช้ในโค้ดที่ใหญ่กว่า แต่ฉันได้รับผลลัพธ์ที่ไม่ถูกต้อง ฉันรู้ว่าในทางคณิตศาสตร์คำตอบควรเป็น 1 (หรือใกล้เคียงกับ 1 เนื่องจากการคำนวณ) แต่ผลลัพธ์คำตอบของฉันคือ 0 ฉันทำอะไรผิดหรือเปล่า?...

เพื่อความสะดวก ฉันต้องการที่จะอ้างอิงองค์ประกอบของตารางการค้นหาแบบคงที่ที่ใช้งานเป็นอาร์เรย์ 1d เช่นนี้ Item = [1,7,2,5,3](I) โดยที่ I เป็นดัชนีจำนวนเต็มของอาร์เรย์แบบคงที่ในวงเล็บเหลี่ยม...