Lines Matching refs:sidelt
547 type (llnod), pointer :: sidelt ! points to generic elt of linked list local
572 sidelt => sidlist ! starting with the first sid
574 if((sidelt % value).eq.iBCB2) then
578 sidelt => sidelt % next
583 allocate (sidelt % next)! tack a new element to the end
584 sidelt => sidelt % next! point to the new element
585 sidelt % value = iBCB2 ! record the new sid
586 nullify(sidelt % next) ! next does not exist yet
595 sidelt => sidlist ! starting with the first sid
597 sidmapl(j)=sidelt%value
598 if(j.ne.nsidl) sidelt => sidelt%next
605 sidelt => sidlist
606 nextelt => sidelt % next
608 deallocate(sidelt)
610 sidelt => nextelt
611 nextelt => sidelt % next