Searched refs:ndxval (Results 1 – 3 of 3) sorted by relevance
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/diana/ |
| H A D | dia_covar.F | 348 integer i,j,k,l,m,ivmin,ivmax,ndxval,i_valt,l_valt
430 ndxval=np*nfrme
431 if(.not.ma_push_get(mt_dbl,ndxval,'val',l_valt,i_valt))
433 do 18 i=1,ndxval
439 call ga_dgop(mag_d03,dbl_mb(i_valt),ndxval,'+')
443 write(lfnval,5566) (i,dbl_mb(i_valt-1+i),i=1,ndxval)
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/diana/ |
| H A D | dia_covar.F | 348 integer i,j,k,l,m,ivmin,ivmax,ndxval,i_valt,l_valt
430 ndxval=np*nfrme
431 if(.not.ma_push_get(mt_dbl,ndxval,'val',l_valt,i_valt))
433 do 18 i=1,ndxval
439 call ga_dgop(mag_d03,dbl_mb(i_valt),ndxval,'+')
443 write(lfnval,5566) (i,dbl_mb(i_valt-1+i),i=1,ndxval)
|
| /dports/cad/gplcver/gplcver-2.12a.src/src/ |
| H A D | cvmacros.h | 273 #define normalize_ndx_(ndxval, mi1, mi2) \ argument
274 (((mi1) >= (mi2)) ? (ndxval - mi2) : (mi2 - ndxval))
|