Home
last modified time | relevance | path

Searched refs:isegno (Results 1 – 7 of 7) sorted by relevance

/dports/comms/xnec2c/xnec2c-3.4/src/
H A Dinput.c318 if( (vsorc.ivqd[indx] = isegno(itmp2, itmp3)) < 0 ) in Read_Commands()
340 if( (vsorc.isant[indx] = isegno(itmp2, itmp3)) < 0 ) in Read_Commands()
591 isegno(itmp2, itmp3+idx)) < 0 ) in Read_Commands()
666 if( ((netcx.iseg1[idx] = isegno(itmp1, itmp2)) < 0) || in Read_Commands()
667 ((netcx.iseg2[idx] = isegno(itmp3, itmp4)) < 0) ) in Read_Commands()
H A Dgeometry.c600 isegno( int itagi, int mx) in isegno() function
691 i1= isegno( its, 1); in move()
H A Dcommon.h1151 int isegno(int itagi, int mx);
/dports/comms/nec2c/nec2c/
H A Dnec2c.h149 int isegno(int itagi, int mx);
H A Dnec2c.c682 ivqd[indx]= isegno( itmp2, itmp3); in main()
703 isant[indx]= isegno( itmp2, itmp3); in main()
784 iseg1[idx]= isegno( itmp1, itmp2); in main()
785 iseg2[idx]= isegno( itmp3, itmp4); in main()
3274 j= isegno( nctag[icoup], ncseg[icoup]); in couple()
3291 k= isegno( nctag[i], ncseg[i]); in couple()
3314 isg1= isegno( itt1, its1); in couple()
3321 isg2= isegno( itt2, its2); in couple()
6539 int isegno( int itagi, int mx) in isegno() function
6822 i1= isegno( its, 1); in move()
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/sirius/
H A Dkoopro4.F71 integer*2 icomp,iconf,isegno
88 allocatable icomp(:),iconf(:),isegno(:),zcapos(:)
366 allocate(isegno(ncf+1000))
532 call esclass(nd,ne,trou,part,icomp,iconf,isegno,ncf,NOCB,norbt
605 deallocate (isegno)
4854 subroutine esclass(nd,ne,trou,part,icomp,iconf,isegno,ncf,nocc
4858 integer*2 ne,trou,part,icomp,iconf,isegno
4859 dimension nd(*),ne(*),trou(*),part(*),icomp(*),iconf(*),isegno(*)
/dports/science/mcstas-comps/mcstas-comps-2.5-src/libs/cif2hkl/
H A Dcif2hkl.F908012 integer :: i,isum,ncharl,nchard,isegno,iniz,ipoi,idec,idig local
8051 isegno=1
8055 isegno=-1
8113 ivet(iv)=isum*isegno