mirror of
https://code.it4i.cz/sccs/easyconfigs-it4i.git
synced 2025-04-17 12:10:50 +01:00
26 lines
680 B
Fortran
Executable File
26 lines
680 B
Fortran
Executable File
do icontr=1,nicontr
|
|
scr=scr+scr1
|
|
gc1=gcni(1,icontr)
|
|
gc2=gcni(2,icontr)
|
|
if(gc1.ne.gc2) then
|
|
ilo=1
|
|
if(nzipr(1).lt.gc1) then
|
|
do aa=2,nzip
|
|
ilo=ilo+1
|
|
if(nzipr(ilo).ge.gc1) exit
|
|
enddo
|
|
endif
|
|
if(nzipr(ilo).lt.gc1.or.nzipr(ilo).gt.
|
|
$ gc2) then
|
|
cycle
|
|
else
|
|
iup=nzip
|
|
if(nzipr(nzip).gt.gc2) then
|
|
do aa=2,nzip
|
|
iup=iup-1
|
|
if(nzipr(iup).le.gc2) exit
|
|
enddo
|
|
endif
|
|
call iao_sub(dcore(ibuff),dcore(it4),nzipr,nclkj,
|
|
$ nclkj1,ilo,iup,gci(1,icontr),niprim)
|