2 # FORTRAN IV simple loading routine
6 echo "Argument missing!"
10 if [ ! "$H316" ]; then
11 echo "H316 variable not set!"
15 if [ ! -e "$H316/config/libs.config" ]; then
16 echo "H316/config/libs.config not found!"
20 source "$H316/config/libs.config"
22 #LOAD_LIBS="$H316/lib/fortran/lib/math.lib\
23 # $H316/lib/fortran/lib/flib1.lib\
24 # $H316/lib/fortran/lib/flib2.lib\
25 # $H316/lib/fortran/lib/flib3.lib\
26 # $H316/lib/iolib/lib/io.lib"
30 locname
=`basename $1 .obj`
35 cat > $locname.go
<<EOF
36 rest $H316/sys/super3.sys
43 for library
in $LOAD_LIBS; do
44 if [ ! -e "$library" ]; then
45 echo "Error: $library not found!"
48 echo "at ptr $library" >> $locname.go
49 echo "go" >> $locname.go
50 echo "! echo loading $library" >> $locname.go
53 cat >> $locname.go
<<EOF
54 ! echo -e "\n************************"
56 ! echo -e "\n************************"