Searched refs:jopb (Results 1 – 2 of 2) sorted by relevance
41 logical, allocatable :: jopb(:) local132 allocate (jopb(maxclass))137 jopb(i) = .false.142 jopb(it) = .true.154 if (jopb(itb) .and. n12(ib).eq.3) then225 deallocate (jopb)
2905 integer nangle,nstbnd,iang,ksbopb,jopb local2967 & sf,jopb(maxtyp)3073 if (jopb(itype(i)) .eq. 1) then