MadWeightAnalyzer: MW_main_code_3.inc

File MW_main_code_3.inc, 2.3 KB (added by anonymous, 6 years ago)
Line 
1C+-----------------------------------------------------------------------+
2C|                         MAIN CODE FOR MADWEIGHT                       |
3C|                                                                       |
4C|     Author: Pierre Artoisenet (UCL-CP3)                               |
5C|             Olivier Mattelaer (UCL-CP3)                               |
6C+-----------------------------------------------------------------------+
7C|     This file is generated automaticly by MADWEIGHT-ANALYZER          |
8C+-----------------------------------------------------------------------+     
9
10C+-----------------------------------------------------------------------+
11C|        ** Enlarged Contraint Sector global information **             |
12C|                                                                       |
13C|    Class: B                                                           |
14C|    particle in ECS : 5(missing)    6(visible)                         |
15C|    blob linked are generated by :-1    -6                             |
16C|                                                                       |
17C+-----------------------------------------------------------------------+
18
19
20C+-----------------------------------------------------------------------+
21C|     BLOB GENERATED BY -1. Solution condition: 1                       |
22C+-----------------------------------------------------------------------+
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
33C+-----------------------------------------------------------------------+
34C|     BLOB GENERATED BY -6. Solution condition: 2                       |
35C+-----------------------------------------------------------------------+
36
37        call fuse(10,9,-5)
38C       ++++++++++++           
39        call fuse(11,-5,-6)
40
41C+-----------------------------------------------------------------------+
42C|     ENLARGED CONTRAINT SECTOR      CLASS B                            |
43C+-----------------------------------------------------------------------+
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