00001 module def_iter_quantities 00002 use phys_constant, only : long 00003 implicit none 00004 ! 00005 real(long), pointer :: msec_x_oold(:), msec_x_old(:), msec_f_oold(:), msec_f_old(:) 00006 ! 00007 end module def_iter_quantities