/dports/math/cminpack/cminpack-1.3.6/examples/ |
H A D | chkdrv.f | 39 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 D | chkdrv.c | 79 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 D | chkdrv_.c | 79 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 D | ucodrv.f | 31 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 D | lmddrv.f | 32 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 D | lmsdrv.f | 32 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 D | hyjdrv.f | 32 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 D | hybdrv.f | 25 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 D | lmfdrv.f | 31 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 D | lmddrv_.c | 38 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 D | lmsdrv.c | 37 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 D | lmsdrv_.c | 37 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 D | lmddrv.c | 38 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 D | hyjdrv_.c | 38 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 D | lmfdrv_.c | 37 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 D | hyjdrv.c | 38 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 D | lmfdrv.c | 37 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 D | hybdrv.c | 37 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 D | hybdrv_.c | 37 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 D | vec.h | 8 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 D | ssq.h | 8 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 D | example.c | 50 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 D | pnewprob.f | 202 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 D | minpack.f90 | 60 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 D | jacobian.m | 1 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);
|