1 | defval SZX 50 |
---|
2 | defval SZY 50 |
---|
3 | defval SZU 1 |
---|
4 | defval SZT 100 |
---|
5 | defval SZA 101 |
---|
6 | |
---|
7 | hat_name shalw |
---|
8 | |
---|
9 | //option o_gradtest |
---|
10 | option o_parallel |
---|
11 | option o_m1qn3 |
---|
12 | |
---|
13 | exec disp_option |
---|
14 | |
---|
15 | traj Toce M SZU SZT |
---|
16 | //traj Toce2 M SZU 0 2 SZT |
---|
17 | |
---|
18 | space Soce M SZX SZY Toce |
---|
19 | |
---|
20 | modul Hfil space Soce input 3 output 1 tempo cout target |
---|
21 | modul Ufil space Soce input 3 output 1 tempo |
---|
22 | modul Vfil space Soce input 3 output 1 tempo |
---|
23 | modul Hphy space Soce input 5 output 1 tempo |
---|
24 | modul Uphy space Soce input 7 output 1 tempo |
---|
25 | modul Vphy space Soce input 7 output 1 tempo |
---|
26 | |
---|
27 | ctin Hfil 1 from Hfil 1 i j t-1 |
---|
28 | ctin Hfil 2 from Hphy 1 i j t-1 |
---|
29 | ctin Hfil 3 from Hphy 1 i j t |
---|
30 | |
---|
31 | ctin Vfil 1 from Vfil 1 i j t-1 |
---|
32 | ctin Vfil 2 from Vphy 1 i j t-1 |
---|
33 | ctin Vfil 3 from Vphy 1 i j t |
---|
34 | |
---|
35 | ctin Ufil 1 from Ufil 1 i j t-1 |
---|
36 | ctin Ufil 2 from Uphy 1 i j t-1 |
---|
37 | ctin Ufil 3 from Uphy 1 i j t |
---|
38 | |
---|
39 | ctin Hphy 1 from Hfil 1 i j t-1 |
---|
40 | ctin Hphy 2 from Uphy 1 i j t-1 |
---|
41 | ctin Hphy 3 from Uphy 1 i-1 j t-1 |
---|
42 | ctin Hphy 4 from Vphy 1 i j+1 t-1 |
---|
43 | ctin Hphy 5 from Vphy 1 i j t-1 |
---|
44 | |
---|
45 | ctin Vphy 1 from Vfil 1 i j t-1 |
---|
46 | ctin Vphy 2 from Hphy 1 i j t-1 |
---|
47 | ctin Vphy 3 from Hphy 1 i j-1 t-1 |
---|
48 | ctin Vphy 4 from Uphy 1 i-1 j-1 t-1 |
---|
49 | ctin Vphy 5 from Uphy 1 i-1 j t-1 |
---|
50 | ctin Vphy 6 from Uphy 1 i j-1 t-1 |
---|
51 | ctin Vphy 7 from Uphy 1 i j t-1 |
---|
52 | |
---|
53 | ctin Uphy 1 from Ufil 1 i j t-1 |
---|
54 | ctin Uphy 2 from Hphy 1 i+1 j t-1 |
---|
55 | ctin Uphy 3 from Hphy 1 i j t-1 |
---|
56 | ctin Uphy 4 from Vphy 1 i j t-1 |
---|
57 | ctin Uphy 5 from Vphy 1 i j+1 t-1 |
---|
58 | ctin Uphy 6 from Vphy 1 i+1 j t-1 |
---|
59 | ctin Uphy 7 from Vphy 1 i+1 j+1 t-1 |
---|
60 | |
---|
61 | order modinspace Soce |
---|
62 | order YA1 YA2 |
---|
63 | Hphy |
---|
64 | Uphy |
---|
65 | Vphy |
---|
66 | Hfil |
---|
67 | Ufil |
---|
68 | Vfil |
---|
69 | forder |
---|
70 | forder |
---|
71 | |
---|
72 | order spaceintraj Toce |
---|
73 | Soce |
---|
74 | forder |
---|
75 | |
---|
76 | insert_fct arg xivg |
---|
77 | insert_fct xdisplay |
---|
78 | insert_fct arg xgauss |
---|
79 | insert_fct xvitgeo |
---|
80 | |
---|
81 | |
---|