运算过程中提示操作符不当有待改善01

PotsyYZhou · 发表于 2022-10-25 16:50:56

运算过程中提示操作符不当有待改善01
程序段如下：
!***********************************************************************
Subroutine hbfds(n, w, c, m, kk, k, x, jdim)

!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:27

.lt. 中间不能有空格，即不能写作 . lt .

PotsyYZhou · 发表于 2022-10-26 16:55:36

谢谢

[通用算法] 运算过程中提示操作符不当有待改善01

评分

规矩勋章

新人勋章

元老勋章