File: fdqs_check_pt.f

package info (click to toggle)
dqs 3.1.8-9
  • links: PTS
  • area: non-free
  • in suites: slink
  • size: 8,908 kB
  • ctags: 9,887
  • sloc: ansic: 87,447; sh: 2,952; makefile: 442; yacc: 247; lex: 94; perl: 83; csh: 51; fortran: 24; awk: 16
file content (31 lines) | stat: -rwxr-xr-x 466 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
      program c

      character*8 f
      f='deadbeaf'

      call  dqs_setup_ckpt()

      do 10 i=1,10000
           call foo()
10                 continue

      stop
      end

      subroutine foo()
      do 20 j=1,1000
            k=j
 20   continue     
      print*,"hello "
      return 
      end

      subroutine dqs_migrate()
      print*,"dqs_migrate "
      return
      end

      subroutine dqs_die()
      print*,"dqs_die "
      return
      end