File: test.f

package info (click to toggle)
ga 5.9.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 18,472 kB
  • sloc: ansic: 192,963; fortran: 53,761; f90: 11,218; cpp: 5,784; makefile: 2,248; sh: 1,945; python: 1,734; perl: 534; csh: 134; asm: 106
file content (13 lines) | stat: -rw-r--r-- 307 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
       real a(10000)
       integer i
       call trace_init(1000)
       do k = 1,10
         call trace_stime()
         do i = 1,10000
            a(i) = sin(real(i+k))
         enddo
         call trace_etime()
         call trace_genrec(k,k,i,k,i,999)
       enddo
       call trace_end(99)
       end