pointer firstnode
        DS_DECL (Mem, MEMSIZE)
        common /ctsort/ firstnode