| /dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
| H A D | crackfrd.c | 109 nstate_=15; in crackfrd()
135 for(i=0;i<nstate_;i++){ in crackfrd()
138 nfield[0]=nstate_; in crackfrd()
140 NNEW(xstaten,double,nstate_**nk); in crackfrd()
147 xstaten[nstate_*i+4]=wk1glob[i]; in crackfrd()
148 xstaten[nstate_*i+5]=wk2glob[i]; in crackfrd()
149 xstaten[nstate_*i+6]=wk3glob[i]; in crackfrd()
151 xstaten[nstate_*i+8]=nullr; in crackfrd()
153 xstaten[nstate_*i+10]=nullr; in crackfrd()
155 xstaten[nstate_*i+12]=dnglob[i]; in crackfrd()
[all …]
|
| H A D | umat_main.f | 21 & icmd,ielas,mi,nstate_,xstateini,xstate,stre,stiff, argument
39 real*8 xstate(nstate_,mi(1),*),xstateini(nstate_,mi(1),*)
48 & icmd,ielas,mi(1),nstate_,xstateini,xstate,stre,stiff,
55 & icmd,ielas,mi(1),nstate_,xstateini,xstate,stre,stiff,
64 & icmd,ielas,mi(1),nstate_,xstateini,xstate,stre,stiff,
71 & icmd,ielas,mi(1),nstate_,xstateini,xstate,stre,stiff,
81 & icmd,ielas,mi(1),nstate_,xstateini,xstate,stre,stiff,
91 & icmd,ielas,mi(1),nstate_,xstateini,xstate,stre,stiff,
131 & icmd,ielas,mi(1),nstate_,xstateini,xstate,stre,stiff,
191 & icmd,ielas,mi(1),nstate_,xstateini,xstate,stre,stiff,
[all …]
|
| H A D | interpolatestate.f | 29 & pslavsurf,nstate_,xstateini,islavsurf,islavsurfold,pslavsurfold, argument
38 & nstate_,kk,nopespring,iface,ifacej,ielemslave,ll, local
41 real*8 xstate(nstate_,mi(1),*),pslavsurf(3,*),pslavsurfold(3,*),
42 & xstateini(nstate_,mi(1),*)
50 & nstate_,mi,islavsurf,pslavsurf,
|
| H A D | mechmodel.f | 21 & ielas,amat,t1l,dtime,time,ttime,iel,iint,nstate_,mi, argument
52 integer kode,ithermal(*),icmd,ielas,iel,iint,nstate_,mi(*),iorien, local
61 real*8 xstate(nstate_,mi(1),*),xstateini(nstate_,mi(1),*)
80 & time,ttime,iel,iint,nstate_,mi(1),eloc,pgauss,nmethod,
86 & time,ttime,iel,iint,nstate_,mi(1),eloc,pgauss,nmethod,
93 & mi(1),nstate_,xstateini,xstate,stre,elas,iorien,pgauss,
|
| H A D | umat_user.f | 21 & icmd,ielas,mi,nstate_,xstateini,xstate,stre,stiff, argument
131 integer ithermal(*),icmd,kode,ielas,iel,iint,nstate_,mi(*),iorien, local
138 real*8 xstate(nstate_,mi(1),*),xstateini(nstate_,mi(1),*)
|
| H A D | depvars.f | 20 & nstate_,irstrt,istep,istat,n,iline,ipol,inl,ipoinp,inp, argument
30 integer nelcon(2,*),nmat,istep,nstate_,ncocon(2,*),ipoinpc(0:*), local
70 nstate_=max(nstate_,nstate)
|
| H A D | thermmodel.f | 20 & dtime,time,ttime,mi,nstate_,xstateini,xstate,qflux,xstiff, argument
29 integer iel,iint,kode,mi(*),nstate_,iorien,ntgrd,ncoconst, local
35 & xstateini(nstate_,mi(1),*),xstate(nstate_,mi(1),*),qflux(3),
134 do i=1,nstate_
149 & dtemdx,abqtime,dtime,predef,dpred,amat,ntgrd,nstate_,
|
| H A D | resultsmech_u.f | 25 & ncmat_,nstate_,stiini,vini,ener,eei,enerini,istep,iinc, argument
42 & ncmat_,nstate_,ikin,ielprop(*), local
55 & xstiff(27,mi(1),*),xstate(nstate_,mi(1),*),
56 & xstateini(nstate_,mi(1),*),reltime,
69 & ncmat_,nstate_,stiini,vini,ener,eei,enerini,istep,iinc,
82 & ncmat_,nstate_,stiini,vini,ener,eei,enerini,istep,iinc,
96 & ncmat_,nstate_,stiini,vini,ener,eei,enerini,istep,iinc,
|
| H A D | frictions.f | 21 & inp,ipoinpc,nstate_,ichangefriction,mortar,ier) argument
32 & nstate_,ichangefriction,mortar,ier local
53 nstate_=max(nstate_,9)
|
| H A D | dflux.f | 22 & sti,xstateini,xstate,nstate_,dtime)
113 integer kstep,kinc,noel,npt,jltyp,konl(20),ipompc(*),nstate_,i,
117 & area,co(3,*),coefmpc(*),sti(6,mi(1),*),xstate(nstate_,mi(1),*),
118 & xstateini(nstate_,mi(1),*),dtime
|
| H A D | creeps.f | 20 & plicon,nplicon,elcon,iplas,iperturb,nstate_,ncmat_, argument
34 integer nelcon(2,*),nmat,ntmat_,ntmat,istep,npmat_,nstate_, local
102 nstate_=max(nstate_,7)
129 nstate_=max(nstate_,14)
209 nstate_=max(nstate_,14)
|
| H A D | gapheatgenerations.f | 21 & inp,ipoinpc,nstate_,ier) argument
34 & nstate_,nline,ier local
56 nstate_=max(nstate_,9)
|
| H A D | umat_lin_iso_el.f | 22 & nstate_,xstateini,xstate,stre,stiff,iorien,pgauss,orab)
119 integer ithermal(*),icmd,kode,ielas,iel,iint,nstate_,mi(*),iorien,
126 real*8 xstate(nstate_,mi(1),*),xstateini(nstate_,mi(1),*)
|
| H A D | printoutfluid.f | 21 & mi,nstate_,co,konf,qfx,ttime,trab,inotr,ntrans,
36 & mi(*),nstate_,ii,jj,iset,l,limit,node,ipos,nelel,ithermal(*),
41 & eei(6,mi(1),*),xstate(nstate_,mi(1),*),ener(mi(1),*),
190 & xstate,ener,mi(1),nstate_,ii,nelem,qfx,
198 & xstate,ener,mi(1),nstate_,ii,nelem,qfx,orab,
207 & xstate,ener,mi(1),nstate_,ii,nelem,
|
| H A D | restartshort.f | 23 & nener,nstate_,ntie,nslavs,nkon,mcs,nprop,mortar,
40 & istat,nkon,nlabel,iplas,ithermal(*),nstate_,iprestr,
174 read(15)nstate_
191 & nmethod,iperturb,nener,ithermal,nstate_,iprestr,
313 read(15)nstate_
331 & iperturb,nener,ithermal,nstate_,iprestr,mcs,ntie,
|
| H A D | umat_ideal_gas.f | 22 & nstate_,xstateini,xstate,stre,stiff,iorien,pgauss,orab)
127 integer ithermal(*),icmd,kode,ielas,iel,iint,nstate_,mi(*),iorien,
133 & time,ttime,xstate(nstate_,mi(1),*),xstateini(nstate_,mi(1),*),
|
| H A D | umat_abaqus.f | 21 & icmd,ielas,mi,nstate_,xstateini,xstate,stre,stiff, argument
139 integer ithermal(*),icmd,kode,ielas,iel,iint,nstate_,mi(*),i, local
146 & time,ttime,skl(3,3),xa(3,3),ya(3,3,3,3),xstate(nstate_,mi(1),*),
147 & xstateini(nstate_,mi(1),*)
183 do i=1,nstate_
290 & ntens,nstate_,elconloc,nprops,pgauss,drot,pnewdt,
297 & dtemp,predef,dpred,amat,ndi,nshr,ntens,nstate_,elconloc,
|
| /dports/science/bagel/bagel-1.2.2/src/util/math/ |
| H A D | davidson.h | 56 int nstate_; variable
87 assert(nstate_ == 1); in compute()
98 assert(cc.size() == nstate_ && cs.size() == nstate_); in compute()
134 if (ovlp_scr->mdim() < nstate_) in compute()
146 for (int i = 0; i != nstate_; ++i) in compute()
157 for (int i = 0; i != nstate_; ++i) in compute()
162 if (size_ > max_-nstate_) { in compute()
188 trans->copy_block(m.first, 0, 1, nstate_, trans->get_submatrix(m.second, 0, 1, nstate_)); in compute()
205 for (int i = 0; i != nstate_; ++i) { in residual()
225 for (int i = 0; i != nstate_; ++i) { in civec()
[all …]
|
| /dports/science/bagel/bagel-1.2.2/src/ci/fci/ |
| H A D | fci.cc | 76 nstate_ = ci->nstates(); in KnowlesHandy()
85 weight_ = vector<double>(nstate_, 1.0/static_cast<double>(nstate_)); in KnowlesHandy()
103 if (nstate_ < 0) nstate_ = idata_->get<int>("nstate", 1); in common_init()
137 weight_ = vector<double>(nstate_, 1.0/static_cast<double>(nstate_)); in common_init()
142 energy_.resize(nstate_); in common_init()
181 if ((end-start) >= nstate_) { in model_guess()
199 for (int j = 0; j < nstate_; ++j) in model_guess()
214 int ndet = nstate_*10; in generate_guess()
307 if (nguess_ <= nstate_) in compute()
323 vector<int> conv(nstate_, 0); in compute()
[all …]
|
| H A D | distfci.cc | 58 if (nstate_ < 0) nstate_ = idata_->get<int>("nstate", 1); in common_init()
89 weight_ = vector<double>(nstate_, 1.0/static_cast<double>(nstate_)); in common_init()
93 energy_.resize(nstate_); in common_init()
167 if ((end-start) >= nstate_) { in model_guess()
187 for (int j = 0; j < nstate_; ++j) in model_guess()
203 int ndet = nstate_*10; in generate_guess()
375 if (nguess_ <= nstate_) in compute()
390 vector<int> conv(nstate_, 0); in compute()
402 for (int i = 0; i < nstate_; ++i) { in compute()
416 for (int i = 0; i != nstate_; ++i) { in compute()
[all …]
|
| /dports/science/bagel/bagel-1.2.2/src/ci/ras/ |
| H A D | rasci.cc | 51 nstate_ = idata_->get<int>("nstate", 1); in common_init()
100 rdm1_.resize(nstate_); in common_init()
101 rdm2_.resize(nstate_); in common_init()
103 energy_.resize(nstate_); in common_init()
143 if ((end-start) >= nstate_) { in model_guess()
161 for (int j = 0; j < nstate_; ++j) in model_guess()
181 int ndet = nstate_*10; in generate_guess()
267 if (nguess_ <= nstate_) in compute()
285 vector<int> conv(nstate_,0); in compute()
296 for (int i = 0; i < nstate_; ++i) { in compute()
[all …]
|
| /dports/science/bagel/bagel-1.2.2/src/asd/dmrg/ |
| H A D | product_rasci.cc | 49 nstate_ = input_->get<int>("nstate", 1); in ProductRASCI()
50 nguess_ = input_->get<int>("nguess", nstate_); in ProductRASCI()
94 energy_.resize(nstate_); in ProductRASCI()
154 vector<bool> converged(nstate_, false); in compute()
165 for (int i = 0; i < nstate_; ++i) { in compute()
182 for (int i = 0; i != nstate_; ++i) { in compute()
209 if (nstate_ != 1 && iter > 0) cout << endl; in compute()
210 for (int i = 0; i != nstate_; ++i) { in compute()
226 for (int i = 0; i < nstate_; ++i) in compute()
229 if (nstate_ > 1) { in compute()
[all …]
|
| H A D | product_guess.cc | 55 if (basis.size() >= max(nguess_, nstate_)) in model_guess()
74 for (int state = 0; state < nstate_; ++state) in model_guess()
82 DavidsonDiag<ProductRASCivec> davidson(nstate_, davidson_subspace_); in model_guess()
86 vector<bool> converged(nstate_, false); in model_guess()
95 for (int i = 0; i < nstate_; ++i) { in model_guess()
112 for (int i = 0; i != nstate_; ++i) { in model_guess()
120 for (int ist = 0; ist != nstate_; ++ist) { in model_guess()
137 if (nstate_ != 1 && iter > 0) cout << endl; in model_guess()
138 for (int i = 0; i != nstate_; ++i) { in model_guess()
|
| /dports/science/bagel/bagel-1.2.2/src/response/ |
| H A D | cis.cc | 34 …: Method(idata, geom, ref), nstate_(idata->get<int>("nstate", 1)), nocc_(ref_->nocc()), nvirt_(ref… in CIS()
66 for (int i = 0; i != nstate_; ++i) { in compute()
75 DavidsonDiag<Matrix> davidson(nstate_, maxiter_); in compute()
80 vector<bool> conv(nstate_, false); in compute()
87 for (int ist = 0; ist != nstate_; ++ist) { in compute()
112 for (int ist = 0; ist != nstate_; ++ist) { in compute()
128 if (nstate_ > 1) in compute()
139 for (int ist = 0; ist != nstate_; ++ist) { in compute()
|
| /dports/science/bagel/bagel-1.2.2/src/ci/zfci/ |
| H A D | zharrison.cc | 55 nstate_ = 0; in ZHarrison()
57 nstate_ += states_[i] * (i+1); // 2S+1 for 0, 1/2, 1, ... in ZHarrison()
74 energy_.resize(nstate_); in ZHarrison()
79 cout << " * nstate : " << setw(6) << nstate_ << endl; in ZHarrison()
186 cc_ = make_shared<RelZDvec>(space_, nstate_); // B runs first in compute()
191 if (nstate_ > max_states) { in compute()
239 vector<int> conv(nstate_,0); in compute()
265 for (int i = 0; i != nstate_; ++i) { in compute()
276 for (int ist = 0; ist != nstate_; ++ist) { in compute()
297 if (nstate_ != 1 && iter) cout << endl; in compute()
[all …]
|