求助f77程序重组问题

impygc

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

necrohan

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

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

impygc

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

#!/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