--- trunk/libf/test_disvert.f90	2008/03/31 13:58:05	9
+++ trunk/libf/test_disvert.f90	2008/04/18 14:45:53	10
@@ -20,7 +20,7 @@
   sigma = ap / pa + bp
   p = ap + bp * preff
 
-  unit = new_unit()
+  call new_unit(unit)
   open(unit, file="test_disvert.csv", status="replace", action="write")
   write(unit, fmt=*) '"ap (Pa)" "bp" "sigma" "p (Pa)"' ! title line
   do l = 1, llm