        MODULE ListModule
         TYPE ListElem
          REAL    :: f;
          TYPE(ListElem), POINTER :: next;
         END TYPE ListElem
        END MODULE

