1 | C+-----------------------------------------------------------------------+
|
---|
2 | C| MAIN CODE FOR MADWEIGHT |
|
---|
3 | C| |
|
---|
4 | C| Author: Pierre Artoisenet (UCL-CP3) |
|
---|
5 | C| Olivier Mattelaer (UCL-CP3) |
|
---|
6 | C+-----------------------------------------------------------------------+
|
---|
7 | C| This file is generated automaticly by MADWEIGHT-ANALYZER |
|
---|
8 | C+-----------------------------------------------------------------------+
|
---|
9 |
|
---|
10 | C+-----------------------------------------------------------------------+
|
---|
11 | C| ** Enlarged Contraint Sector global information ** |
|
---|
12 | C| |
|
---|
13 | C| Class: B |
|
---|
14 | C| particle in ECS : 5(missing) 6(visible) |
|
---|
15 | C| blob linked are generated by :-1 -6 |
|
---|
16 | C| |
|
---|
17 | C+-----------------------------------------------------------------------+
|
---|
18 |
|
---|
19 |
|
---|
20 | C+-----------------------------------------------------------------------+
|
---|
21 | C| BLOB GENERATED BY -1. Solution condition: 1 |
|
---|
22 | C+-----------------------------------------------------------------------+
|
---|
23 |
|
---|
24 | call block_d(x,n_var,jac_loc,8,7,-1)
|
---|
25 | if (jac_loc.lt.0d0)then
|
---|
26 | call block_stat(1,0,'D-8')
|
---|
27 | return
|
---|
28 | else
|
---|
29 | call block_stat(1,1,'D-8')
|
---|
30 | endif
|
---|
31 |
|
---|
32 |
|
---|
33 | C+-----------------------------------------------------------------------+
|
---|
34 | C| BLOB GENERATED BY -6. Solution condition: 2 |
|
---|
35 | C+-----------------------------------------------------------------------+
|
---|
36 |
|
---|
37 | call fuse(10,9,-5)
|
---|
38 | C ++++++++++++
|
---|
39 | call fuse(11,-5,-6)
|
---|
40 |
|
---|
41 | C+-----------------------------------------------------------------------+
|
---|
42 | C| ENLARGED CONTRAINT SECTOR CLASS B |
|
---|
43 | C+-----------------------------------------------------------------------+
|
---|
44 |
|
---|
45 | call class_b(jac_loc,5,6,-2)
|
---|
46 | if (jac_loc.lt.0d0)then
|
---|
47 | call block_stat(4,0,'b-5')
|
---|
48 | return
|
---|
49 | else
|
---|
50 | call block_stat(4,1,'b-5')
|
---|
51 | endif
|
---|
52 |
|
---|