如何批量一次性输入全部参数？

newboy198414

各位好：刚接触fortran不久，属于皮毛的皮毛，就是了解些基本概念那种。遇到个问题，手头上有个程序，编译执行后需要交互式的执行，提示输入某项内容然后用户输入，在提示下一个内容在输入，最后计算给出结果。
但现在的问题是，需要计算N多个这种内容，每次需要输入的内容是事先已经知道的。
那么，如何能够让程序一次性将这些内容全部读入计算呢？
比如有个例子：读入a=1.0 读入b=2.0 程序计算c=a+b=3.0  现在我需要读入N多项a、b的值来计算。
如何将这些需要计算的数值一次性输入一次性计算呢，现在没办法重新编写程序来改变算法，源程序内容太多了，上千行代码了，只能是这种一次计算一个结果。

newboy198414

珊瑚虫 发表于 2014-8-17 19:51
你的问题写了很多，但我的建议是如果你的程序不涉密的话 可以发上来，
这样可以直接告诉你怎么改。
否则 只 ...

谢谢您的帮助。这个还真有些涉密（其实没什么东西可以保密的，但凡事要考虑周全，单位有规定），不方便将源代码上传。程序运行的界面如图，我需要依次输入N、3、60、4、15.10、7.2、2.12、1.32、39.74、120、3.441，然后程序计算结果为K1值和K1R值。继续输入N、N，然后就进入下一个计算过程，和上面的内容相同，只是输入数值不同而已。因为需要计算N多组数据，现在我想知道如何将这些需要计算的内容一次性读入，并完成计算。

newboy198414

楚香饭 发表于 2014-8-17 20:57
有多个解决办法：
1.把程序改成一个子程序，将输入都改成参数。然后循环调用这个子程序。
2.另外写一个调用 ...

谢谢您的帮助。源程序共有22个文件、一个主程序的，其他全是函数和子程序。你的意思是我需要将主程序改写成子程序，然后调用子程序，将原来需要输入的变量作为子程序的变量传递是吗？然后循环调用N次子程序完成计算。最后的效果是，我只需要将原来输入的变量，写在一个输入文件如input.txt，然后用调用程序读入该输入文件完成计算是吗？    这个程序有验证文件，我见到其过程也是将输入变量写在了一个输入文件中，（比如截图内容），而且还将计算结果写到了XX.out输出文件中，只是无法知道具体是怎么实现的！

newboy198414

谢谢各位的帮助，问题已经解决了。是版主改状态吗？

newboy198414

百事可乐 发表于 2014-8-19 21:23
楼主采用了什么方法?何不说出来，与大家共勉？

正常情况下是要按照楚香饭的办法解决的。可我的程序有点特殊，是个死循环的程序，如果用户不主动终止，程序会一直运行，这和程序的计算目的是一致的。因此我这个只需要在命令行中定向输入input参数就可以得到正确的结果了[在下初学，之前不了解这种方式]。