{"id":276,"date":"2021-03-15T12:46:51","date_gmt":"2021-03-15T16:46:51","guid":{"rendered":"https:\/\/people.clas.ufl.edu\/hager\/?page_id=276"},"modified":"2026-03-19T08:18:25","modified_gmt":"2026-03-19T12:18:25","slug":"optpack-test-problems","status":"publish","type":"page","link":"https:\/\/people.clas.ufl.edu\/hager\/optpack-test-problems\/","title":{"rendered":"Optpack Test problems"},"content":{"rendered":"\r\n
\r\n\t
\r\n\t\t
\r\n\t\t\t
\r\n\t\t\t\t\n

Optpack Test problems<\/h1>\n\n\n\n

C
\nC COLVILLE 1
\nC
\n REAL*8 Y(5),S,T
\n REAL*8 X(15),LE(50),LI(15),U(100),DF(15),BL(15),BU(15),W(100)
\n REAL*8 VF,CT,ER,ST
\n REAL*8 A(10,15),B(10),C(5,5),D(5),E(5),VALF
\n INTEGER IA(15),K,IO,IT
\n real zzz(2)
\n COMMON A,B,C,D,E,NF,NDF
\n EXTERNAL VALF,GRADF
\n DATA A\/-16.D0,0.D0,-3.5D0,0.D0,0.D0,2.D0,-1.D0,-1.D0,1.D0,1.D0,
\n 1 2.D0,-2.D0,0.D0,-2.D0,-9.D0,0.D0,-1.D0,-2.D0,2.D0,1.D0,
\n 2 0.D0,0.D0,2.D0,0.D0,-2.D0,-4.D0,-1.D0,-3.D0,3.D0,1.D0,
\n 3 1.D0,.4D0,0.D0,-4.D0,1.D0,0.D0,-1.D0,-2.D0,4.D0,1.D0,
\n 4 0.D0,2.D0,0.D0,-1.D0,-2.8D0,0.D0,-1.D0,-1.D0,5.D0,1.D0,
\n 5 -1.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
\n 6 0.D0,-1.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
\n 7 0.D0,0.D0,-1.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
\n 8 0.D0,0.D0,0.D0,-1.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
\n 9 0.D0,0.D0,0.D0,0.D0,-1.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
\n 1 0.D0,0.D0,0.D0,0.D0,0.D0,-1.D0,0.D0,0.D0,0.D0,0.D0,
\n 2 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,-1.D0,0.D0,0.D0,0.D0,
\n 3 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,-1.D0,0.D0,0.D0,
\n 4 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,-1.D0,0.D0,
\n 5 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,-1.D0\/
\n DATA B\/-40.D0,-2.D0,-.25D0,-4.D0,-4.D0,-1.D0,-40.D0,
\n 1 -60.D0,5.D0,1.D0\/
\n DATA C\/30.D0,-20.D0,-10.D0,32.D0,-10.D0,
\n 1 -20.D0,39.D0,-6.D0,-31.D0,32.D0,
\n 2 -10.D0,-6.D0,10.D0,-6.D0,-10.D0,
\n 3 32.D0,-31.D0,-6.D0,39.D0,-20.D0,
\n 4 -10.D0,32.D0,-10.D0,-20.D0,30.D0\/
\n DATA D\/4.D0,8.D0,10.D0,6.D0,2.D0\/
\n DATA E\/-15.D0,-27.D0,-36.D0,-18.D0,-12.D0\/
\n DATA X\/0.D0,0.D0,0.D0,0.D0,1.D0,40.D0,4.D0,.25D0,3.D0,
\n 1 1.2D0,1.D0,39.D0,59.D0,0.D0,0.D0\/
\n DATA BL\/0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
\n 1 0.D0,0.D0,0.D0,0.D0\/
\n DATA BU\/90.D0,90.D0,90.D0,90.D0,90.D0,90.D0,90.D0,90.D0,90.D0,
\n 1 90.D0,90.D0,90.D0,90.D0,90.D0,90.D0\/
\n NF = 0
\n NDF= 0
\n LA = 10
\n N = 15
\n ST = 0.
\n CT = 1.D-4
\n strt = etime(zzz)
\n CALL LMIN(X,LE,LI,U,IA,K,VF,DF,ER,IT,ST,IO,
\n 1 4,1.D-6,500,A,10,10,15,B,BL,BU,CT,VALF,GRADF,W)
\n CALL ERR(IO)
\n time = etime(zzz) – strt
\n write(6,*) ‘total time =’,time
\n WRITE(6,*) ‘BINDERS:’
\n WRITE(6,*) (IA(I), I=1,N)
\n WRITE(6,*) ‘VALUE:’,VF
\n WRITE(6,*) ‘ITERATIONS:’,IT
\n WRITE(6,*) ‘FREE VARIABLES:’,K
\n WRITE(6,*) ‘NUMBER OF FUNCTION EVALUATIONS:’,NF
\n WRITE(6,*) ‘NUMBER OF GRADIENT EVALUATIONS:’,NDF
\n DATA Y\/.3D0,.33346761D0,.4D0,.42831010D0,.22396487D0\/
\n T = 0.
\n S = 0.
\n DO 10 I = 1,5
\n WRITE(6,*) I,Y(I),X(I)
\n T = T + (X(I)-Y(I))**2
\n S = S + Y(I)**2
\n10 CONTINUE
\n S = DSQRT(T\/S)
\n WRITE(6,*) ‘RELATIVE ERROR:’,S
\n STOP
\n END
\n DOUBLE PRECISION FUNCTION VALF(X)
\n REAL*8 X(1),S,T
\n REAL*8 A(10,15),B(10),C(5,5),D(5),E(5)
\n COMMON A,B,C,D,E,NF,NDF
\n NF = NF + 1
\n T = 0.
\n DO 20 J = 1,5
\n S = 0.
\n DO 10 I = 1,5
\n10 S = S + C(I,J)*X(I)
\n20 T = T + E(J)*X(J) + D(J)*X(J)**3 + S*X(J)
\n VALF = T
\n RETURN
\n END
\n SUBROUTINE GRADF(DF,X)
\n REAL*8 DF(1),X(1),T
\n REAL*8 A(10,15),B(10),C(5,5),D(5),E(5)
\n COMMON A,B,C,D,E,NF,NDF
\n NDF = NDF + 1
\n DO 20 J = 1,5
\n T = 0.
\n DO 10 I = 1,5
\n10 T = T + C(I,J)*X(I)
\n20 DF(J) = E(J) + T + T + 3.*D(J)*X(J)*X(J)
\n DO 30 J = 6,15
\n30 DF(J) = 0.
\n RETURN
\n END
\n=======================
\nC
\nC COLVILLE 2
\nC
\n REAL*8 Y(15),SS,TT
\n REAL*8 X(25),LE(10),LI(25),U(300),G(5),DF(25),DG(5,25)
\n REAL*8 AA(10,25),BL(25),BU(25),W(200)
\n REAL*8 A(5,10),B(10),C(5,5),D(5),E(5)
\n REAL*8 CT,F,ER,PN,PNI,ST,TL,T,VALF
\n INTEGER IA(25),IO,IN,K,IT,L,LA,LG,LM,NL,N
\n real zzz(2)
\n COMMON A,B,C,D,E,NF,NG,NDF,NDG
\n EXTERNAL VALF,VALG,GRADF,GRADG
\n DATA A\/-16.D0,2.D0,0.D0,1.D0,0.D0,
\n 1 0.D0,-2.D0,0.D0,.4D0,2.D0,
\n 2 -3.5D0,0.D0,2.D0,0.D0,0.D0,
\n 3 0.D0,-2.D0,0.D0,-4.D0,-1.D0,
\n 4 0.D0,-9.D0,-2.D0,1.D0,-2.8D0,
\n 5 2.D0,0.D0,-4.D0,0.D0,0.D0,
\n 6 -1.D0,-1.D0,-1.D0,-1.D0,-1.D0,
\n 7 -1.D0,-2.D0,-3.D0,-2.D0,-1.D0,
\n 8 1.D0,2.D0,3.D0,4.D0,5.D0,
\n 9 1.D0,1.D0,1.D0,1.D0,1.D0\/
\n DATA B\/-40.D0,-2.D0,-.25D0,-4.D0,-4.D0,-1.D0,-40.D0,
\n 1 -60.D0,5.D0,1.D0\/
\n DATA C\/30.D0,-20.D0,-10.D0,32.D0,-10.D0,
\n 1 -20.D0,39.D0,-6.D0,-31.D0,32.D0,
\n 2 -10.D0,-6.D0,10.D0,-6.D0,-10.D0,
\n 3 32.D0,-31.D0,-6.D0,39.D0,-20.D0,
\n 4 -10.D0,32.D0,-10.D0,-20.D0,30.D0\/
\n DATA D\/4.D0,8.D0,10.D0,6.D0,2.D0\/
\n DATA E\/-15.D0,-27.D0,-36.D0,-18.D0,-12.D0\/
\n NF = 0
\n NG = 0
\n NDF = 0
\n NDG = 0
\n DO 10 I = 1,5
\n DO 10 J = 1,10
\n10 AA(I,J) = A(I,J)
\n DO 40 I = 1,5
\n DO 20 J = 11,15
\n20 AA(I,J) = -2*C(I,J-10)
\n DO 30 J = 16,25
\n30 AA(I,J) = 0.
\n AA(I,15+I) = -3*D(I)
\n AA(I,20+I) = 1
\n40 CONTINUE
\n DO 60 I = 1,5
\n DO 50 J = 1,25
\n50 DG(I,J) = 0.
\n DG(I,I+15) = 1
\n60 CONTINUE
\n DO 70 I = 21,25
\n70 DF(I) = 0.
\n DO 80 I = 1,25
\n BL(I) = 0.
\n80 BU(I) = 200.
\n DO 90 I = 16,20
\n90 BL(I) = -200.
\nC
\nC FEASIBLE STARTING GUESS
\nC
\n IN = 4
\n DO 100 I = 1,15
\n100 X(I) = 1.D-4
\n X(7) = 60.
\n DO 105 I = 1,5
\n105 X(I+15) = X(I+10)**2
\n DO 115 I = 1,5
\n T = E(I)
\n DO 110 J = 1,20
\n110 T = T – AA(I,J)*X(J)
\n X(I+20) = T
\n115 CONTINUE
\nC
\nC INFEASIBLE STARTING GUESS
\nC
\nC IN = 0
\nC DO 100 I = 1,10
\nC100 X(I) = B(I)
\nC DO 110 I = 11,25
\nC110 X(I) = 0.
\nC X(15) = 1
\nC X(20) = 1
\n TL = .0001
\n LM = 250
\nC
\nC ORIGINAL PENALTY WAS 40, THEN TRIED 10, 50, 250
\nC
\n PNI = 10
\n L = 5
\n N = 25
\n LA = 10
\n LG = 5
\n NL = 5
\n ST = 0
\n CT = 1.D-4
\n CALL NORM(AA,LA,L,N,E,W)
\n strt = etime(zzz)
\n CALL MIN(X,LE,LI,U,IA,K,F,G,DF,DG,ER,IT,ST,PN,IO,
\n 1 IN,TL,LM,PNI,AA,LA,LG,L,NL,N,E,BL,BU,CT,VALF,VALG,GRADF,GRADG,W)
\n CALL ERR(IO)
\n time = etime(zzz) – strt
\n write(6,*) ‘total time =’,time
\n WRITE(6,*) ‘VALUE:’,F
\n WRITE(6,*) ‘LE MULTIPLIERS:’
\n J = L + NL
\n DO 120 I = 1,J
\n120 WRITE(6,*) I,LE(I)
\n WRITE(6,*) ‘LI MULTIPLIERS:’
\n DO 130 I = 1,N
\n130 WRITE(6,*) I,LI(I)
\n WRITE(6,*) ‘NUMBER OF F EVALUATIONS:’,NF
\n WRITE(6,*) ‘NUMBER OF G EVALUATIONS:’,NG
\n WRITE(6,*) ‘NUMBER OF DF EVALUATIONS:’,NDF
\n WRITE(6,*) ‘NUMBER OF DG EVALUATIONS:’,NDG
\n DATA Y\/0.D0,0.D0,5.1740399D0,0.D0,3.0611083D0,11.8395453D0,
\n & 0.D0,0.D0,.10389602D0,0.D0,.3D0,.33346761D0,.4D0,
\n & .4283101D0,.22396487D0\/
\n TT = 0.
\n SS = 0.
\n DO 200 I = 1,15
\n TT = TT + (X(I)-Y(I))**2
\n SS = SS + Y(I)**2
\n WRITE(6,*) I,Y(I),X(I)
\n200 CONTINUE
\n SS = DSQRT(TT\/SS)
\n WRITE(6,*) ‘RELATIVE ERROR:’,SS
\n STOP
\n END
\n DOUBLE PRECISION FUNCTION VALF(X)
\n REAL*8 X(1),A(5,10),B(10),C(5,5),D(5),E(5),S,T
\n COMMON A,B,C,D,E,NF,NG,NDF,NDG
\n NF = NF + 1
\n T = 0.
\n DO 10 I = 1,10
\n10 T = T – B(I)*X(I)
\n DO 30 J = 1,5
\n S = 0.
\n DO 20 I = 1,5
\n20 S = S + C(I,J)*X(I+10)
\n30 T = T + S*X(J+10)
\n DO 40 I = 1,5
\n40 T = T + 2.*D(I)*X(I+10)*X(I+15)
\n VALF = T
\n RETURN
\n END
\n SUBROUTINE GRADF(DF,X)
\n REAL*8 DF(1),X(1),A(5,10),B(10),C(5,5),D(5),E(5),T
\n COMMON A,B,C,D,E,NF,NG,NDF,NDG
\n NDF = NDF + 1
\n DO 10 I = 1,10
\n10 DF(I) = -B(I)
\n DO 30 J = 1,5
\n T = 0.
\n DO 20 I = 1,5
\n20 T = T + C(I,J)*X(I+10)
\n30 DF(J+10) = T + T + 2.*D(J)*X(J+15)
\n DO 40 I = 16,20
\n40 DF(I) = 2.*D(I-15)*X(I-5)
\n RETURN
\n END
\n SUBROUTINE VALG(G,X)
\n REAL*8 G(1),X(1)
\n REAL*8 A(5,10),B(10),C(5,5),D(5),E(5)
\n COMMON A,B,C,D,E,NF,NG,NDF,NDG
\n NG = NG + 1
\n DO 10 I = 11,15
\n10 G(I-10) = X(I+5) – X(I)**2
\n RETURN
\n END
\n SUBROUTINE GRADG(DG,X)
\n REAL*8 DG(5,1),X(1)
\n REAL*8 A(5,10),B(10),C(5,5),D(5),E(5)
\n COMMON A,B,C,D,E,NF,NG,NDF,NDG
\n NDG = NDG + 1
\n DO 10 I = 1,5
\n DG(I,I+10) = -2.*X(I+10)
\n10 CONTINUE
\n RETURN
\n END
\n=====================
\nC
\nC COLVILLE 3
\nC
\n REAL*8 Y(5),SS,TT
\n REAL*8 X(8),LE(3),LI(8),G(3),DF(8),DG(3,8),W(200),U(100),A(3,8)
\n REAL*8 B(1),BL(8),BU(8),VALF
\n REAL*8 CT,E,F,ST,TL,PN,PNI
\n real zzz(2)
\n INTEGER IA(8),K
\n COMMON NF,NG,NDF,NDG
\n EXTERNAL VALF,VALG,GRADF,GRADG
\n DATA BL\/78.D0,33.D0,27.D0,27.D0,27.D0,0.D0,90.D0,20.D0\/
\n DATA BU\/102.D0,45.D0,45.D0,45.D0,45.D0,92.D0,110.D0,25.D0\/
\n NF = 0
\n NG = 0
\n NDF = 0
\n NDG = 0
\n N = 8
\n NL = 3
\n LG = 3
\n LA = 3
\n DO 10 J = 1,N
\n DO 10 I = 1,NL
\n10 DG(I,J) = 0.
\n DF(2) = 0.
\n DF(4) = 0.
\n DF(6) = 0.
\n DF(7) = 0.
\n DF(8) = 0.
\nC
\nC FEASIBLE STARTING GUESS
\nC
\n IN = 4
\n X(1) = 78.62D0
\n X(2) = 33.44D0
\n X(3) = 31.07D0
\n X(4) = 44.18D0
\n X(5) = 35.32D0
\n X(6) = 0.D0
\n X(7) = 0.D0
\n X(8) = 0.D0
\n CALL VALG(G,X)
\n X(6) = G(1)
\n X(7) = G(2)
\n X(8) = G(3)
\nC
\nC NONFEASIBLE STARTING GUESS
\nC
\n IN = 0
\n X(1) = 78.D0
\n X(2) = 33.D0
\n X(3) = 27.D0
\n X(4) = 27.D0
\n X(5) = 27.D0
\n X(6) = 0.D0
\n X(7) = 0.D0
\n X(8) = 0.D0
\n CALL VALG(G,X)
\n X(6) = G(1)
\n X(7) = G(2)
\n X(8) = G(3)
\n ST = 0.
\n PNI = 10.D0
\n TL = 1.D-6
\n CT = 1.D-4
\n strt = etime(zzz)
\n CALL MIN(X,LE,LI,U,IA,K,F,G,DF,DG,E,IT,ST,PN,IO,
\n 1 IN,TL,500,PNI,A,LA,LG,0,NL,N,B,BL,BU,CT,VALF,VALG,GRADF,GRADG,W)
\n CALL ERR(IO)
\n time = etime(zzz) – strt
\n write(6,*) ‘total time =’,time
\n WRITE(6,*) ‘ERROR TOLERANCE:’,E
\n WRITE(6,*) ‘NUMBER OF ITERATIONS:’,IT
\n F = F – 40792.141D0
\n WRITE(6,*) ‘VALUE:’,F
\n WRITE(6,*) ‘NUMBER OF F EVALUATIONS:’,NF
\n WRITE(6,*) ‘NUMBER OF G EVALUATIONS:’,NG
\n WRITE(6,*) ‘NUMBER OF DF EVALUATIONS:’,NDF
\n WRITE(6,*) ‘NUMBER OF DG EVALUATIONS:’,NDG
\n DATA Y\/78.D0,33.D0,29.995256025D0,45.D0,36.7758129058D0\/
\n TT = 0.
\n SS = 0.
\n DO 200 I = 1,5
\n TT = TT + (X(I)-Y(I))**2
\n SS = SS + Y(I)**2
\n WRITE(6,*) I,Y(I),X(I)
\n200 CONTINUE
\n SS = DSQRT(TT\/SS)
\n WRITE(6,*) ‘RELATIVE ERROR:’,SS
\n STOP
\n END
\n DOUBLE PRECISION FUNCTION VALF(X)
\n REAL*8 X(1),T
\n COMMON NF,NG,NDF,NDG
\n NF = NF + 1
\n T = 5.3578547D0*X(3)*X(3)+.8356891D0*X(1)*X(5)+37.293239D0*X(1)
\n VALF = T
\n RETURN
\n END
\n SUBROUTINE GRADF(DF,X)
\n REAL*8 DF(1),X(1)
\n COMMON NF,NG,NDF,NDG
\n NDF = NDF + 1
\n DF(1) = 37.293239D0 + .8356891D0*X(5)
\n DF(3) = 10.7157094D0*X(3)
\n DF(5) = .8356891D0*X(1)
\n RETURN
\n END
\n SUBROUTINE VALG(G,X)
\n REAL*8 G(1),X(1),T
\n COMMON NF,NG,NDF,NDG
\n NG = NG + 1
\n T = 85.334407D0+.0056858D0*X(2)*X(5)+.0006262D0*X(1)*X(4)
\n G(1) = T – .0022053D0*X(3)*X(5) – X(6)
\n T = 80.51249D0+.0071317D0*X(2)*X(5)+.0029955D0*X(1)*X(2)
\n G(2) = T + .0021813D0*X(3)*X(3) – X(7)
\n T = (.0047026D0*X(5)+.0012547D0*X(1)+.0019085D0*X(4))*X(3)
\n G(3) = 9.300961D0 + T – X(8)
\n RETURN
\n END
\n SUBROUTINE GRADG(DG,X)
\n REAL*8 DG(3,1),X(1)
\n COMMON NF,NG,NDF,NDG
\n NDG = NDG + 1
\n DG(1,1) = .0006262D0*X(4)
\n DG(1,2) = .0056858D0*X(5)
\n DG(1,3) = -.0022053D0*X(5)
\n DG(1,4) = .0006262D0*X(1)
\n DG(1,5) = .0056858D0*X(2) – .0022053D0*X(3)
\n DG(1,6) = -1.D0
\n DG(2,1) = .0029955D0*X(2)
\n DG(2,2) = .0071317D0*X(5)+.0029955D0*X(1)
\n DG(2,3) = .0043626D0*X(3)
\n DG(2,5) = .0071317D0*X(2)
\n DG(2,7) = -1.D0
\n DG(3,1) = .0012547D0*X(3)
\n DG(3,3) = .0047026D0*X(5)+.0012547D0*X(1)+.0019085D0*X(4)
\n DG(3,4) = .0019085D0*X(3)
\n DG(3,5) = .0047026D0*X(3)
\n DG(3,8) = -1.D0
\n RETURN
\n END
\n=====================
\nC
\nC COLVILLE 4
\nC
\n REAL*8 Y(4),SS,TT
\n REAL*8 X(4),BL(4),BU(4),DF(4),W(200)
\n REAL*8 CT,E,VF,ST,TL,VALF
\n INTEGER IA(4),K,IO,IN,LM,N
\n real zzz(2)
\n COMMON NF,NDF
\n EXTERNAL VALF,GRADF
\n DATA X\/-3.D0,-1.D0,-3.D0,-1.D0\/
\n DATA BL\/-10.D0,-10.D0,-10.D0,-10.D0\/
\n DATA BU\/10.D0,10.D0,10.D0,10.D0\/
\n NF = 0
\n NDF = 0
\n N = 4
\n ST = 0.
\n TL = 1.D-6
\n CT = 1.D-4
\n IN = 0
\n LM = 500
\n strt = etime(zzz)
\n CALL BMIN(X,IA,K,VF,DF,E,IT,ST,IO,
\n & IN,TL,LM,N,BL,BU,CT,VALF,GRADF,W)
\n time = etime(zzz) – strt
\n write(6,*) ‘total time =’,time
\n CALL ERR(IO)
\n WRITE(6,*) ‘ERROR TOLERANCE:’,E
\n WRITE(6,*) ‘NUMBER OF ITERATIONS:’,IT
\n WRITE(6,*) ‘VALUE:’,VF
\n WRITE(6,*) ‘NUMBER OF F EVALUATIONS:’,NF
\n WRITE(6,*) ‘NUMBER OF DF EVALUATIONS:’,NDF
\n DATA Y\/1.D0,1.D0,1.D0,1.D0\/
\n TT = 0.
\n SS = 0.
\n DO 200 I = 1,4
\n TT = TT + (X(I)-Y(I))**2
\n SS = SS + Y(I)**2
\n WRITE(6,*) I,Y(I),X(I)
\n200 CONTINUE
\n SS = DSQRT(TT\/SS)
\n WRITE(6,*) ‘RELATIVE ERROR:’,SS
\n STOP
\n END
\n DOUBLE PRECISION FUNCTION VALF(X)
\n REAL*8 X(1),T
\n COMMON NF,NDF
\n NF = NF + 1
\n T = 100*(X(2)-X(1)**2)**2 + (1-X(1))**2
\n T = T + 90*(X(4)-X(3)**2)**2 + (1-X(3))**2
\n T = T + 10.1D0*((X(2)-1)**2+(X(4)-1)**2)
\n T = T + 19.8D0*(X(2)-1)*(X(4)-1)
\n VALF = T
\n RETURN
\n END
\n SUBROUTINE GRADF(DF,X)
\n REAL*8 DF(1),X(1)
\n REAL*8 A,B
\n COMMON NF,NDF
\n NDF = NDF + 1
\n A = X(2) – X(1)**2
\n B = X(4) – X(3)**2
\n DF(1) = -400*A*X(1) – 2*(1-X(1))
\n DF(2) =20.2D0*(X(2)-1) + 200*A + 19.8D0*(X(4)-1)
\n DF(3) = -360*B*X(3) – 2*(1-X(3))
\n DF(4) = 180*B + 20.2D0*(X(4)-1) + 19.8D0*(X(2)-1)
\n RETURN
\n END
\n=====================
\nC
\nC COLVILLE 6
\nC
\n REAL*8 Y(6),SS,TT
\n REAL*8 X(6),LE(4),LI(6),U(300),G(4),DF(6),DG(4,6)
\n REAL*8 A(4,6),BL(6),BU(6),E(1),W(200)
\n REAL*8 CT,F,ER,PN,PNI,ST,TL,VALF
\n REAL*8 B,BB,C,D,CN,SN
\n real zzz(2)
\n INTEGER IA(6),IO,IN,K,IT,L,LA,LG,LM,NL,N
\n COMMON B,BB,C,D,CN,SN,NF,NG,NDF,NDG
\n EXTERNAL VALF,VALG,GRADF,GRADG
\n DATA BL\/0.D0,0.D0,340.D0,340.D0,-1000.D0,0.D0\/
\n DATA BU\/400.D0,1000.D0,420.D0,420.D0,1000.D0,.5236D0\/
\n DATA X\/390.D0,1000.D0,419.5D0,340.5D0,198.175D0,.5D0\/
\n NF = 0
\n NG = 0
\n NDF = 0
\n NDG = 0
\n B = 1.48477D0
\n C = 300
\n D = 200
\n BB = 1.D0\/131.078D0
\n CN = (.90798D0*BB)*DCOS(B-.00889D0)
\n SN = (.90798D0*BB)*DSIN(B-.00889D0)
\n DF(3) = 0.
\n DF(4) = 0.
\n DF(5) = 0.
\n DF(6) = 0.
\n DG(1,1) = 1.
\n DG(1,2) = 0.
\n DG(1,5) = 0.
\n DG(2,1) = 0.
\n DG(2,2) = 1.
\n DG(2,5) = 0.
\n DG(3,1) = 0.
\n DG(3,2) = 0.
\n DG(3,5) = 0.
\n DG(4,1) = 0.
\n DG(4,2) = 0.
\n DG(4,5) = 1.
\nC
\nC NONFEASIBLE STARTING GUESS
\nC
\n IN = 0
\n TL = .000001
\n LM = 1000
\n PNI = 10
\n L = 0
\n N = 6
\n LA = 4
\n LG = 4
\n NL = 4
\n ST = 0.
\n CT = 1.D-4
\n strt = etime(zzz)
\n CALL MIN(X,LE,LI,U,IA,K,F,G,DF,DG,ER,IT,ST,PN,IO,
\n 1 IN,TL,LM,PNI,A,LA,LG,L,NL,N,E,BL,BU,CT,VALF,VALG,GRADF,GRADG,W)
\n CALL ERR(IO)
\n time = etime(zzz) – strt
\n write(6,*) ‘total time =’,time
\n WRITE(6,*) ‘VALUE:’,F
\n WRITE(6,*) ‘NUMBER OF F EVALUATIONS:’,NF
\n WRITE(6,*) ‘NUMBER OF G EVALUATIONS:’,NG
\n WRITE(6,*) ‘NUMBER OF DF EVALUATIONS:’,NDF
\n WRITE(6,*) ‘NUMBER OF DG EVALUATIONS:’,NDG
\n DATA Y\/107.8119312D0,196.3186138D0,373.8307277D0,420.D0,
\n & 21.307132490D0,.1532919593D0\/
\n TT = 0.
\n SS = 0.
\n DO 200 I = 1,6
\n TT = TT + (X(I)-Y(I))**2
\n SS = SS + Y(I)**2
\n WRITE(6,*) I,Y(I),X(I)
\n200 CONTINUE
\n SS = DSQRT(TT\/SS)
\n WRITE(6,*) ‘RELATIVE ERROR:’,SS
\n STOP
\n END
\n DOUBLE PRECISION FUNCTION VALF(X)
\n REAL*8 X(1),B,BB,C,D,CN,SN,T
\n COMMON B,BB,C,D,CN,SN,NF,NG,NDF,NDG
\n NF = NF + 1
\n T = 0.
\n IF ( X(1) .GT. 300 ) GOTO 10
\n T = T + 30*X(1)
\n GOTO 20
\n10 T = 9000 + 31*(X(1)-300)
\n20 IF ( X(2) .GT. 100 ) GOTO 30
\n T = T + 28*X(2)
\n GOTO 50
\n30 IF ( X(2) .GT. 200 ) GOTO 40
\n T = T + 2800 + 29*(X(2)-100)
\n GOTO 50
\n40 T = T + 5700 + 30*(X(2)-200)
\n50 VALF = T
\n RETURN
\n END
\n SUBROUTINE GRADF(DF,X)
\n REAL*8 DF(1),X(1)
\n REAL*8 B,BB,C,D,CN,SN
\n COMMON B,BB,C,D,CN,SN,NF,NG,NDF,NDG
\n NDF = NDF + 1
\n DF(1) = 30
\n IF ( X(1) .GT. 300 ) DF(1) = 31
\n DF(2) = 28
\n IF ( X(2) .GT. 100 ) DF(2) = 29
\n IF ( X(2) .GT. 200 ) DF(2) = 30
\n RETURN
\n END
\n SUBROUTINE VALG(G,X)
\n REAL*8 G(1),X(1)
\n REAL*8 B,BB,C,D,CN,SN
\n COMMON B,BB,C,D,CN,SN,NF,NG,NDF,NDG
\n NG = NG + 1
\n G(1) = X(1) – C + BB*X(3)*X(4)*DCOS(B-X(6)) – CN*X(3)**2
\n G(2) = X(2) + BB*X(3)*X(4)*DCOS(B+X(6)) – CN*X(4)**2
\n G(3) = D – BB*X(3)*X(4)*DSIN(B-X(6)) + SN*X(3)**2
\n G(4) = X(5) + BB*X(3)*X(4)*DSIN(B+X(6)) – SN*X(4)**2
\n RETURN
\n END
\n SUBROUTINE GRADG(DG,X)
\n REAL*8 DG(4,1),X(1)
\n REAL*8 B,BB,C,D,CN,SN
\n COMMON B,BB,C,D,CN,SN,NF,NG,NDF,NDG
\n NDG = NDG + 1
\n DG(1,3) = BB*X(4)*DCOS(B-X(6)) – 2*CN*X(3)
\n DG(1,4) = BB*X(3)*DCOS(B-X(6))
\n DG(1,6) = BB*X(3)*X(4)*DSIN(B-X(6))
\n DG(2,3) = BB*X(4)*DCOS(B+X(6))
\n DG(2,4) = BB*X(3)*DCOS(B+X(6)) – 2*CN*X(4)
\n DG(2,6) = -BB*X(3)*X(4)*DSIN(B+X(6))
\n DG(3,3) = -BB*X(4)*DSIN(B-X(6)) + 2*SN*X(3)
\n DG(3,4) = -BB*X(3)*DSIN(B-X(6))
\n DG(3,6) = BB*X(3)*X(4)*DCOS(B-X(6))
\n DG(4,3) = BB*X(4)*DSIN(B+X(6))
\n DG(4,4) = BB*X(3)*DSIN(B+X(6)) – 2*SN*X(4)
\n DG(4,6) = BB*X(3)*X(4)*DCOS(B+X(6))
\n RETURN
\n END
\n=====================
\nC
\nC COLVILLE 7
\nC
\n REAL*8 Y(16),SS,TT
\n REAL*8 X(16),LE(8),LI(16),DF(16),W(200),A(8,16),B(8),BL(16),BU(16)
\n REAL*8 U(200),CT,ST,E,VF,VALUE
\n INTEGER IA(16),IR(30),IC(30)
\n real zzz(2)
\n COMMON IR,IC,N,NF,NDF
\n EXTERNAL VALUE,GRAD
\n DATA A\/ 0.22, -1.46, 1.29, -1.10, 0.00, 0.00, 1.12, 0.00,
\n 1 0.20, 0.00, -0.89, -1.06, 0.00, -1.72, 0.00, 0.45,
\n 2 0.19, -1.30, 0.00, 0.95, 0.00, -0.33, 0.00, 0.26,
\n 3 0.25, 1.82, 0.00, -0.54, -1.43, 0.00, 0.31, -1.10,
\n 4 0.15, -1.15, -1.16, 0.00, 1.51, 1.62, 0.00, 0.58,
\n 5 0.11, 0.00, -0.96, -1.78, 0.59, 1.24, 0.00, 0.00,
\n 6 0.12, 0.80, 0.00, -0.41, -0.33, 0.21, 1.12, -1.03,
\n 7 0.13, 0.00, -0.49, 0.00, -0.43, -0.26, 0.00, 0.10,
\n 8 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, -0.36, 0.00,
\n 9 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00,
\n 1 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00, 0.00,
\n 2 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00, 0.00,
\n 3 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00, 0.00,
\n 4 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00, 0.00,
\n 5 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00, 0.00,
\n 6 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 0.00, 1.00\/
\n DATA B\/2.5D0,1.1D0,-3.1D0,-3.5D0,1.3D0,2.1D0,2.3D0,-1.5D0\/
\n DATA BU\/5.D0,5.D0,5.D0,5.D0,5.D0,5.D0,5.D0,5.D0,5.D0,5.D0,
\n 1 5.D0,5.D0,5.D0,5.D0,5.D0,5.D0\/
\n DATA BL\/0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,
\n 1 0.D0,0.D0,0.D0,0.D0,0.D0,0.D0\/
\n DATA X\/.0D0,.0D0,.0D0,.0D0,.0D0,.0D0,.0D0,.0D0,.0D0,
\n 1 .0D0,.0D0,.0D0,.0D0,.0D0,.0D0,.0D0\/
\n DATA IR\/1,1,1,1,2,2,2,3,3,3,3,4,4,4,5,5,5,5,6,6,7,7,8,8,9,9,
\n 1 10,11,12,13\/
\n DATA IC\/4,7,8,16,3,7,10,7,9,10,14,7,11,15,6,10,12,16,8,15,11,13,
\n 1 10,15,12,16,14,13,14,14\/
\n NF = 0
\n NG = 0
\n NDF = 0
\n NDG = 0
\n LA = 8
\n N = 16
\n M = 8
\n ST = 0
\n CT = 1.D-4
\n strt = etime(zzz)
\n CALL LMIN(X,LE,LI,U,IA,K,VF,DF,E,IT,ST,IO,
\n 1 0,1.D-6,500,A,LA,M,N,B,BL,BU,CT,VALUE,GRAD,W)
\n time = etime(zzz) – strt
\n write(6,*) ‘total time =’,time
\n WRITE(6,*) ‘OPTIMAL VALUE:’,VF
\n WRITE(6,*) ‘ERROR:’,E
\n WRITE(6,*) ‘ITERATIONS:’,IT
\n WRITE(6,*) ‘NUMBER OF F EVALUATIONS:’,NF
\n WRITE(6,*) ‘NUMBER OF DF EVALUATIONS:’,NDF
\n DATA Y\/.039847371D0,.7919831688D0,.2028703277D0,.84435796726D0,
\n & 1.2699065D0,.9347386775D0,1.6819619415D0,.1553008715D0,
\n & 1.5678703159D0,0.D0,0.D0,0.D0,.660204085777D0,0.D0,
\n & .67425591386D0,0.D0\/
\n TT = 0.
\n SS = 0.
\n DO 200 I = 1,16
\n TT = TT + (X(I)-Y(I))**2
\n SS = SS + Y(I)**2
\n WRITE(6,*) I,Y(I),X(I)
\n200 CONTINUE
\n SS = DSQRT(TT\/SS)
\n WRITE(6,*) ‘RELATIVE ERROR:’,SS
\n STOP
\n END
\n DOUBLE PRECISION FUNCTION VALUE(X)
\n REAL*8 X(1),S,T
\n INTEGER IR(30),IC(30)
\n COMMON IR,IC,N,NF,NDF
\n NF = NF + 1
\n T = 0.
\n DO 10 I = 1,N
\n10 T = T + (X(I)*X(I)+X(I)+1)**2
\n DO 20 K = 1,30
\n I = IR(K)
\n J = IC(K)
\n S = (X(I)*X(I)+X(I)+1)*(X(J)*X(J)+X(J)+1)
\n T = T + S
\n20 CONTINUE
\n VALUE = T
\n RETURN
\n END
\n SUBROUTINE GRAD(G,X)
\n REAL*8 G(1),X(1),S,T
\n INTEGER IR(30),IC(30)
\n COMMON IR,IC,N,NF,NDF
\n NDF = NDF + 1
\n DO 10 I = 1,N
\n10 G(I) = 2*(X(I)*X(I)+X(I)+1)*(X(I)+X(I)+1)
\n DO 20 K = 1,30
\n I = IR(K)
\n J = IC(K)
\n S = (X(I)+X(I)+1)*(X(J)*X(J)+X(J)+1)
\n T = (X(J)+X(J)+1)*(X(I)*X(I)+X(I)+1)
\n G(I) = G(I) + S
\n G(J) = G(J) + T
\n20 CONTINUE
\n RETURN
\n END
\n=====================
\nC
\nC COLVILLE 8
\nC
\n REAL*8 Y(3),SS,TT
\n REAL*8 X(10),LE(7),LI(10),U(300),G(7),DF(10),DG(7,10)
\n REAL*8 A(7,10),B(1),BL(10),BU(10),W(200)
\n REAL*8 CT,F,ER,PN,PNI,ST,TL,VALF
\n real zzz(2)
\n INTEGER IA(10),IO,IN,K,IT,L,LA,LG,LM,NL,N
\n COMMON NF,NG,NDF,NDG
\n EXTERNAL VALF,VALG,GRADF,GRADG
\n DATA BL\/0.D0,0.D0,0.D0,0.D0,0.D0,85.D0,90.D0,3.D0,.01D0,145.D0\/
\n DATA BU\/2000.,16000.D0,120.D0,5000.D0,2000.D0,93.D0,
\n & 95.D0,12.D0,4.D0,162.D0\/
\n DATA X\/1745D0,12000.D0,110.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0,0.D0\/
\n DF(1) = 5.04D0
\n DF(2) = .035D0
\n DF(3) = 10.
\n DF(5) = 3.36D0
\n DF(6) = 0.
\n DF(8) = 0.
\n DF(9) = 0.
\n DF(10)= 0.
\n DO 20 I = 1,7
\n DO 10 J = 1,10
\n10 DG(I,J) = 0.
\n DG(I,3+I) = 1.
\n20 CONTINUE
\n NF = 0
\n NG = 0
\n NDF = 0
\n NDG = 0
\nC
\nC FEASIBLE STARTING GUESS
\nC
\n CALL VALG(G,X)
\n DO 30 I = 4,10
\n30 X(I) = -G(I-3)
\n NG = NG – 1
\n TL = .000001
\n LM = 250
\n PNI = 10
\n L = 0
\n N = 10
\n IN = 4
\n LA = 7
\n LG = 7
\n NL = 7
\n ST = 0
\n CT = 0.D-4
\n strt = etime(zzz)
\n CALL MIN(X,LE,LI,U,IA,K,F,G,DF,DG,ER,IT,ST,PN,IO,
\n 1 IN,TL,LM,PNI,A,LA,LG,L,NL,N,B,BL,BU,CT,VALF,VALG,GRADF,GRADG,W)
\n CALL ERR(IO)
\n time = etime(zzz) – strt
\n write(6,*) ‘total time =’,time
\n WRITE(6,*) ‘VALUE:’,F
\n WRITE(6,*) ‘NUMBER OF F EVALUATIONS:’,NF
\n WRITE(6,*) ‘NUMBER OF G EVALUATIONS:’,NG
\n WRITE(6,*) ‘NUMBER OF DF EVALUATIONS:’,NDF
\n WRITE(6,*) ‘NUMBER OF DG EVALUATIONS:’,NDG
\n DATA Y\/1728.371286d0,16000d0,98.14151402d0\/
\n TT = 0.
\n SS = 0.
\n DO 200 I = 1,3
\n TT = TT + (X(I)-Y(I))**2
\n SS = SS + Y(I)**2
\n WRITE(6,*) I,Y(I),X(I)
\n200 CONTINUE
\n SS = DSQRT(TT\/SS)
\n WRITE(6,*) ‘RELATIVE ERROR:’,SS
\n STOP
\n END
\n DOUBLE PRECISION FUNCTION VALF(X)
\n REAL*8 X(1),T
\n COMMON NF,NG,NDF,NDG
\n NF = NF + 1
\n T = 10.*X(3) + .035D0*X(2) + 3.36D0*X(5) + 5.04D0*X(1)
\n T = T – .063D0*X(4)*X(7)
\n VALF = T
\n RETURN
\n END
\n SUBROUTINE GRADF(DF,X)
\n REAL*8 DF(1),X(1)
\n COMMON NF,NG,NDF,NDG
\n NDF = NDF + 1
\n DF(4) = -.063D0*X(7)
\n DF(7) = -.063D0*X(4)
\n END
\n SUBROUTINE VALG(G,X)
\n REAL*8 G(1),X(1)
\n REAL*8 Y2,Y3,Y4,Y5,Y6,Y7,Y8,C2,C4
\n COMMON NF,NG,NDF,NDG
\n J1 = 0
\n J2 = 0
\n NG = NG + 1
\n Y2 = 1.6D0*X(1)
\n10 Y3 = 1.22D0*Y2 – X(1)
\n Y6 = (X(2)+Y3)\/X(1)
\n C2 = X(1)*(1.12D0 + .13167D0*Y6-.6667D-2*Y6*Y6)
\n IF ( DABS(C2-Y2) .LE. .001D0 ) GOTO 20
\n Y2 = C2
\n J1 = J1 + 1
\n GOTO 10
\n20 Y4 = 93.
\n30 Y5 = 86.35D0 + 1.098D0*Y6 – .038D0*Y6*Y6 + .325D0*(Y4-89.)
\n Y8 = -133. + 3.*Y5
\n Y7 = 35.82D0 – .222D0*Y8
\n C4 = 98000.*X(3)\/(Y2*Y7 + X(3)*1000)
\n IF ( DABS(C4-Y4) .LE. .0001D0 ) GOTO 40
\n Y4 = C4
\n J2 = J2 + 1
\n GOTO 30
\n40 G(1) = X(4) – Y2
\n G(2) = X(5) – Y3
\n G(3) = X(6) – Y4
\n G(4) = X(7) – Y5
\n G(5) = X(8) – Y6
\n G(6) = X(9) – Y7
\n G(7) = X(10) – Y8
\nc WRITE(6,*) ‘J1,J2’,J1,J2
\n RETURN
\n END
\n SUBROUTINE GRADG(DG,X)
\n REAL*8 DG(7,1),X(1)
\n REAL*8 Y2,Y3,Y4,Y5,Y6,Y7,Y8,C2,C4
\n REAL*8 Y21,Y31,Y41,Y51,Y61,Y71,Y81
\n REAL*8 Y22,Y32,Y42,Y52,Y62,Y72,Y82
\n REAL*8 Y23,Y33,Y43,Y53,Y63,Y73,Y83
\n COMMON NF,NG,NDF,NDG
\n NDG = NDG + 1
\n Y2 = 1.6D0*X(1)
\n Y21 = 1.6D0
\n Y22 = 0.
\n Y23 = 0.
\n10 Y3 = 1.22D0*Y2 – X(1)
\n Y31 = 1.22D0*Y21 – 1
\n Y32 = 1.22D0*Y22
\n Y33 = 1.22D0*Y23
\n Y6 = (X(2)+Y3)\/X(1)
\n Y61 = -(X(2)+Y3)\/X(1)**2 + Y31\/X(1)
\n Y62 = (1.+Y32)\/X(1)
\n Y63 = Y33\/X(1)
\n C2 = X(1)*(1.12D0 + .13167D0*Y6-.6667D-2*Y6*Y6)
\n IF ( DABS(C2-Y2) .LE. .001D0 ) GOTO 20
\n Y2 = C2
\n Y21 = X(1)*(.13167D0*Y61 – 2*.6667D-2*Y6*Y61)
\n Y21 = Y21 + 1.12D0 + .13167D0*Y6 – .6667D-2*Y6*Y6
\n Y22 = X(1)*(.13167D0*Y62 – 2.*.6667D-2*Y6*Y62)
\n Y23 = X(1)*(.13167D0*Y63 – 2.*.6667D-2*Y6*Y63)
\n GOTO 10
\n20 Y4 = 93.
\n Y41 = 0.
\n Y42 = 0.
\n Y43 = 0.
\n30 Y5 = 86.35D0 + 1.098D0*Y6 – .038D0*Y6*Y6 + .325D0*(Y4-89.)
\n Y51 = (1.098D0 – 2.*.038D0*Y6)*Y61 + .325D0*Y41
\n Y52 = (1.098D0 – 2.*.038D0*Y6)*Y62 + .325D0*Y42
\n Y53 = (1.098D0 – 2.*.038D0*Y6)*Y63 + .325D0*Y43
\n Y8 = -133. + 3.*Y5
\n Y81 = 3.*Y51
\n Y82 = 3.*Y52
\n Y83 = 3.*Y53
\n Y7 = 35.82D0 – .222D0*Y8
\n Y71 = -.222D0*Y81
\n Y72 = -.222D0*Y82
\n Y73 = -.222D0*Y83
\n C4 = 98000.*X(3)\/(Y2*Y7 + X(3)*1000)
\n IF ( DABS(C4-Y4) .LE. .0001D0 ) GOTO 40
\n Y4 = C4
\n Y41 = -98000.*X(3)*(Y21*Y7 + Y2*Y71)\/(Y2*Y7+X(3)*1000.)**2
\n Y42 = -98000.*X(3)*(Y22*Y7 + Y2*Y72)\/(Y2*Y7+X(3)*1000.)**2
\n Y43 = -98000.*X(3)*(Y23*Y7 + Y2*Y73 + 1000.)
\n Y43 = (Y43\/(Y2*Y7+X(3)*1000.) + 98000.)\/(Y2*Y7+X(3)*1000.)
\n GOTO 30
\n40 DG(1,1) = -Y21
\n DG(1,2) = -Y22
\n DG(1,3) = -Y23
\n DG(2,1) = -Y31
\n DG(2,2) = -Y32
\n DG(2,3) = -Y33
\n DG(3,1) = -Y41
\n DG(3,2) = -Y42
\n DG(3,3) = -Y43
\n DG(4,1) = -Y51
\n DG(4,2) = -Y52
\n DG(4,3) = -Y53
\n DG(5,1) = -Y61
\n DG(5,2) = -Y62
\n DG(5,3) = -Y63
\n DG(6,1) = -Y71
\n DG(6,2) = -Y72
\n DG(6,3) = -Y73
\n DG(7,1) = -Y81
\n DG(7,2) = -Y82
\n DG(7,3) = -Y83
\n RETURN
\n END<\/p>\n\n\n\r\n\t\t\t<\/div>\r\n\t\t<\/div>\r\n\t<\/div>\r\n<\/section>\r\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":1075,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"_acf_changed":false,"featured_post":"","footnotes":"","_links_to":"","_links_to_target":""},"class_list":["post-276","page","type-page","status-publish","hentry"],"acf":[],"_links":{"self":[{"href":"https:\/\/people.clas.ufl.edu\/hager\/wp-json\/wp\/v2\/pages\/276","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/people.clas.ufl.edu\/hager\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/people.clas.ufl.edu\/hager\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/people.clas.ufl.edu\/hager\/wp-json\/wp\/v2\/users\/1075"}],"replies":[{"embeddable":true,"href":"https:\/\/people.clas.ufl.edu\/hager\/wp-json\/wp\/v2\/comments?post=276"}],"version-history":[{"count":2,"href":"https:\/\/people.clas.ufl.edu\/hager\/wp-json\/wp\/v2\/pages\/276\/revisions"}],"predecessor-version":[{"id":801,"href":"https:\/\/people.clas.ufl.edu\/hager\/wp-json\/wp\/v2\/pages\/276\/revisions\/801"}],"wp:attachment":[{"href":"https:\/\/people.clas.ufl.edu\/hager\/wp-json\/wp\/v2\/media?parent=276"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}