projects / unres.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
update new files
[unres.git] / source / maxlik / src-Fmatch_safe / ib.f
1        do ib=1,10
2          ibb=ib/2
3          if (2*ibb.lt.ib) ibb=ibb+1
4          print *,ib,ibb
5        enddo
6        stop
7        end
UNRESPACK 3.x