diff --git a/refraction/SIZE b/refraction/SIZE old mode 100644 new mode 100755 diff --git a/refraction/refraction.box b/refraction/refraction.box old mode 100644 new mode 100755 diff --git a/refraction/refraction.rea b/refraction/refraction.rea old mode 100644 new mode 100755 diff --git a/refraction/refraction.usr b/refraction/refraction.usr old mode 100644 new mode 100755 index 243b70d..b02872d --- a/refraction/refraction.usr +++ b/refraction/refraction.usr @@ -506,11 +506,8 @@ c----------------------------------------------------------------------- include 'SIZE' include 'TOTAL' include 'EMWAVE' + include 'RTIMER' - common /ccpu/ cpu_t,cpu_dtime,cpu_chk - real cpu_t,cpu_dtime,cpu_chk - - real cpu_p_t real l2(6),linf(6) if (istep.le.10.or.mod(istep,iocomm).eq.0) then diff --git a/temporal-fresnel/fresnel.usr b/temporal-fresnel/fresnel.usr index 0bf040b..55b8fa6 100644 --- a/temporal-fresnel/fresnel.usr +++ b/temporal-fresnel/fresnel.usr @@ -213,9 +213,7 @@ c----------------------------------------------------------------------- include 'TOTAL' include 'EMWAVE' include 'PML' - - common /ccpu/ cpu_t,cpu_dtime,cpu_chk - real cpu_t,cpu_dtime,cpu_chk + include 'RTIMER' common /userlogic/ twomat logical twomat @@ -223,7 +221,6 @@ c----------------------------------------------------------------------- integer i real l2(6),linf(6) real l2tol(6),linftol(6) - real cpu_p_t if (istep.eq.1000) then do i = 1,npts