FUDforum: comp.lang.php » terminate a PHP script

Home » Imported messages » comp.lang.php » terminate a PHP script

Show: Today's Messages :: Polls :: Message Navigator

Re: terminate a PHP script [message #172583 is a reply to message #172577]

Tue, 22 February 2011 01:28

n00m
Messages: 25
Registered: February 2011

Karma:

Junior Member

Does not it (the FORTRAN code below) look charming?
Btw it works perfectly (some time ago I re-wrote it
into VB and into Pascal;.. crowds of mad GOTOS =)
==================================================================

SUBROUTINE JOVOFD(N,C,X,Y,U,V,Z)
INTEGER C(100,100),X(100),Y(100),U(100),V(100)
INTEGER H,Z,L0,V0,VJ,DJ,UP,LOW
INTEGER LAB(100),D(100),FREE(100),COL(100)
C
C THIS SUBROUTINE SOLVES THE FULL DENSITY LINEAR ASSIGNMENT PROBLEM
C ACCORDING TO
C
C "A Shortest Augmenting Path Algorithm for Dense and Sparse
Linear
C Assignment Problems," Computing 38, 325-340, 1987
C
C by
C
C R. Jonker and A. Volgenant, University of Amsterdam.
C
C INPUT PARAMETERS :
C N = NUMBER OF ROWS AND COLUMNS
C C = WEIGHT MATRIX
C
C OUTPUT PARAMETERS
C X = COL ASSIGNED TO ROW
C Y = ROW ASSIGNED TO COL
C U = DUAL ROW VARIABLE
C V = DUAL COLUMN VARIABLE
C Z = VALUE OF OPTIMAL SOLUTION
C
C INITIALIZATION
DO 10 I=1,N
X(I)=0
10 CONTINUE
DO 20 J0=1,N
J=N-J0+1
VJ=C(J,1)
I0=1
DO 15 I=2,N
IF (C(J,I).LT.VJ) THEN
VJ=C(J,I)
I0=I
END IF
15 CONTINUE
V(J)=VJ
COL(J)=J
IF (X(I0).EQ.0) THEN
X(I0)=J
Y(J)=I0
ELSE
X(I0)=-ABS(X(I0))
Y(J)=0
END IF
20 CONTINUE
L=0
DO 40 I=1,N
IF (X(I).EQ.0) THEN
L=L+1
FREE(L)=I
GOTO 40
END IF
IF (X(I).LT.0) THEN
X(I)=-X(I)
ELSE
J1=X(I)
MIN=1.E14
DO 31 J=1,N
IF (J.EQ.J1) GOTO 31
IF (C(J,I)-V(J).LT.MIN) MIN=C(J,I)-V(J)
31 CONTINUE
V(J1)=V(J1)-MIN
END IF
40 CONTINUE
C IMPROVE THE INITIAL SOLUTION
CNT=0
IF (L.EQ.0) GOTO 1000
41 L0=L
K=1
L=0
50 I=FREE(K)
K=K+1
V0=C(1,I)-V(1)
J0=1
VJ=1.E14
DO 42 J=2,N
H=C(J,I)-V(J)
IF (H.LT.VJ) THEN
IF (H.GE.V0) THEN
VJ=H
J1=J
ELSE
VJ=V0
V0=H
J1=J0
J0=J
END IF
END IF
42 CONTINUE
I0=Y(J0)
IF (V0.LT.VJ) THEN
V(J0)=V(J0)-VJ+V0
ELSE
IF (I0.EQ.0) GOTO 43
J0=J1
I0=Y(J1)
END IF
IF (I0.EQ.0) GOTO 43
IF (V0.LT.VJ) THEN
K=K-1
FREE(K)=I0
ELSE
L=L+1
FREE(L)=I0
END IF
43 X(I)=J0
Y(J0)=I
IF (K.LE.L0) GOTO 50
CNT=CNT+1
IF ((L.GT.0).AND.(CNT.LT.2)) GOTO 41
C AUGMENTATION PART
L0=L
DO 90 L=1,L0
I0=FREE(L)
DO 51 J=1,N
D(J)=C(J,I0)-V(J)
LAB(J)=I0
51 CONTINUE
UP=1
LOW=1
60 LAST=LOW-1
MIN=D(COL(UP))
UP=UP+1
DO 52 K=UP,N
J=COL(K)
DJ=D(J)
IF (DJ.LE.MIN) THEN
IF (DJ.LT.MIN) THEN
MIN=DJ
UP=LOW
END IF
COL(K)=COL(UP)
COL(UP)=J
UP=UP+1
END IF
52 CONTINUE
DO 53 H=LOW,UP-1
J=COL(H)
IF (Y(J).EQ.0) GOTO 70
53 CONTINUE
55 J0=COL(LOW)
LOW=LOW+1
I=Y(J0)
H=C(J0,I)-V(J0)-MIN
DO 62 K=UP,N
J=COL(K)
VJ=C(J,I)-V(J)-H
IF (VJ.LT.D(J)) THEN
D(J)=VJ
LAB(J)=I
IF (VJ.EQ.MIN) THEN
IF (Y(J).EQ.0) GOTO 70
COL(K)=COL(UP)
COL(UP)=J
UP=UP+1
END IF
END IF
62 CONTINUE
IF (LOW.EQ.UP) GOTO 60
GOTO 55
70 DO 71 K=1,LAST
J0=COL(K)
V(J0)=V(J0)+D(J0)-MIN
71 CONTINUE
80 I=LAB(J)
Y(J)=I
K=J
J=X(I)
X(I)=K
IF (I0.NE.I) GOTO 80
90 CONTINUE
Z=0
DO 100 I=1,N
U(I)=C(X(I),I)-V(X(I))
Z=Z+C(X(I),I)
100 CONTINUE
1000 END

Report message to a moderator

[Message index]

		terminate a PHP script By: bob on Sat, 19 February 2011 21:56
		Re: terminate a PHP script By: Jerry Stuckle on Sat, 19 February 2011 21:59
		Re: terminate a PHP script By: The Natural Philosoph on Sun, 20 February 2011 00:38
		Re: terminate a PHP script By: Jerry Stuckle on Sun, 20 February 2011 01:04
		Re: terminate a PHP script By: me on Sun, 20 February 2011 02:07
		Re: terminate a PHP script By: Twayne on Thu, 24 February 2011 01:59
		Re: terminate a PHP script By: Jerry Stuckle on Thu, 24 February 2011 04:04
		Re: terminate a PHP script By: The Natural Philosoph on Thu, 24 February 2011 12:51
		Re: terminate a PHP script By: Twayne on Thu, 24 February 2011 17:26
		Re: terminate a PHP script By: The Natural Philosoph on Thu, 24 February 2011 17:51
		Re: terminate a PHP script By: Thomas 'PointedEars' on Sun, 20 February 2011 09:47
		Re: terminate a PHP script By: me on Sun, 20 February 2011 15:05
		Re: terminate a PHP script By: n00m on Mon, 21 February 2011 12:53
		Re: terminate a PHP script By: Jerry Stuckle on Mon, 21 February 2011 13:08
		Re: terminate a PHP script By: n00m on Mon, 21 February 2011 16:51
		Re: terminate a PHP script By: Denis McMahon on Mon, 21 February 2011 17:06
		Re: terminate a PHP script By: sheldonlg on Mon, 21 February 2011 17:23
		Re: terminate a PHP script By: The Natural Philosoph on Tue, 22 February 2011 00:28
		Re: terminate a PHP script By: sheldonlg on Tue, 22 February 2011 00:52
		Re: terminate a PHP script By: Jerry Stuckle on Tue, 22 February 2011 01:00
		Re: terminate a PHP script By: The Natural Philosoph on Tue, 22 February 2011 01:46
		Re: terminate a PHP script By: sheldonlg on Tue, 22 February 2011 02:08
		Re: terminate a PHP script By: The Natural Philosoph on Tue, 22 February 2011 03:55
		Re: terminate a PHP script By: sheldonlg on Tue, 22 February 2011 12:06
		Re: terminate a PHP script By: The Natural Philosoph on Wed, 23 February 2011 08:18
		Re: terminate a PHP script By: Tim Streater on Tue, 22 February 2011 17:18
		Re: terminate a PHP script By: sheldonlg on Tue, 22 February 2011 17:26
		Re: terminate a PHP script By: The Natural Philosoph on Wed, 23 February 2011 08:21
		Re: terminate a PHP script By: Jerry Stuckle on Mon, 21 February 2011 17:37
		Re: terminate a PHP script By: sheldonlg on Mon, 21 February 2011 17:53
		Re: terminate a PHP script By: n00m on Mon, 21 February 2011 18:01
		Re: terminate a PHP script By: Peter H. Coffin on Mon, 21 February 2011 19:07
		Re: terminate a PHP script By: Curtis Dyer on Tue, 22 February 2011 22:59
		Re: terminate a PHP script By: Tim Streater on Mon, 21 February 2011 18:04
		Re: terminate a PHP script By: sheldonlg on Mon, 21 February 2011 18:32
		Re: terminate a PHP script By: Tim Streater on Mon, 21 February 2011 18:50
		Re: terminate a PHP script By: Peter H. Coffin on Mon, 21 February 2011 19:09
		Re: terminate a PHP script By: Tim Streater on Mon, 21 February 2011 19:44
		Re: terminate a PHP script By: The Natural Philosoph on Tue, 22 February 2011 01:16
		Re: terminate a PHP script By: n00m on Tue, 22 February 2011 01:28
		Re: terminate a PHP script By: The Natural Philosoph on Tue, 22 February 2011 01:47
		Re: terminate a PHP script By: sheldonlg on Tue, 22 February 2011 02:10
		Re: terminate a PHP script By: n00m on Tue, 22 February 2011 02:45
		Re: terminate a PHP script By: The Natural Philosoph on Tue, 22 February 2011 01:15
		Re: terminate a PHP script By: sheldonlg on Tue, 22 February 2011 01:53
		Re: terminate a PHP script By: The Natural Philosoph on Tue, 22 February 2011 03:16
		Re: terminate a PHP script By: Tim Streater on Tue, 22 February 2011 17:01
		Re: terminate a PHP script By: sheldonlg on Tue, 22 February 2011 17:05
		Re: terminate a PHP script By: sheldonlg on Tue, 22 February 2011 17:07
		Re: terminate a PHP script By: Tim Streater on Tue, 22 February 2011 16:59
		Re: terminate a PHP script By: The Natural Philosoph on Wed, 23 February 2011 08:19
		Re: terminate a PHP script By: The Natural Philosoph on Tue, 22 February 2011 01:12
		Re: terminate a PHP script By: Tim Streater on Tue, 22 February 2011 17:04
		Re: terminate a PHP script By: n00m on Mon, 21 February 2011 18:54
		Re: terminate a PHP script By: Jerry Stuckle on Mon, 21 February 2011 19:39
		Re: terminate a PHP script By: sheldonlg on Mon, 21 February 2011 21:03
		Re: terminate a PHP script By: sheldonlg on Mon, 21 February 2011 21:06
		Re: terminate a PHP script By: n00m on Mon, 21 February 2011 21:46
		Re: terminate a PHP script By: The Natural Philosoph on Tue, 22 February 2011 01:24
		Re: terminate a PHP script By: sheldonlg on Tue, 22 February 2011 02:04
		Re: terminate a PHP script By: Jerry Stuckle on Tue, 22 February 2011 02:09
		Re: terminate a PHP script By: The Natural Philosoph on Tue, 22 February 2011 03:38
		Re: terminate a PHP script By: sheldonlg on Tue, 22 February 2011 11:54
		Re: terminate a PHP script By: The Natural Philosoph on Wed, 23 February 2011 08:15
		Re: terminate a PHP script By: sheldonlg on Wed, 23 February 2011 13:05
		Re: terminate a PHP script By: The Natural Philosoph on Tue, 22 February 2011 01:23
		Re: terminate a PHP script By: The Natural Philosoph on Tue, 22 February 2011 01:06
		Re: terminate a PHP script By: The Natural Philosoph on Tue, 22 February 2011 00:58

Previous Topic:	Extralight browser-webserver communication via cookies (+)
Next Topic:	Storing multiple character set types (or a representation of em) in a table column

Goto Forum:

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

]

Current Time: Tue Nov 26 23:25:13 GMT 2024

Total time taken to generate the page: 0.04317 seconds