!c*********************************************************************72
!c
!cc HBFDS performs a best-fit decreasing heuristic.
!c
!c for local use with current solution given.
!c time complexity o(n**2) .
!c
Integer w(jdim), c, k(jdim), x(jdim), kk(jdim)
Do j = 1, m
k(j) = kk(j)
End Do
Do i = 1, n
!c
!c insert the next item.
!c
iwi = w(i)
minres = c
Do j = 1, m
kres = k(j) - iwi
If (kres<0) Goto 20
If (kres>=minres) Goto 20
minres = kres
jm = j
20 End Do
3366| If (minres . lt . c) Goto 30
!c
!c initialize a new bin.
!c
m = m + 1
k(m) = c - iwi
x(i) = m
Goto 40
!c
!c insert the item into an old bin.
!c
30 k(jm) = k(jm) - iwi
x(i) = jm
40 End Do
Return
End Subroutine hbfds
!***********************************************************************
3366 | If (minres . lt . c) Goto 30 | 1Error: The name ‘lt’ cannot be used as a defined operator at (1) main.f90:3468:35:
求助？？！ 谢谢！ 作者: 青衣巷 时间: 2022-10-25 17:18
.lt. 中间不能有空格，即不能写作 . lt .作者: PotsyYZhou 时间: 2022-10-26 16:55
谢谢
