+#else
+ write (*,*) "enecalc",time_enecalc
+ write (*,*) "sumene",time_sumene
+ write (*,*) "intfromcart",time_intfcart
+ write (*,*) "vecandderiv",time_vec
+ write (*,*) "setmatrices",time_mat
+ write (*,*) "ginvmult",time_ginvmult
+ write (*,*) "fricmatmult",time_fricmatmult
+ write (*,*) "inttocart",time_inttocart
+ write (*,*) "sumgradient",time_sumgradient
+ write (*,*) "intcartderiv",time_intcartderiv
+ write (*,*) "lagrangian",time_lagrangian
+ write (*,*) "cartgrad",time_cartgrad
+#endif