mirror of
https://code.it4i.cz/sccs/easyconfigs-it4i.git
synced 2025-04-17 12:10:50 +01:00
17 lines
337 B
Fortran
Executable File
17 lines
337 B
Fortran
Executable File
else
|
|
dcore(ij:ij+nc12-1)=0.d0
|
|
endif! Primitive prescreening
|
|
enddo! kprim
|
|
if(nzkp.gt.0) then
|
|
nzip=nzip+1
|
|
nzipr(nzip)=iprim
|
|
endif
|
|
enddo! iprim
|
|
if(nzip.gt.0) then
|
|
|
|
endif! nzip.gt.0
|
|
imem=it5
|
|
|
|
return
|
|
end
|