小白求助 发表于 2023-5-26 15:00:58

二维数组读入的问题

data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAMQAAAMvCAYAAACNzX+3AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAABVcSURBVHhe7d09klzXmQTQwqyFDAUNLQDcgRQyZI05JuiSxqyA5hikKy1BlgwFuANqATIUDGAR3AHnVeE2Kh9eo/FL5QfWOREdpPgDAonKvoV3G6lHP//88y8n4OLRL5v153Dz/mv9EdgoBASFgPDWhXj+/ZenR4++Ov2w/vc0079/7+6H01ePHp2+/P75+t/hh6+2H+uj01e/nR/sGG9diGf//ufp9OTPpz+s//2hfvjq0faT+uXpvp9vqDk/Zbp4+uT8tOmDPp48Xd/WW3j65PzvPP7lu2frL7zBi3/+Qz+e/PIO38X/mGffPb7n+/qeH+/yk8DBtRCv9eyX7x6fw/64L6Z3LcSbvHhRzXzBv5+nvzzZXuCP7wtoffLy2v/43uIt07PT+d3Sx3y7BGOtYiwvPiud//K7fjz02epyGjz+bjtrrg4nxLPvfnn84Ldzd1K978fHO43a7n2L5bj4KN7wlmm9CF95Mb+bVbJXfsIOhbj7Ncx7/rc++bdM7/BruHvfRvFRPPyW6Yf/O32zvV16/N9/On22/tI7++Hvp79uf3jy5ze84frDX07bi/p0+uc3p/+5xUdP249/+/l4q48fv37vnw3eZAt486FvR+4+Xv0M/foT5v5fVN+9ZXvlr3+EJ2B3H5/iZ9fL6feak/P895wYH88qxNGLF+z97+lf/L23eHuyfl1w30/Y/YXY3L343/ie+GO8nZvmxY/p8EN/TY4vfy3xm8qg695CPFSGO29Tiof+mdcW4u6F/lb//fv+/U/Zs+3H9eJF/uqP/dVT4q4MToeP65VCvM9Tpte8KB84Hc4efEG/6RfY7/gW6o2HzTCXbB78Tr/mJOGDvSxEHr9PL3/+prdEdxdHT9dn9P0//9DpcPbwZ/gHTolVtBcv9oe+j6vcv4m3E7/Ft4czXQrx6ovzRTnethAv/6UXL9TzK3h9Bn/oOH+4EJvLt/FkK0R8L3anzt1pds/38+UJ8qYfwxDveOI99OEt1Ie599cQL0+Lt/i47yfg2fbCffKGz2ZvLMSrsnAvHU+SF9/u+eMTKcOD7k6G7RND/NGL/tfzQCHe8YR4R+9WiDf8t179DPtbeHO9+wSQb5nWn/8WfowDlX6D0PPTT/86//H3p9+91R3TH05/2cp7uJBavy/g0R//ur1Wnp22F9FpexGdTv/6afsvfLouXxr/+Ten3z/dPmH95dULzc9OX//4y+nZF9/68vlfwyrGzoe+ZTq6vrXJj/f7JHf3a4cHvo27z67nj0/oM+nLt3uH73OeEOmahQPj43jghHhy2jI+F+Y1H0+3f+Jtvfis9uq3cfjk94AXv6Ho/PHt6Ytnb/g2Pvv69OPdf+fPf1//3voY+NvM7n5s336xnXLn7/NbB/Pi5NwKc/ri27k/vk+JGZpPwvPT919+fvrm9N3p2Y9fv//XlfFGCgGh9ItqmEkhICgEBIWAoBAQFAKCQkBQCAjHQjz//vRlfqnD9uGrAf6D5F+1v6k+f/XoH8+jMfd48vQdvsaG9yL/ujghfjh9tX4yLl9Kffmise3j6foSvr9+60uNf1XyH2EL/eLll3zf83XED/09Pg75z7BOiOenf/ztvGj8+PTd/x6P5c/+9N+/id94M5f8p1iFWAvfr/sdbJ/9bvs7m3/+e/sn+fjkP8X+KdPjL06frz/d+/z0xeVTFL8q+dcdH7vCDVMICPtCvPY96t17XH5V8q9bhbh7j/qv00/3PcZ4/tP2dzavfY/Lh5H/FKsQn51+9+Ixxulv/zj+jDz/x9+2v7P9fHzI/3EKD5D/GOs+4nz783LLaHf/86ntpH6q5D/CtRCbhwbKXJL++uTfd5yhOXyB2Xmw7C/+L3n/U+RfZZcJgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAoJCQFAICAoBQSEgHAthSrFL/lWmLCeRf12cEKYUu+Q/whb6hSnFLvnPsE4IU4pd8p9iFcKUYpf8p9g/ZTKl2CX/uuNjV7hhCgFhXwhTil3yr1uFMKXYJf8pViFMKXbJf4x1H3G+/TGl2CT/Ea6F2JhS7JJ/nynLaeRfZcoSgnsICAoBQSEgKAQEhYCgEBAUAsKjn3/+2T0ELE4IeOl0+n8ijVNt//CaPQAAAABJRU5ErkJggg==
请问我想要把这两列，读入到一个这样的（2，9999）的二维数组里要怎么写才能读入呢

fcode 发表于 2023-5-26 16:00:33

Real :: a(2,9999)
Open(12,File="文件名")
Do i = 1 , 9999
read(12,*) a(:,i)
End Do
Close(12)

小白求助 发表于 2023-5-26 16:57:04

fcode 发表于 2023-5-26 16:00
Real :: a(2,9999)
Open(12,File="文件名")
Do i = 1 , 9999


感谢老师！
页: [1]
查看完整版本: 二维数组读入的问题