Home
last modified time | relevance | path

Searched refs:cgaux (Results 1 – 4 of 4) sorted by relevance

/dports/science/siesta/siesta-4.1.5/Src/
H A Diocg.f8 subroutine iocg( task, naux, cgaux, cgcntr, relaxd, found ) argument
33 real(dp) cgaux(naux), cgcntr(0:20)
64 read(unit1) (cgaux(i), i = 1, naux)
84 write(unit1) (cgaux(i), i = 1, naux)
H A Dcgvc.F87 real(dp), pointer, save :: cgaux(:)=>null()
119 if (.not.associated(cgaux))
120 & call re_alloc( cgaux, 1, na*6+12, 'cgaux', 'cgvc' )
232 call iocg( 'read', ndeg*2, cgaux, cgcntr, relaxd, found )
234 call broadcast(cgaux)
343 call conjgr(ndeg,gxa,gfa,dxmax, ftol_tmp ,cgcntr,cgaux )
355 call conjgr( 3*na, xa, fa, dxmax, ftol, cgcntr, cgaux )
412 . call iocg( 'write', ndeg*2, cgaux, cgcntr, relaxd, found )
H A Dcgvc_zmatrix.F107 real(dp), pointer, save :: cgaux(:)
230 if (.not.associated(cgaux))
231 & call re_alloc( cgaux, 1, 2*ndeg, 'cgaux', 'cgvc_zmatrix' )
235 call iocg( 'read', ndeg*2, cgaux, cgcntr, relaxd, found )
237 call broadcast(cgaux)
402 call conjgr(ndeg,gxa,gfa,dxmaxn,ftoln_tmp,cgcntr,cgaux)
451 call conjgr( ndeg, gxa, gfa, dxmaxn, ftoln, cgcntr, cgaux)
566 . call iocg( 'write', ndeg*2, cgaux, cgcntr, relaxd, found )
/dports/science/siesta/siesta-4.1.5/Docs/
H A DCHANGES17150 The "save" attribute has been added back for cgaux in cgvc.F as
17156 cgvc.F Save attribute added to cgaux