1 | #========================================================== |
---|
2 | # fichier de DESCRIPTION |
---|
3 | #========================================================== |
---|
4 | #DEFVAL : permet de définir des valeurs -------------DEFVAL |
---|
5 | #defval SZX 20 | 30 | 50 | 80 | 100 | 5 |
---|
6 | #defval SZXpo2x2 800 | 1800 | 5000 | 12800 | 20000 | 50 | must be = pow(SZX,2) * 2 |
---|
7 | #defval SZXnx2 840 | 1860 | 5100 | 12960 | 20200 | 60 | must be = (SZX + pow(SZX,2)) * 2 |
---|
8 | defval SZX 100 |
---|
9 | defval SZXpo2x2 20000 | must be = pow(SZX,2) * 2 |
---|
10 | defval SZXnx2 20200 | must be = (SZX + pow(SZX,2)) * 2 |
---|
11 | defval SZXx2 200 | must be = SZX * 2 |
---|
12 | # |
---|
13 | defval SZU 0 |
---|
14 | defval SZT 1 |
---|
15 | defval SZA 1 |
---|
16 | |
---|
17 | #NAME : nom des sources "hat" --------------------HAT_NAME |
---|
18 | hat_name cgmnz |
---|
19 | |
---|
20 | #OPTION : des options de g?n?ration -----------------OPTION |
---|
21 | option O_M1QN3 |
---|
22 | option O_GRADTEST |
---|
23 | #option O_REAL FLOAT |
---|
24 | #option O_EXTOBJ eigvvcgm.o eigvvcgmb.o eigvvcgmd.o adBuffer.o adStack.o |
---|
25 | option O_EXTOBJ cgall.o cgallb.o cgalld.o adBuffer.o adStack.o |
---|
26 | |
---|
27 | #TRAJECTOIRES -----------------------------------------TRAJ |
---|
28 | traj Tcal M SZU SZT |
---|
29 | |
---|
30 | #ESPACE ----------------------------------------------SPACE |
---|
31 | space ScalA M 1 Tcal |
---|
32 | |
---|
33 | #MODULES: les modules et leurs attributs -----------MODULES |
---|
34 | modul Cz space ScalA noward output SZX target |
---|
35 | #modul BuildM space ScalA input array SZX output SZXpo2x2 |
---|
36 | modul BuildM3DMN space ScalA hidjac input array SZX output SZXpo2x2 |
---|
37 | modul Cgall space ScalA hidjac input array SZXpo2x2 output SZXnx2 tempo | cout |
---|
38 | modul Sqrk space ScalA hidjac input array SZXx2 output SZXx2 tempo cout |
---|
39 | modul Norm space ScalA hidjac input array SZXpo2x2 output SZXpo2x2 tempo cout |
---|
40 | |
---|
41 | #CONNECTIONS: liens sorties->entrées ----------------CTIN-M |
---|
42 | #ctin BuildM 1..SZX from Cz 1..SZX 1 |
---|
43 | #ctin Cgall 1..SZXpo2x2 from BuildM 1..SZXpo2x2 1 |
---|
44 | exec disp_ct_in |
---|
45 | |
---|
46 | #ORDER: ----------------------------------------------ORDER |
---|
47 | # ordre de parcourt de l'espace et de calcul des modules |
---|
48 | order modinspace ScalA |
---|
49 | order YA1 |
---|
50 | # BuildM Cgall |
---|
51 | BuildM3DMN Cgall Sqrk Norm |
---|
52 | forder |
---|
53 | forder |
---|
54 | # |
---|
55 | order spaceintraj Tcal |
---|
56 | ScalA |
---|
57 | forder |
---|
58 | # |
---|
59 | |
---|
60 | #USER FUNCTIONS: --------------------------------------UFCT |
---|
61 | # instructions sp?cifiques de l'application |
---|
62 | insert_fct xdisplay |
---|
63 | insert_fct xinit_appli |
---|
64 | insert_fct arg xset_freq |
---|
65 | insert_fct arg xset_deltaz |
---|
66 | insert_fct xinit_cz |
---|
67 | insert_fct arg xperturb_cz |
---|
68 | insert_fct arg xsetstep |
---|
69 | |
---|
70 | #FIN ================================================== END |
---|