lwrk1 (reference) in projects: dports - OpenGrok search results

Project(s)

Full Search
Definition
Symbol
File Path
History
Type

Searched refs:lwrk1 (Results 1 – 25 of 35) sorted by relevance

/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A D	ccsdr12ao.F	`112 lwrk1 = lwork 132 lwrk1 = lwork - kend1 143 lwrk1 = lwork - kend1 160 lwrk1 = lwork - kend1 161 if (lwrk1 .lt.0) 168 lwrk1 = lfree 181 lwrksv = lwrk1 205 lwrk1 = lwrksv 220 lwrk1 = lwork - kend1 221 if (lwrk1 .lt.0) [all …]`
H A D	cclhtr_r12.F	`61 lwrk1 = lwork - kend1 63 if (lwrk1 .lt.0) then 86 & lwrk1) 93 & work(kend1),lwrk1) 126 integer klamdpb,kend1,lwrk1,lwork 144 lwrk1 = lwork - kend1 145 if (lwrk1 .lt. 0) then 267 lwrk1 = lwork - kend1 268 if (lwrk1.lt.0) then 370 lwrk1 = lwork - kend1 [all …]`
H A D	ccsdt_t32_noddy.F	`230 lwrk1 = lwork - kend1 231 if (lwrk1 .lt. 0) then 238 if (lwrk1.lt.nt2amx) then 264 & work(kend1),lwrk1) 274 & work(kend1),lwrk1,isyma,1,1) 280 & work(kend1),lwrk1) 290 & work(kend1),lwrk1,isymb,1,1) 313 & work(kend1),lwrk1) 372 & work(kend1),lwrk1) 444 & (lwrk1.lt.nt1amxnt1amxnt1amx)) then [all …]`
H A D	ccsdr12cd.F	`57 & kend1, lwrk1, kemat1, kfckvao, kfckvaop, kfgdp, kend2, 91 lwrk1 = lwork 111 lwrk1 = lwork - kend1 112 if (lwrk1 .lt. 0) call quit('Insufficient memory in CCSDR12CD 1') 238 lwrk1 = lwork - kend1 255 & work(kend1), lwrk1 ) 278 & work(kcdint), isymim, work(kend1), lwrk1 ) 294 & work(kend1), lwrk1 ) 312 & work(kcdint), isymim, work(kend1), lwrk1 ) 324 lwrk1 = lwork - kend1 [all …]`
H A D	cc_mofconr12.F	`121 lwrk1 = lwork - kend1 122 if (lwrk1 .lt.0) then 216 if (lwrk1 .lt.0) 223 lwrk1 = lfree 232 lwrksv = lwrk1 256 lwrk1 = lwrksv 470 lwrk1 = lwork - kend1 472 if (lwrk1.lt.0) then 610 if (lwrk1.lt.0) then 785 lwrk1 = lwork-kend1 [all …]`
H A D	cc_r12a2.F	`347 if (lwrk1.lt.0) then 653 if (lwrk1 .lt.0) then 687 if (lwrk1 .lt.0) then 1249 lwrk1 = lwork - kend1 1409 lwrk1 = lwork - kend1 1410 if (lwrk1.lt.0) then 1428 lwrk1 = lwork - kend1 1429 if (lwrk1.lt.0) then 1478 lwrk1 = lwork - kend1 1479 if (lwrk1.lt.0) then [all …]`
H A D	cc_r12ccsd.F	`363 lwrk1 = lwork - kend1 364 if (lwrk1.lt.0) then 396 if (lwrk1.lt.0) then 496 if (lwrk1.lt.0) then 543 lwrk1 = lwork - kend1 544 if (lwrk1.lt.0) then 646 if (lwrk1 .lt.0) then 1173 if (lwrk1.lt.0) then 1410 if (lwrk1.lt.0) then 1535 if (lwrk1.lt.0) then [all …]`
H A D	cc_r12vunpack.F	`425 lwrk1 = lwork - kend1 426 if (lwrk1 .lt. 0) then 775 lwrk1 = lwork - kend1 776 if (lwrk1 .lt. 0) then 1112 if (lwrk1 .lt. 0) then 1293 lwrk1 = lwork - kend1 1294 if (lwrk1.lt.0) then 1478 if (lwrk1 .lt. 0) then 1726 if (lwrk1 .lt. 0) then 1882 if (lwrk1.lt.0) then [all …]`
H A D	cc_ftstnew.F	`414 lwrk1 = lwork - kend1 417 if (lwrk1 .lt. 0) then 517 & work(kt1amp0),work(kt2amp0),work(kend1),lwrk1) 521 & dummy,work(kt12amp0),work(kend1),lwrk1) 551 & work(kend1),lwrk1,aproxr12) 569 call cc_atrr(ecurr,isym,iside,work(krho1),lwrk1,.FALSE.,dummy, 572 call cc_eta(work(keta1),work(kend1),lwrk1) 624 & work(kt1amp0),work(kt2amp0),work(kend1),lwrk1) 628 & dummy,work(kt12amp0),work(kend1),lwrk1) 661 & work(kend1),lwrk1,aproxr12)`
H A D	cc_r12mkvamkl.F	`206 lwrk1 = lwork - kend1 207 if (lwrk1 .lt.0) then 858 lwrk1 = lwork - kend1 859 if (lwrk1.lt.0) then 1104 lwrk1 = lwork -kend1 1105 if (lwrk1 .lt.0) then 1618 lwrk1 = lwork - kend1 1619 if (lwrk1 .lt.0) then 1717 lwrk1 = lwork - kend1 1719 if (lwrk1 .lt.0) then [all …]`
H A D	cc_r12xieta.F	`907 lwrk1 = lwork - kend1 908 if (lwrk1 .lt. 0) then 1410 lwrk1 = lwork - kend1 1411 if (lwrk1 .lt. 0) then 1977 lwrk1 = lwork - kend1 1978 if (lwrk1 .lt. 0) then 2309 lwrk1 = lwork - kend1 2310 if (lwrk1 .lt. 0) then 2411 lwrk1 = lwork - kend1 2634 lwrk1 = lwork - kend1 [all …]`
H A D	cc_molden_nto.F	`56 integer :: lwrk1, lwrk2, lwrk3 99 lwrk1 = lwork - kend1 + 1 102 if (lwrk1 .lt. 0) then`
H A D	ccsdr12oxr.F	`52 integer idum, lunit, komegsq, kend1, lwrk1, 104 lwrk1 = lwork - kend1 105 if (lwrk1.lt.0) call quit('Insufficient memory in ccsdr12oxr')`
H A D	ccpt_resort_den.F	`71 lwrk1 = lwork - kend1 114 lwrk1 = lwork - kend1`
H A D	ccexnorm.F	`79 & kl1am, kl2am, kr1am, kr2am, kwrk1, lwrk1, iopt, ipass, 134 lwrk1 = lwork - kwrk1 135 if (lwrk1.lt.0) call quit('out of memory in CCEXNORM (1)') 431 lwrk1 = lwork - kwrk1 432 if (lwrk1.lt.0) call quit('out of memory in CCEXNORM (2)') 658 lwrk1 = lwork - kwrk1 659 if (lwrk1 .lt. 0) then 681 & work(kwrk1),lwrk1) 694 & work(kwrk1),lwrk1,isym0,isym0,isym0) 1332 lwrk1 = lwork - kend1 [all …]`
H A D	cc_r12mkxajkl.F	`40 integer lwork,luvajkl,lwrk1,lwrk2,isymai 75 lwrk1 = lwork - kend1 269 lwrk1 = lwork - kend1 279 if (lwrk1 .lt. 0) then 683 lwrk1 = lwork - kend1 689 if (lwrk1 .lt. 0) then 1093 integer krsing,krtrip,kend1,lwrk1,nrhftria,n2 1445 integer isym,luvajkl,nvir0t,lwork,lwrk1,ntklaj local 1507 lwrk1 = lwork - kend1 1671 call r12gradbd(res,dklij,work(kend1),lwrk1) [all …]`
/dports/astro/oskar/OSKAR-2.8.0/oskar/splines/src/
H A D	oskar_splines_fit.c	38 int err = 0, kwrk = 0, lwrk1 = 0, lwrk2 = 0, u = 0, v = 0, iwrk = 0; in oskar_splines_fit() local 116 lwrk1 = 1 + b2 + u v * (2 + b1 + b2) + in oskar_splines_fit() 120 wrk1 = (double)malloc(lwrk1 sizeof(double)); in oskar_splines_fit() 146 lwrk1, wrk2, lwrk2, iwrk, kwrk, &err); in oskar_splines_fit() 190 lwrk1 = 185 + 52v + 10u + 14uv + 8(u-1)vv + 8num_points; in oskar_splines_fit() 193 wrk1 = (double)malloc(lwrk1 sizeof(double)); in oskar_splines_fit() 218 lwrk1, wrk2, lwrk2, iwrk, kwrk, &err); in oskar_splines_fit()
H A D	oskar_dierckx_sphere.c	`12 double* tp, double* c, double* fp, double* wrk1, int lwrk1, in oskar_dierckx_sphere() argument 58 if (lwrk1 < lwest \|\| kwrk < kwest) return; in oskar_dierckx_sphere()`
H A D	oskar_dierckx_surfit.c	`13 double fp, double wrk1, int lwrk1, double *wrk2, int lwrk2, in oskar_dierckx_surfit() argument 76 if (lwrk1 < lwest \|\| kwrk < kwest) return; in oskar_dierckx_surfit()`
/dports/science/py-scipy/scipy-1.7.1/scipy/interpolate/fitpack/
H A D	surfit.f	`2 * nmax,eps,nx,tx,ny,ty,c,fp,wrk1,lwrk1,wrk2,lwrk2,iwrk,kwrk,ier) argument 305 integer iopt,m,kx,ky,nxest,nyest,nmax,nx,ny,lwrk1,lwrk2,kwrk,ier local 308 * c((nxest-kx-1)(nyest-ky-1)),wrk1(lwrk1),wrk2(lwrk2) 356 if(lwrk1.lt.lwest .or. kwrk.lt.kwest) go to 71 404 print,"lwrk1,lwrk2,kwrk=",lwrk1,lwrk2,kwrk`
H A D	sphere.f	`2 * nt,tt,np,tp,c,fp,wrk1,lwrk1,wrk2,lwrk2,iwrk,kwrk,ier) argument 311 integer iopt,m,ntest,npest,nt,np,lwrk1,lwrk2,kwrk,ier local 314 * c((ntest-4)*(npest-4)),wrk1(lwrk1),wrk2(lwrk2) 353 if(lwrk1.lt.lwest .or. kwrk.lt.kwest) go to 80`
H A D	polar.f	`2 * nv,tv,u,v,c,fp,wrk1,lwrk1,wrk2,lwrk2,iwrk,kwrk,ier) argument 344 integer m,nuest,nvest,nu,nv,lwrk1,lwrk2,kwrk,ier local 347 * c((nuest-4)*(nvest-4)),wrk1(lwrk1),wrk2(lwrk2) 392 if(lwrk1.lt.lwest .or. kwrk.lt.kwest) go to 60`
/dports/astro/oskar/OSKAR-2.8.0/oskar/splines/
H A D	oskar_dierckx_sphere.h	`321 double* tp, double* c, double* fp, double* wrk1, int lwrk1,`
H A D	oskar_dierckx_surfit.h	`317 double fp, double wrk1, int lwrk1, double *wrk2, int lwrk2,`
/dports/science/py-scipy/scipy-1.7.1/scipy/interpolate/src/
H A D	fitpack.pyf	451 nmax,eps,nx,tx,ny,ty,c,fp,wrk1,lwrk1,wrk2,lwrk2,& 485 real8 dimension(lwrk1),intent(cache,out),depend(lwrk1) :: wrk1 487 :: lwrk1=calc_surfit_lwrk1(m,kx,ky,nxest,nyest) 498 nmax,eps,nx,tx,ny,ty,c,fp,wrk1,lwrk1,wrk2,lwrk2,& 529 real8 dimension(lwrk1),intent(cache,hide),depend(lwrk1) :: wrk1 542 tp,c,fp,wrk1,lwrk1,wrk2,lwrk2,iwrk,kwrk,ier) 565 real8 dimension(lwrk1),intent(cache,hide),depend(lwrk1) :: wrk1 567 :: lwrk1=calc_spherfit_lwrk1(m,ntest,npest) 578 tp,c,fp,wrk1,lwrk1,wrk2,lwrk2,iwrk,kwrk,ier) 600 real8 dimension(lwrk1),intent(cache,hide),depend(lwrk1) :: wrk1 [all …]