source: PSPA/madxPSPA/src/timest.f90 @ 447

Last change on this file since 447 was 430, checked in by touze, 11 years ago

import madx-5.01.00
File size: 242 bytes
Line 
1subroutine timest(r1)
2  implicit none
3  real r1,timestart
4  logical start
5  common /mytimes/timestart
6  data start /.false./
7  save
8  if (.not.start) then
9     start=.true.
10     call cpu_time(timestart)
11  endif
12  return
13end subroutine timest
Note: See TracBrowser for help on using the repository browser.