Question

fortran中#开头的语句

帮我大体解释一下下列code的用途和产生的结果。有段老程序它说符合Fortran77国际标准。
C VOL. 25,NO. 1, March, 1999, P. 70-- 73.
#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
# Doc/
# Doc/PackingList
# Fortran77/
# Fortran77/Drivers/
# Fortran77/Drivers/Sp/
# Fortran77/Drivers/Sp/data1
# Fortran77/Drivers/Sp/driver1.f
# Fortran77/Drivers/Sp/driver2.f
# Fortran77/Drivers/Sp/res1
# Fortran77/Drivers/Sp/res1_2
# Fortran77/Drivers/Sp/res2
# Fortran77/Drivers/Sp/src_792.f
# Fortran77/Src/
# Fortran77/Src/Sp/
# Fortran77/Src/Sp/src.f
# This archive created: Tue Jul 27 14:09:36 1999
export PATH; PATH=/bin:$PATH
if test ! -d 'Doc'
then
mkdir 'Doc'
fi
cd 'Doc'
if test -f 'PackingList'
then
echo shar: will not over-write existing file "'PackingList'"
else
cat << SHAR_EOF > 'PackingList'
Algorithm:790
Language:Fortran77
Precision:Sp
Src:src.f
Driver_0:driver1.f src_792.f @Src
DriverLib_0:port
Data_0:stdin=data1
Res_0:stdout=res1
Driver_1:driver2.f @Src
DriverLib_1:port
SHAR_EOF
fi # end of overwriting check
cd ..
if test ! -d 'Fortran77'
then
mkdir 'Fortran77'
fi
cd 'Fortran77'
if test ! -d 'Drivers'
then
mkdir 'Drivers'
fi
cd 'Drivers'
if test ! -d 'Sp'
then
mkdir 'Sp'
fi
cd 'Sp'
if test -f 'data1'
then
echo shar: will not over-write existing file "'data1'"
else
cat << SHAR_EOF > 'data1'
10

17
30
5
SHAR_EOF
fi # end of overwriting check
if test -f 'driver1.f'
then
echo shar: will not over-write existing file "'driver1.f'"
else
cat << SHAR_EOF > 'driver1.f'
C

Answer 1

都是注释。

END precision > double 是程序代码作者自己写的。大概表示，这里双精度的定义就结束了。

这个写法不是语法规定的，你也可以写成：
C **** 哈哈，这一行就没有双精度啦 >>>>>

C 是注释，这一行后面写什么随便。

追问

谢谢解答。麻烦您了~

Answer 2

这是一段linux脚本程序
if test ! -d 'Doc'
then
mkdir 'Doc'
fi
讲如果“doc”不是目录，就创建一个叫“doc”的目录
if test -f 'PackingList'
then
echo shar: will not over-write existing file "'PackingList'"
else
cat << SHAR_EOF > 'PackingList'

讲如果“PackingList”不是文件，就在屏幕上输出will not over-write existing file "'PackingList'"
否则就创建<< SHAR_EOF > 'PackingList'
另：里面cd指进入路径
都是linux系统的语言，建议学学

Answer 3

这是一个操作系统的脚本（类似于dos的批处理），而不是 fortran 语言程序。
以 # 开头的是脚本语言的注释语句。