無窮 i ラボ Blog

知的ネット社会、知そのもの、機械との共生、プログラミングに関して。

 
 

blog2profile.f Ver.1.01 (→修正後 : 1.011)

subroutine MAINOP
subroutine MAINOP_C

recomdx.f Ver.1.00 (→修正後 : Ver.1.001)

subroutine MAINOP

mag2profile.f Ver.1.11 (→修正後 : 1.111)

subroutine ABS_EZ
subroutine ABS_E1
subroutine ABST
subroutine ABST_D


c 範囲内か --
do nn=1,inns
* [bug] if ( index( url(i) , innurl(nn)(1:innlg(inns)) )
* [次行のように訂正:]
if ( index( url(i) , innurl(nn)(1:innlg(nn)) )
& .ne.0 ) then
call ALGGN(url(i),lg)
write(unno,601) (url(i)(p:p),p=1,lg)
601 format (1000A1)
goto 20
end if
end do
20 continue
c -----------
スポンサーサイト
 このエントリーをはてなブックマークする このエントリーを含むはてなブックマーク  
  
 
 
■  ■  ■

 
本文へは上スクロールしてください












管理者にだけ表示

トラックバックURL↓
http://nhm.blog75.fc2.com/tb.php/139-282fa3ac

新しいトラックバックほど上に表示されます。