Home
last modified time | relevance | path

Searched refs:nprob (Results 1 – 25 of 161) sorted by relevance

1234567

/dports/math/cminpack/cminpack-1.3.6/examples/
H A Dchkdrv.f39 read (nread,60) nprob,n
40 if (nprob .le. 0) go to 40
41 call initpt(n,x1,nprob,one)
46 write (nwrite,70) nprob,n,a(nprob)
54 errmin(nprob) = err(1)
55 errmax(nprob) = err(1)
58 if (errmin(nprob) .gt. err(i)) errmin(nprob) = err(i)
59 if (errmax(nprob) .lt. err(i)) errmax(nprob) = err(i)
61 np(nprob) = nprob
62 lnp = nprob
[all …]
H A Dchkdrv.c79 int nprob; in main() local
84 scanf("%5d%5d\n", &nprob, &n); in main()
85 if (nprob <= 0) { in main()
89 hybipt(n,x1,nprob,1.); in main()
98 vecfcn(n,x1,fvec1,nprob); in main()
100 vecfcn(n,x2,fvec2,nprob); in main()
103 errmin[nprob-1] = err[0]; in main()
104 errmax[nprob-1] = err[0]; in main()
113 np[nprob-1] = nprob; in main()
114 lnp = nprob; in main()
[all …]
H A Dchkdrv_.c79 int nprob; in main() local
85 scanf("%5d%5d\n", &nprob, &n); in main()
86 if (nprob <= 0) { in main()
90 hybipt(n,x1,nprob,1.); in main()
99 vecfcn(n,x1,fvec1,nprob); in main()
101 vecfcn(n,x2,fvec2,nprob); in main()
104 errmin[nprob-1] = err[0]; in main()
105 errmax[nprob-1] = err[0]; in main()
114 np[nprob-1] = nprob; in main()
115 lnp = nprob; in main()
[all …]
H A Ducodrv.f31 common /refnum/ nprob,nfev
43 read (nread,50) nprob,n,ntries
44 if (nprob .le. 0) go to 30
49 call objfcn(n,x,f1,nprob)
52 write (nwrite,60) nprob,n
55 call objfcn(n,x,f2,nprob)
58 np(ic) = nprob
113 integer nprob,nfev
114 common /refnum/ nprob,nfev
115 call objfcn(n,x,f,nprob)
[all …]
H A Dlmddrv.f32 common /refnum/ nprob,nfev,njev
45 read (nread,50) nprob,n,m,ntries
46 if (nprob .le. 0) go to 30
50 call initpt(n,x,nprob,factor)
51 call ssqfcn(m,n,x,fvec,nprob)
53 write (nwrite,60) nprob,n,m
58 call ssqfcn(m,n,x,fvec,nprob)
60 np(ic) = nprob
114 integer nprob,nfev,njev
115 common /refnum/ nprob,nfev,njev
[all …]
H A Dlmsdrv.f32 common /refnum/ nprob,nfev,njev
45 read (nread,50) nprob,n,m,ntries
46 if (nprob .le. 0) go to 30
50 call initpt(n,x,nprob,factor)
51 call ssqfcn(m,n,x,fvec,nprob)
53 write (nwrite,60) nprob,n,m
58 call ssqfcn(m,n,x,fvec,nprob)
60 np(ic) = nprob
119 integer nprob,nfev,njev,j
121 common /refnum/ nprob,nfev,njev
[all …]
H A Dhyjdrv.f32 common /refnum/ nprob,nfev,njev
45 read (nread,50) nprob,n,ntries
46 if (nprob .le. 0) go to 30
50 call initpt(n,x,nprob,factor)
51 call vecfcn(n,x,fvec,nprob)
53 write (nwrite,60) nprob,n
58 np(ic) = nprob
110 integer nprob,nfev,njev
111 common /refnum/ nprob,nfev,njev
112 if (iflag .eq. 1) call vecfcn(n,x,fvec,nprob)
[all …]
H A Dhybdrv.f25 integer i,ic,info,k,lwa,n,nfev,nprob,nread,ntries,nwrite
31 common /refnum/ nprob,nfev
43 read (nread,50) nprob,n,ntries
44 if (nprob .le. 0) go to 30
48 call initpt(n,x,nprob,factor)
49 call vecfcn(n,x,fvec,nprob)
51 write (nwrite,60) nprob,n
55 np(ic) = nprob
104 integer nprob,nfev
105 common /refnum/ nprob,nfev
[all …]
H A Dlmfdrv.f31 common /refnum/ nprob,nfev,njev
43 read (nread,50) nprob,n,m,ntries
44 if (nprob .le. 0) go to 30
48 call initpt(n,x,nprob,factor)
49 call ssqfcn(m,n,x,fvec,nprob)
51 write (nwrite,60) nprob,n,m
55 call ssqfcn(m,n,x,fvec,nprob)
57 np(ic) = nprob
112 integer nprob,nfev,njev
113 common /refnum/ nprob,nfev,njev
[all …]
H A Dlmddrv_.c38 int nprob, nfev, njev; member
111 scanf("%5d%5d%5d%5d\n", &lmdertest.nprob, &n, &m, &ntries); in main()
116 if (lmdertest.nprob <= 0.) in main()
121 lmdipt(n,x,lmdertest.nprob,factor); in main()
123 ssqfcn(m,n,x,fvec,lmdertest.nprob); in main()
127 printf("\n\n\n\n problem%5d dimensions%5d%5d\n\n", lmdertest.nprob, n, m); in main()
139 ssqfcn(m,n,x,fvec,lmdertest.nprob); in main()
143 np[ic] = lmdertest.nprob; in main()
221 ssqfcn(*m,*n,x,fvec,lmdertest.nprob); in fcn()
225 ssqjac(*m,*n,x,fjac,*ldfjac,lmdertest.nprob); in fcn()
H A Dlmsdrv.c37 int nprob, nfev, njev; member
109 scanf("%5d%5d%5d%5d\n", &lmstrtest.nprob, &n, &m, &ntries); in main()
114 if (lmstrtest.nprob <= 0.) in main()
119 lmdipt(n,x,lmstrtest.nprob,factor); in main()
121 ssqfcn(m,n,x,fvec,lmstrtest.nprob); in main()
125 printf("\n\n\n\n problem%5d dimensions%5d%5d\n\n", lmstrtest.nprob, n, m); in main()
137 ssqfcn(m,n,x,fvec,lmstrtest.nprob); in main()
141 np[ic] = lmstrtest.nprob; in main()
227 ssqfcn(m,n,x,fvec,lmstrtest->nprob); in fcn()
232 ssqjac(m,n,x,temp,65,lmstrtest->nprob); in fcn()
H A Dlmsdrv_.c37 int nprob, nfev, njev; member
111 scanf("%5d%5d%5d%5d\n", &lmstrtest.nprob, &n, &m, &ntries); in main()
116 if (lmstrtest.nprob <= 0.) in main()
121 lmdipt(n,x,lmstrtest.nprob,factor); in main()
123 ssqfcn(m,n,x,fvec,lmstrtest.nprob); in main()
127 printf("\n\n\n\n problem%5d dimensions%5d%5d\n\n", lmstrtest.nprob, n, m); in main()
139 ssqfcn(m,n,x,fvec,lmstrtest.nprob); in main()
143 np[ic] = lmstrtest.nprob; in main()
229 ssqfcn(*m,*n,x,fvec,lmstrtest.nprob); in fcn()
234 ssqjac(*m,*n,x,temp,65,lmstrtest.nprob); in fcn()
H A Dlmddrv.c38 int nprob, nfev, njev; member
109 scanf("%5d%5d%5d%5d\n", &lmdertest.nprob, &n, &m, &ntries); in main()
114 if (lmdertest.nprob <= 0.) in main()
119 lmdipt(n,x,lmdertest.nprob,factor); in main()
121 ssqfcn(m,n,x,fvec,lmdertest.nprob); in main()
125 printf("\n\n\n\n problem%5d dimensions%5d%5d\n\n", lmdertest.nprob, n, m); in main()
137 ssqfcn(m,n,x,fvec,lmdertest.nprob); in main()
141 np[ic] = lmdertest.nprob; in main()
220 ssqfcn(m,n,x,fvec,lmdertest->nprob); in fcn()
224 ssqjac(m,n,x,fjac,ldfjac,lmdertest->nprob); in fcn()
H A Dhyjdrv_.c38 int nprob, nfev, njev; member
109 scanf("%5d%5d%5d\n", &hybrjtest.nprob, &n, &ntries); in main()
110 if (hybrjtest.nprob <= 0.) in main()
116 hybipt(n,x,hybrjtest.nprob,factor); in main()
118 vecfcn(n,x,fvec,hybrjtest.nprob); in main()
122 printf("\n\n\n\n problem%5d dimension%5d\n\n", hybrjtest.nprob, n); in main()
131 np[ic] = hybrjtest.nprob; in main()
185 vecfcn(*n, x, fvec, hybrjtest.nprob); in fcn()
189 vecjac(*n, x, fjac, *ldfjac, hybrjtest.nprob); in fcn()
H A Dlmfdrv_.c37 int nprob, nfev, njev; member
107 scanf("%5d%5d%5d%5d\n", &lmdiftest.nprob, &n, &m, &ntries); in main()
112 if (lmdiftest.nprob <= 0.) in main()
117 lmdipt(n,x,lmdiftest.nprob,factor); in main()
119 ssqfcn(m,n,x,fvec,lmdiftest.nprob); in main()
123 printf("\n\n\n\n problem%5d dimensions%5d%5d\n\n", lmdiftest.nprob, n, m); in main()
135 ssqfcn(m,n,x,fvec,lmdiftest.nprob); in main()
139 np[ic] = lmdiftest.nprob; in main()
216 ssqfcn(*m,*n,x,fvec,lmdiftest.nprob); in fcn()
H A Dhyjdrv.c38 int nprob, nfev, njev; member
107 scanf("%5d%5d%5d\n", &hybrjtest.nprob, &n, &ntries); in main()
108 if (hybrjtest.nprob <= 0.) in main()
114 hybipt(n,x,hybrjtest.nprob,factor); in main()
116 vecfcn(n,x,fvec,hybrjtest.nprob); in main()
120 printf("\n\n\n\n problem%5d dimension%5d\n\n", hybrjtest.nprob, n); in main()
129 np[ic] = hybrjtest.nprob; in main()
184 vecfcn(n, x, fvec, hybrjtest->nprob); in fcn()
188 vecjac(n, x, fjac, ldfjac, hybrjtest->nprob); in fcn()
H A Dlmfdrv.c37 int nprob, nfev, njev; member
105 scanf("%5d%5d%5d%5d\n", &lmdiftest.nprob, &n, &m, &ntries); in main()
110 if (lmdiftest.nprob <= 0.) in main()
115 lmdipt(n,x,lmdiftest.nprob,factor); in main()
117 ssqfcn(m,n,x,fvec,lmdiftest.nprob); in main()
121 printf("\n\n\n\n problem%5d dimensions%5d%5d\n\n", lmdiftest.nprob, n, m); in main()
133 ssqfcn(m,n,x,fvec,lmdiftest.nprob); in main()
137 np[ic] = lmdiftest.nprob; in main()
215 ssqfcn(m,n,x,fvec,lmdiftest->nprob); in fcn()
H A Dhybdrv.c37 int nprob, nfev, njev; member
103 scanf("%5d%5d%5d\n", &hybrdtest.nprob, &n, &ntries); in main()
104 if (hybrdtest.nprob <= 0.) in main()
110 hybipt(n,x,hybrdtest.nprob,factor); in main()
112 vecfcn(n,x,fvec,hybrdtest.nprob); in main()
116 printf("\n\n\n\n problem%5d dimension%5d\n\n", hybrdtest.nprob, n); in main()
125 np[ic] = hybrdtest.nprob; in main()
178 vecfcn(n, x, fvec, hybrdtest->nprob); in fcn()
H A Dhybdrv_.c37 int nprob, nfev, njev; member
105 scanf("%5d%5d%5d\n", &hybrdtest.nprob, &n, &ntries); in main()
106 if (hybrdtest.nprob <= 0.) in main()
112 hybipt(n,x,hybrdtest.nprob,factor); in main()
114 vecfcn(n,x,fvec,hybrdtest.nprob); in main()
118 printf("\n\n\n\n problem%5d dimension%5d\n\n", hybrdtest.nprob, n); in main()
127 np[ic] = hybrdtest.nprob; in main()
179 vecfcn(*n, x, fvec, hybrdtest.nprob); in fcn()
H A Dvec.h8 void hybipt(int n, __cminpack_real__ *x, int nprob, __cminpack_real__ factor);
10 void vecfcn(int n, const __cminpack_real__ *x, __cminpack_real__ *fvec, int nprob);
12 void vecjac(int n, const __cminpack_real__ *x, __cminpack_real__ *fjac, int ldfjac, int nprob);
14 void errjac(int n, const __cminpack_real__ *x, __cminpack_real__ *fjac, int ldfjac, int nprob);
H A Dssq.h8 void lmdipt(int n, __cminpack_real__ *x, int nprob, __cminpack_real__ factor);
10 void ssqfcn(int m, int n, const __cminpack_real__ *x, __cminpack_real__ *fvec, int nprob);
12 …d ssqjac(int m, int n, const __cminpack_real__ *x, __cminpack_real__ *fjac, int ldfjac, int nprob);
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/acro/tpl/3po/cobyla2c/
H A Dexample.c50 int nprob; member
70 for (state.nprob = 1; state.nprob <= 10; ++state.nprob) { in main()
71 if (state.nprob == 1) { in main()
80 } else if (state.nprob == 2) { in main()
89 } else if (state.nprob == 3) { in main()
99 } else if (state.nprob == 4) { in main()
108 } else if (state.nprob == 5) { in main()
117 } else if (state.nprob == 6) { in main()
127 } else if (state.nprob == 7) { in main()
194 if (state.nprob == 10) { in main()
[all …]
/dports/cad/feappv/feappv-4.1i/program/
H A Dpnewprob.f202 if(nprob.eq.0) then
236 nprob = nprob + 1
240 nprob = max(1,nprob)
246 if(nprob.lt.10) then
247 write(fplt(i+2:i+2),'(i1)') nprob
248 elseif(nprob.lt.100) then
249 write(fplt(i+1:i+2),'(i2)') nprob
250 elseif(nprob.lt.1001) then
251 write(fplt( i:i+2),'(i3)') nprob
275 if(nprob.gt.1) write(iow,2019)
[all …]
/dports/math/cminpack/cminpack-1.3.6/fortran/
H A Dminpack.f9060 integer :: n,ldfjac,nprob local
92 subroutine grdfcn(n,x,g,nprob)
94 integer :: n,nprob local
100 integer :: n,ldh,nprob local
106 integer :: n,nprob local
281 subroutine objfcn(n,x,f,nprob)
283 integer :: n,nprob local
331 integer :: m,n,nprob local
337 integer :: m,n,ldfjac,nprob local
343 integer :: n,nprob local
[all …]
/dports/science/PETSc/petsc-3.14.1/src/tao/leastsquares/tutorials/matlab/more_wild_probs/
H A Djacobian.m1 function J = jacobian(m,n,x,nprob)
15 % J = jacobian(m,n,x,nprob)
23 % nprob is a positive integer input variable which defines the
24 % number of the problem. nprob must not exceed 22.
33 [g_fvec, fvec] = g_dfovec_1d(g_t, t, ind, m, n, g_x, x, nprob);

1234567