求助f77程序重组问题

impygc · 发表于 2020-10-20 18:54:53

现在有主程序一个，子程序若干个，还有其他一些脚本程序 (请见附件)。
请问是否能将这些程序块儿组合成 “一个” 大的 *.f 程序（包括主程序子程序），然后将makefile，exec文件的信息，怎么融入到那个单独的大的*.f程序里面，
使得，直接f77 编译这个 *.f 程序就ok了？我不方便用好多碎片程序。

necrohan · 发表于 2020-10-21 08:38:33

可以直接合并，把所有文件合并成一个文件即可，把子程序放前面，主程序放在最后。
makefile是单独的，需要手动修改。
exec文件好像不用修改。

多个文件的好处是修改某个文件后不用全部重新编译，否则太浪费时间，小程序就无所谓。

impygc · 发表于 2020-10-22 09:00:09

谢谢！下面这个文件看不明白，是否可以讲一下啥意思，或者指点一下？

#!/bin/sh

system=`uname -s`
nrandom=`date '+%d%H%M%S'`
case $system in
Linux|LINUX|UNIX|Unix|Darwin|DARWIN)
# echo "You are running operating system" $system

# A la:
# Generate a random number. Copyright (c) Michael Still 2002
# Released under the terms of the GNU GPL
# It works for RedHat Linux, but not on ALPHA machines:
# LOBOUND=1
# HIBOUND=9999
# RANDMAX=32767
# BINUMBER1=$(( $LOBOUND + ($HIBOUND * $RANDOM) / ($RANDMAX + 1) ))
# BINUMBER2=$(( $LOBOUND + ($HIBOUND * $RANDOM) / ($RANDMAX + 1) ))
# BINUMBER=$(( $BINUMBER1*10000+$BINUMBER2 ))
# echo $BINUMBER > nseed_runtime
echo $nrandom > nseed_runtime
;;
OSF*)
# echo "You are running operating system" $system
echo $nrandom > nseed_runtime
;;
*)
echo "You are running operating system other than Linux/UNIX/OSF"
echo "Modify this file first"
exit 1;
;;
esac

[求助] 求助f77程序重组问题

规矩勋章