Skip to content

Commit adc7897

Browse files
jacobwilliamsjacobwilliams
committed
removed spag comments
1 parent b189468 commit adc7897

File tree

6 files changed

+90
-90
lines changed

6 files changed

+90
-90
lines changed

‎src/minpack.f90‎

Lines changed: 46 additions & 46 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
1-
!*==CHKDER.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
1+
22
subroutine chkder(m,n,x,Fvec,Fjac,Ldfjac,Xp,Fvecp,Mode,Err)
33
implicit none
4-
!*--CHKDER4
4+
55
integer m , n , Ldfjac , Mode
66
double precision x(n) , Fvec(m) , Fjac(Ldfjac,n) , Xp(n) , &
77
& Fvecp(m) , Err(m)
@@ -140,10 +140,10 @@ subroutine chkder(m,n,x,Fvec,Fjac,Ldfjac,Xp,Fvecp,Mode,Err)
140140
! last card of subroutine chkder.
141141
!
142142
end
143-
!*==DOGLEG.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
143+
144144
subroutine dogleg(n,r,Lr,Diag,Qtb,Delta,x,Wa1,Wa2)
145145
implicit none
146-
!*--DOGLEG146
146+
147147
integer n , Lr
148148
double precision Delta
149149
double precision r(Lr) , Diag(n) , Qtb(n) , x(n) , Wa1(n) , Wa2(n)
@@ -321,10 +321,10 @@ subroutine dogleg(n,r,Lr,Diag,Qtb,Delta,x,Wa1,Wa2)
321321
! last card of subroutine dogleg.
322322
!
323323
end
324-
!*==DPMPAR.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
324+
325325
double precision function dpmpar(i)
326326
implicit none
327-
!*--DPMPAR327
327+
328328
integer i
329329
! **********
330330
!
@@ -500,10 +500,10 @@ double precision function dpmpar(i)
500500
! Last card of function dpmpar.
501501
!
502502
end
503-
!*==ENORM.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
503+
504504
double precision function enorm(n,x)
505505
implicit none
506-
!*--ENORM506
506+
507507
integer n
508508
double precision x(n)
509509
! **********
@@ -597,11 +597,11 @@ double precision function enorm(n,x)
597597
! last card of function enorm.
598598
!
599599
end
600-
!*==FDJAC1.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
600+
601601
subroutine fdjac1(fcn,n,x,Fvec,Fjac,Ldfjac,Iflag,Ml,Mu,Epsfcn,Wa1,&
602602
& Wa2)
603603
implicit none
604-
!*--FDJAC1604
604+
605605
integer n , Ldfjac , Iflag , Ml , Mu
606606
double precision Epsfcn
607607
double precision x(n) , Fvec(n) , Fjac(Ldfjac,n) , Wa1(n) , Wa2(n)
@@ -746,11 +746,11 @@ subroutine fdjac1(fcn,n,x,Fvec,Fjac,Ldfjac,Iflag,Ml,Mu,Epsfcn,Wa1,&
746746
! last card of subroutine fdjac1.
747747
!
748748
99999 end
749-
!*==FDJAC2.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
749+
750750

751751
subroutine fdjac2(fcn,m,n,x,Fvec,Fjac,Ldfjac,Iflag,Epsfcn,Wa)
752752
implicit none
753-
!*--FDJAC2753
753+
754754
integer m , n , Ldfjac , Iflag
755755
double precision Epsfcn
756756
double precision x(n) , Fvec(m) , Fjac(Ldfjac,n) , Wa(m)
@@ -855,12 +855,12 @@ subroutine fdjac2(fcn,m,n,x,Fvec,Fjac,Ldfjac,Iflag,Epsfcn,Wa)
855855
! last card of subroutine fdjac2.
856856
!
857857
99999 end
858-
!*==HYBRD.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
858+
859859
subroutine hybrd(fcn,n,x,Fvec,Xtol,Maxfev,Ml,Mu,Epsfcn,Diag,Mode, &
860860
& Factor,Nprint,Info,Nfev,Fjac,Ldfjac,r,Lr,Qtf,Wa1,&
861861
& Wa2,Wa3,Wa4)
862862
implicit none
863-
!*--HYBRD863
863+
864864
integer n , Maxfev , Ml , Mu , Mode , Nprint , Info , Nfev , &
865865
& Ldfjac , Lr
866866
double precision Xtol , Epsfcn , Factor
@@ -1313,10 +1313,10 @@ subroutine hybrd(fcn,n,x,Fvec,Xtol,Maxfev,Ml,Mu,Epsfcn,Diag,Mode, &
13131313
! last card of subroutine hybrd.
13141314
!
13151315
end
1316-
!*==HYBRD1.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
1316+
13171317
subroutine hybrd1(fcn,n,x,Fvec,Tol,Info,Wa,Lwa)
13181318
implicit none
1319-
!*--HYBRD11319
1319+
13201320
integer n , Info , Lwa
13211321
double precision Tol
13221322
double precision x(n) , Fvec(n) , Wa(Lwa)
@@ -1437,12 +1437,12 @@ subroutine hybrd1(fcn,n,x,Fvec,Tol,Info,Wa,Lwa)
14371437
! last card of subroutine hybrd1.
14381438
!
14391439
end
1440-
!*==HYBRJ.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
1440+
14411441
subroutine hybrj(fcn,n,x,Fvec,Fjac,Ldfjac,Xtol,Maxfev,Diag,Mode, &
14421442
& Factor,Nprint,Info,Nfev,Njev,r,Lr,Qtf,Wa1,Wa2, &
14431443
& Wa3,Wa4)
14441444
implicit none
1445-
!*--HYBRJ1448
1445+
14461446
integer n , Ldfjac , Maxfev , Mode , Nprint , Info , Nfev , Njev ,&
14471447
& Lr
14481448
double precision Xtol , Factor
@@ -1877,10 +1877,10 @@ subroutine hybrj(fcn,n,x,Fvec,Fjac,Ldfjac,Xtol,Maxfev,Diag,Mode, &
18771877
! last card of subroutine hybrj.
18781878
!
18791879
end
1880-
!*==HYBRJ1.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
1880+
18811881
subroutine hybrj1(fcn,n,x,Fvec,Fjac,Ldfjac,Tol,Info,Wa,Lwa)
18821882
implicit none
1883-
!*--HYBRJ11886
1883+
18841884
integer n , Ldfjac , Info , Lwa
18851885
double precision Tol
18861886
double precision x(n) , Fvec(n) , Fjac(Ldfjac,n) , Wa(Lwa)
@@ -2006,12 +2006,12 @@ subroutine hybrj1(fcn,n,x,Fvec,Fjac,Ldfjac,Tol,Info,Wa,Lwa)
20062006
! last card of subroutine hybrj1.
20072007
!
20082008
end
2009-
!*==LMDER.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
2009+
20102010
subroutine lmder(fcn,m,n,x,Fvec,Fjac,Ldfjac,Ftol,Xtol,Gtol,Maxfev,&
20112011
& Diag,Mode,Factor,Nprint,Info,Nfev,Njev,Ipvt,Qtf, &
20122012
& Wa1,Wa2,Wa3,Wa4)
20132013
implicit none
2014-
!*--LMDER2020
2014+
20152015
integer m , n , Ldfjac , Maxfev , Mode , Nprint , Info , Nfev , &
20162016
& Njev
20172017
integer Ipvt(n)
@@ -2465,10 +2465,10 @@ subroutine lmder(fcn,m,n,x,Fvec,Fjac,Ldfjac,Ftol,Xtol,Gtol,Maxfev,&
24652465
! last card of subroutine lmder.
24662466
!
24672467
end
2468-
!*==LMDER1.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
2468+
24692469
subroutine lmder1(fcn,m,n,x,Fvec,Fjac,Ldfjac,Tol,Info,Ipvt,Wa,Lwa)
24702470
implicit none
2471-
!*--LMDER12477
2471+
24722472
integer m , n , Ldfjac , Info , Lwa
24732473
integer Ipvt(n)
24742474
double precision Tol
@@ -2622,12 +2622,12 @@ subroutine lmder1(fcn,m,n,x,Fvec,Fjac,Ldfjac,Tol,Info,Ipvt,Wa,Lwa)
26222622
! last card of subroutine lmder1.
26232623
!
26242624
end
2625-
!*==LMDIF.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
2625+
26262626
subroutine lmdif(fcn,m,n,x,Fvec,Ftol,Xtol,Gtol,Maxfev,Epsfcn,Diag,&
26272627
& Mode,Factor,Nprint,Info,Nfev,Fjac,Ldfjac,Ipvt, &
26282628
& Qtf,Wa1,Wa2,Wa3,Wa4)
26292629
implicit none
2630-
!*--LMDIF2639
2630+
26312631
integer m , n , Maxfev , Mode , Nprint , Info , Nfev , Ldfjac
26322632
integer Ipvt(n)
26332633
double precision Ftol , Xtol , Gtol , Epsfcn , Factor
@@ -3083,10 +3083,10 @@ subroutine lmdif(fcn,m,n,x,Fvec,Ftol,Xtol,Gtol,Maxfev,Epsfcn,Diag,&
30833083
! last card of subroutine lmdif.
30843084
!
30853085
end
3086-
!*==LMDIF1.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
3086+
30873087
subroutine lmdif1(fcn,m,n,x,Fvec,Tol,Info,Iwa,Wa,Lwa)
30883088
implicit none
3089-
!*--LMDIF13098
3089+
30903090
integer m , n , Info , Lwa
30913091
integer Iwa(n)
30923092
double precision Tol
@@ -3219,10 +3219,10 @@ subroutine lmdif1(fcn,m,n,x,Fvec,Tol,Info,Iwa,Wa,Lwa)
32193219
! last card of subroutine lmdif1.
32203220
!
32213221
end
3222-
!*==LMPAR.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
3222+
32233223
subroutine lmpar(n,r,Ldr,Ipvt,Diag,Qtb,Delta,Par,x,Sdiag,Wa1,Wa2)
32243224
implicit none
3225-
!*--LMPAR3237
3225+
32263226
integer n , Ldr
32273227
integer Ipvt(n)
32283228
double precision Delta , Par
@@ -3486,12 +3486,12 @@ subroutine lmpar(n,r,Ldr,Ipvt,Diag,Qtb,Delta,Par,x,Sdiag,Wa1,Wa2)
34863486
! last card of subroutine lmpar.
34873487
!
34883488
end
3489-
!*==LMSTR.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
3489+
34903490
subroutine lmstr(fcn,m,n,x,Fvec,Fjac,Ldfjac,Ftol,Xtol,Gtol,Maxfev,&
34913491
& Diag,Mode,Factor,Nprint,Info,Nfev,Njev,Ipvt,Qtf, &
34923492
& Wa1,Wa2,Wa3,Wa4)
34933493
implicit none
3494-
!*--LMSTR3506
3494+
34953495
integer m , n , Ldfjac , Maxfev , Mode , Nprint , Info , Nfev , &
34963496
& Njev
34973497
integer Ipvt(n)
@@ -3953,10 +3953,10 @@ subroutine lmstr(fcn,m,n,x,Fvec,Fjac,Ldfjac,Ftol,Xtol,Gtol,Maxfev,&
39533953
! last card of subroutine lmstr.
39543954
!
39553955
end
3956-
!*==LMSTR1.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
3956+
39573957
subroutine lmstr1(fcn,m,n,x,Fvec,Fjac,Ldfjac,Tol,Info,Ipvt,Wa,Lwa)
39583958
implicit none
3959-
!*--LMSTR13971
3959+
39603960
integer m , n , Ldfjac , Info , Lwa
39613961
integer Ipvt(n)
39623962
double precision Tol
@@ -4110,10 +4110,10 @@ subroutine lmstr1(fcn,m,n,x,Fvec,Fjac,Ldfjac,Tol,Info,Ipvt,Wa,Lwa)
41104110
! last card of subroutine lmstr1.
41114111
!
41124112
end
4113-
!*==QFORM.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
4113+
41144114
subroutine qform(m,n,q,Ldq,Wa)
41154115
implicit none
4116-
!*--QFORM4131
4116+
41174117
integer m , n , Ldq
41184118
double precision q(Ldq,m) , Wa(m)
41194119
! **********
@@ -4207,10 +4207,10 @@ subroutine qform(m,n,q,Ldq,Wa)
42074207
! last card of subroutine qform.
42084208
!
42094209
end
4210-
!*==QRFAC.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
4210+
42114211
subroutine qrfac(m,n,a,Lda,Pivot,Ipvt,Lipvt,Rdiag,Acnorm,Wa)
42124212
implicit none
4213-
!*--QRFAC4228
4213+
42144214
integer m , n , Lda , Lipvt
42154215
integer Ipvt(Lipvt)
42164216
logical Pivot
@@ -4376,10 +4376,10 @@ subroutine qrfac(m,n,a,Lda,Pivot,Ipvt,Lipvt,Rdiag,Acnorm,Wa)
43764376
! last card of subroutine qrfac.
43774377
!
43784378
end
4379-
!*==QRSOLV.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
4379+
43804380
subroutine qrsolv(n,r,Ldr,Ipvt,Diag,Qtb,x,Sdiag,Wa)
43814381
implicit none
4382-
!*--QRSOLV4397
4382+
43834383
integer n , Ldr
43844384
integer Ipvt(n)
43854385
double precision r(Ldr,n) , Diag(n) , Qtb(n) , x(n) , Sdiag(n) , &
@@ -4573,10 +4573,10 @@ subroutine qrsolv(n,r,Ldr,Ipvt,Diag,Qtb,x,Sdiag,Wa)
45734573
! last card of subroutine qrsolv.
45744574
!
45754575
end
4576-
!*==R1MPYQ.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
4576+
45774577
subroutine r1mpyq(m,n,a,Lda,v,w)
45784578
implicit none
4579-
!*--R1MPYQ4594
4579+
45804580
integer m , n , Lda
45814581
double precision a(Lda,n) , v(n) , w(n)
45824582
! **********
@@ -4667,10 +4667,10 @@ subroutine r1mpyq(m,n,a,Lda,v,w)
46674667
! last card of subroutine r1mpyq.
46684668
!
46694669
end
4670-
!*==R1UPDT.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
4670+
46714671
subroutine r1updt(m,n,s,Ls,u,v,w,Sing)
46724672
implicit none
4673-
!*--R1UPDT4688
4673+
46744674
integer m , n , Ls
46754675
logical Sing
46764676
double precision s(Ls) , u(m) , v(n) , w(m)
@@ -4874,10 +4874,10 @@ subroutine r1updt(m,n,s,Ls,u,v,w,Sing)
48744874
! last card of subroutine r1updt.
48754875
!
48764876
end
4877-
!*==RWUPDT.spg processed by SPAG 6.72Dc at 03:59 on 19 Sep 2021
4877+
48784878
subroutine rwupdt(n,r,Ldr,w,b,Alpha,Cos,Sin)
48794879
implicit none
4880-
!*--RWUPDT4895
4880+
48814881
integer n , Ldr
48824882
double precision Alpha
48834883
double precision r(Ldr,n) , w(n) , b(n) , Cos(n) , Sin(n)

‎test/file15.f90‎

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
1-
!*==AA0001.spg processed by SPAG 6.72Dc at 04:38 on 19 Sep 2021
1+
22
program test
33
implicit none
4-
!*--AA00013
4+
55
! **********
66
!
77
! THIS PROGRAM TESTS CODES FOR THE SOLUTION OF N NONLINEAR
@@ -88,10 +88,10 @@ program test
8888
! LAST CARD OF DRIVER.
8989
!
9090
end
91-
!*==FCN.spg processed by SPAG 6.72Dc at 04:38 on 19 Sep 2021
91+
9292
subroutine fcn(n,x,Fvec,Iflag)
9393
implicit none
94-
!*--FCN96
94+
9595
integer n , Iflag
9696
double precision x(n) , Fvec(n)
9797
! **********
@@ -118,10 +118,10 @@ subroutine fcn(n,x,Fvec,Iflag)
118118
! LAST CARD OF INTERFACE SUBROUTINE FCN.
119119
!
120120
end
121-
!*==VECFCN.spg processed by SPAG 6.72Dc at 04:38 on 19 Sep 2021
121+
122122
subroutine vecfcn(n,x,Fvec,Nprob)
123123
implicit none
124-
!*--VECFCN126
124+
125125
integer n , Nprob
126126
double precision x(n) , Fvec(n)
127127
! **********
@@ -380,10 +380,10 @@ subroutine vecfcn(n,x,Fvec,Nprob)
380380
! LAST CARD OF SUBROUTINE VECFCN.
381381
!
382382
end
383-
!*==INITPT.spg processed by SPAG 6.72Dc at 04:38 on 19 Sep 2021
383+
384384
subroutine initpt(n,x,Nprob,Factor)
385385
implicit none
386-
!*--INITPT388
386+
387387
integer n , Nprob
388388
double precision Factor
389389
double precision x(n)

0 commit comments

Comments
 (0)