ฉันมีตัวแปรมากมายที่ฉันต้องประกาศ และโค้ดต้นฉบับมีลักษณะดังนี้: DIMENSION energy_t(20000),nrt(20000),npsh(1000),xx(1000),yy(1000), :step(1000),stepz(1000),r1(1000),rr(1000),ic(1000),diffrr(1000) และฉันก็เขียนมันใหม่ดังนี้:...

ฉันพยายามสร้างเครื่องกำเนิดตัวเลขสุ่มเทียม LCG ขั้นพื้นฐานใน Fortran 77 เพื่อพิมพ์ตัวเลขสุ่ม 1,000 ตัวลงในไฟล์ แต่ด้วยเหตุผลใดก็ตามเอาต์พุตจึงเป็นเพียง 1,000 0s โค้ดทั้งหมดค่อนข้างสั้น ดังนั้นฉันจึงหวีมันหลายครั้งและพยายามเปลี่ยนแปลงบางสิ่ง...