返事が遅くなって申し訳ないです。
みなさまレスありがとうございます。
11,12ループの所だけを省略せずに抜き出してみました。
　　　　　do 11 jj=1,10
　　　　　　　 if (je(i,jj).eq.j) then
　　　　　　　　　jk=jj
　　　　　　　　　goto 70
　　　　　　　 end if
　11　continue
　　　　　 do 12 jj=1,10
　　　　　　　if (je(i,jj).eq.0) then
　　　　　　　　jk=jj
　　　　　　　　je(i,jj)=j
　　　　　　　　goto 70
　　　　　　　end if
　12　continue
　70　　 xj=x0(j)

je＝jとje＝0の両方が真になるかどうかなんですが
これをみるかぎり、やってることは両方jk=jjを代入してるだけなんで
　　　　　　do jj=1,10
　　　　　　　if (je(i,jj).eq.0) then
　　　　　　　　je(i,jj)=j
　　　　　　　end if
　　　　　　　if (je(i,jj).eq.j) then
　　　　　　　　jk=jj
　　　　　　　　exit
　　　　　　　end if
　　　　　　end do
　　　　　xj=x0(j)
にしてもいいのかな、と思ったのですが。どうでしょうか？