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 #172595 is a reply to message #172589]

Tue, 22 February 2011 02:10

sheldonlg
Messages: 166
Registered: September 2010

Karma:

Senior Member

On 2/21/2011 8:47 PM, The Natural Philosopher wrote:
> n00m wrote:
>> 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
>>
>>
> were comments not a feature of FORTRAN?

They sure were, and so was (within size limitations) better naming of
variables.

--
Shelly

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: Fri Jul 05 18:47:51 GMT 2024

Total time taken to generate the page: 0.06151 seconds