fortran-echo.sh

来自「基于IASP91地球模型计算地震波到时的程序」· Shell 代码 · 共 30 行

#-------------------------------------------------
# This script takes first cmd line argument
# and outputs the first 70 characters on one line
# and the rest as a fotran continuation line, i.e.
# with & in 5th column
# (S. Genaud)

#Continuation line (F77)
#========================
# Recall a F77 line may not exceed 77 characters without
# a continuation character to indicate a continuation line.
# A continuation line is any line that contains any character of the FORTRAN 
# character set other than the character blank or the digit 0 in column 6 
#and contains only blank characters in columns 1 through 5. 
# A statement must not have more than nineteen continuation lines.
#--------------------------------------------------
numchar="       `echo $1 | wc -c`"

if [ $numchar -gt 63 ] ; 
then    
	  line="      `echo $1 | cut -c -66`";
#	  line="$line";
	  contd=`echo $1 | tail +67c`;
	  echo "$line"; 
	  echo "     &$contd";
else    
        echo "$1"; 
fi