File: do_extract

package info (click to toggle)
spooles 2.2-16
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 19,760 kB
  • sloc: ansic: 146,836; sh: 7,571; csh: 3,615; makefile: 1,970; perl: 74
file content (41 lines) | stat: -rwxr-xr-x 817 bytes parent folder | download | duplicates (7)
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
32
33
34
35
36
37
38
39
40
41
#! /bin/csh -f

set msglvl  = 1

set msgFile = res
set msgFile = stdout

# dataType = 1 --> real entries
# dataType = 2 --> complex entries
set dataType = 1

# symmetryflag = 0 --> symmetric
# symmetryflag = 1 --> hermitian
# symmetryflag = 2 --> nonsymmetric
set symmetryflag = 2

# coordType = 1 --> rows
# coordType = 2 --> columns
# coordType = 3 --> chevrons
set coordType = 1

set nrowA       = 20
set ncolA       = 30
set nitem       = 100

set nrow1 =  5
set nrow2 = 15
set ncol1 = 10
set ncol2 = 20

set seed        = 10203

foreach symmetryflag ( 2 )
   foreach dataType ( 2 )
      foreach storageMode ( 3 )
          testExtract $msglvl $msgFile $dataType $symmetryflag \
                      $coordType $nrowA $ncolA $nitem \
                      $nrow1 $nrow2 $ncol1 $ncol2 $seed
      end
   end
end