X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Ftiming.F;h=acd380473ddaf93a2d38db665800ec721b139e0a;hb=1d656a815651f26cc5ccb9ccf24d66cbbae2a048;hp=5a8165575174aa7a28d1976092208fefa982402f;hpb=b847bacd7f528a68d640b3d58d4f5b9ce3c6ede2;p=unres.git diff --git a/source/unres/src_MD/timing.F b/source/unres/src_MD/timing.F index 5a81655..acd3804 100644 --- a/source/unres/src_MD/timing.F +++ b/source/unres/src_MD/timing.F @@ -205,17 +205,17 @@ C syssec = timar(2) **************************** #endif -#ifdef LINUX +c#ifdef LINUX c**************************** -C Next definitions for sgi - real timar(2), etime - seconds = etime(timar) +cC Next definitions for sgi +c real timar(2), etime +c seconds = etime(timar) Cd print *,'seconds=',seconds,' stime=',stime - usrsec = timar(1) - syssec = timar(2) - tcpu=seconds - stime +C usrsec = timar(1) +C syssec = timar(2) +c tcpu=seconds - stime c**************************** -#endif +c#endif #ifdef CRAY