Lines Matching refs:nion
37 integer ii,i,j,k,l,n,npack0,nfft3d,nion
61 nion = ion_nion()
76 value = value.and.BA_push_get(mt_dbl,(3*nion),'E1',E1(2),E1(1))
77 value = value.and.BA_push_get(mt_dbl,(3*nion),'Ea',Ea(2),Ea(1))
78 value = value.and.BA_push_get(mt_dbl,(3*nion),'Ee',Ee(2),Ee(1))
89 call dcopy(3*nion,0.0d0,0,dbl_mb(Ee(1)),1)
103 do ii=1,nion
127 call dcopy(3*nion,0.0d0,0,dbl_mb(Ea(1)),1)
129 do ii=1,nion
137 do ii=1,nion
146 call band_print_atom_Efield(luout,nion,dbl_mb(E1(1)),
177 subroutine band_print_atom_Efield(unit,nion,E1,Ea,Ee) argument
180 integer nion local
197 > i=1,nion)