MadWeightAnalyzer: MW_main_code_3.inc

File MW_main_code_3.inc, 2.3 KB (added by (none), 15 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