j.stk

来自「linux环境下fortran语言开发」· STK 代码 · 共 17 行

set -x
integer k  j1 j2
k=2
 suaddhead<r1 ftn=1 ns=301>ou1
 sunull nt=301 ntr=252>>ou1
while((k<=26))
do
 j1=k*10-10
 j2=300-j1-48
 sunull nt=301 ntr=$j1>ou2
 suaddhead<r$k ftn=1 ns=301>>ou2
 sunull nt=301 ntr=$j2>>ou2
 susum ou1 ou2>out
 mv -f out ou1
 k=k+1
done