「Tinkerコンパイル」の編集履歴(バックアップ)一覧に戻る
tar zxvf tinker-5.1.07.tar.gz cd tinker cp mmff/*.[fi] source cp makefile/Makefile source cd source/ rm *.c
旧 if (skipring.eq..true.) then 新 if (skipring) then
At line 168 of file cluster.f Fortran runtime error: Array reference out of bounds for array 'kgrp', lower bound of dimension 1 exceeded (0 < 1)
旧 call sort (size(i),kgrp(igrp(1,i))) 新 if (size(i) > 1) then call sort (size(i),kgrp(igrp(1,i))) end if
At line 115 of file switch.f Fortran runtime error: Substring out of bounds: upper bound (6) of 'mode' exceeds string length (3)
ruby trans_switch.rb source/*.f
make make rename