Searched refs:sidelt (Results 1 – 1 of 1) sorted by relevance
547 type (llnod), pointer :: sidelt ! points to generic elt of linked list local572 sidelt => sidlist ! starting with the first sid574 if((sidelt % value).eq.iBCB2) then578 sidelt => sidelt % next583 allocate (sidelt % next)! tack a new element to the end584 sidelt => sidelt % next! point to the new element585 sidelt % value = iBCB2 ! record the new sid586 nullify(sidelt % next) ! next does not exist yet595 sidelt => sidlist ! starting with the first sid597 sidmapl(j)=sidelt%value[all …]