Searched refs:nGaussPtr (Results 1 – 1 of 1) sorted by relevance
| /dports/science/siesta/siesta-4.1.5/Src/ |
| H A D | metaforce.F | 16 integer, pointer, save :: nGaussPtr(:,:) => null() variable
49 call re_alloc( nGaussPtr, 1, 2, 1, nGauss, 'nGaussPtr',
67 nGaussPtr(1,nGauss) = abs(fdf_bintegers(pline,1))
69 nGaussPtr(2,nGauss) = abs(fdf_bintegers(pline,2))
150 i = nGaussPtr(1,k)
151 j = nGaussPtr(2,k)
|