1
2(SDEFUN |FCPAK1;zeroVector;SPFc;1|
3        ((|fname| |Symbol|) (|n| |Polynomial| (|Integer|)) ($ |FortranCode|))
4        (SPROG
5         ((|fa| (|FortranCode|))
6          (|indices| (|List| #1=(|Polynomial| (|Integer|)))) (|ip1| #1#)
7          (|segbp1| (|SegmentBinding| (|Polynomial| (|Integer|))))
8          (|segp1| (|Segment| (|Polynomial| (|Integer|))))
9          (|hp1| (|Polynomial| (|Integer|))) (|lp1| (|Polynomial| (|Integer|)))
10          (|i1| (|Symbol|)) (|ue| (|Expression| (|Integer|))))
11         (SEQ (LETT |ue| (|spadConstant| $ 7)) (LETT |i1| 'I1)
12              (LETT |lp1| (|spadConstant| $ 9)) (LETT |hp1| |n|)
13              (LETT |segp1| (SPADCALL |lp1| |hp1| (QREFELT $ 11)))
14              (LETT |segbp1| (SPADCALL |i1| |segp1| (QREFELT $ 14)))
15              (LETT |ip1| (SPADCALL |i1| (QREFELT $ 15)))
16              (LETT |indices| (LIST |ip1|))
17              (LETT |fa|
18                    (SPADCALL |segbp1|
19                              (SPADCALL |fname| |indices| |ue| (QREFELT $ 18))
20                              (QREFELT $ 19)))
21              (EXIT |fa|))))
22
23(SDEFUN |FCPAK1;zeroMatrix;S2PFc;2|
24        ((|fname| |Symbol|) (|m| |Polynomial| (|Integer|))
25         (|n| |Polynomial| (|Integer|)) ($ |FortranCode|))
26        (SPROG
27         ((|fa| (|FortranCode|))
28          (|indices| (|List| #1=(|Polynomial| (|Integer|)))) (|ip2| #1#)
29          (|ip1| (|Polynomial| (|Integer|)))
30          (|segbp2| #2=(|SegmentBinding| (|Polynomial| (|Integer|))))
31          (|segp2| #3=(|Segment| (|Polynomial| (|Integer|))))
32          (|hp2| (|Polynomial| (|Integer|))) (|i2| (|Symbol|)) (|segbp1| #2#)
33          (|segp1| #3#) (|hp1| (|Polynomial| (|Integer|)))
34          (|lp1| (|Polynomial| (|Integer|))) (|i1| (|Symbol|))
35          (|ue| (|Expression| (|Integer|))))
36         (SEQ (LETT |ue| (|spadConstant| $ 7)) (LETT |i1| 'I1)
37              (LETT |lp1| (|spadConstant| $ 9)) (LETT |hp1| |m|)
38              (LETT |segp1| (SPADCALL |lp1| |hp1| (QREFELT $ 11)))
39              (LETT |segbp1| (SPADCALL |i1| |segp1| (QREFELT $ 14)))
40              (LETT |i2| 'I2) (LETT |hp2| |n|)
41              (LETT |segp2| (SPADCALL |lp1| |hp2| (QREFELT $ 11)))
42              (LETT |segbp2| (SPADCALL |i2| |segp2| (QREFELT $ 14)))
43              (LETT |ip1| (SPADCALL |i1| (QREFELT $ 15)))
44              (LETT |ip2| (SPADCALL |i2| (QREFELT $ 15)))
45              (LETT |indices| (LIST |ip1| |ip2|))
46              (LETT |fa|
47                    (SPADCALL |segbp1|
48                              (SPADCALL |segbp2|
49                                        (SPADCALL |fname| |indices| |ue|
50                                                  (QREFELT $ 18))
51                                        (QREFELT $ 19))
52                              (QREFELT $ 19)))
53              (EXIT |fa|))))
54
55(SDEFUN |FCPAK1;zeroMatrix;S2SbFc;3|
56        ((|fname| |Symbol|)
57         (|segbp1| |SegmentBinding| (|Polynomial| (|Integer|)))
58         (|segbp2| |SegmentBinding| (|Polynomial| (|Integer|)))
59         ($ |FortranCode|))
60        (SPROG
61         ((|fa| (|FortranCode|))
62          (|indices| (|List| #1=(|Polynomial| (|Integer|)))) (|ip2| #1#)
63          (|ip1| (|Polynomial| (|Integer|))) (|i2| #2=(|Symbol|)) (|i1| #2#)
64          (|ue| (|Expression| (|Integer|))))
65         (SEQ (LETT |ue| (|spadConstant| $ 7))
66              (LETT |i1| (SPADCALL |segbp1| (QREFELT $ 22)))
67              (LETT |i2| (SPADCALL |segbp2| (QREFELT $ 22)))
68              (LETT |ip1| (SPADCALL |i1| (QREFELT $ 15)))
69              (LETT |ip2| (SPADCALL |i2| (QREFELT $ 15)))
70              (LETT |indices| (LIST |ip1| |ip2|))
71              (LETT |fa|
72                    (SPADCALL |segbp1|
73                              (SPADCALL |segbp2|
74                                        (SPADCALL |fname| |indices| |ue|
75                                                  (QREFELT $ 18))
76                                        (QREFELT $ 19))
77                              (QREFELT $ 19)))
78              (EXIT |fa|))))
79
80(SDEFUN |FCPAK1;zeroSquareMatrix;SPFc;4|
81        ((|fname| |Symbol|) (|n| |Polynomial| (|Integer|)) ($ |FortranCode|))
82        (SPROG
83         ((|fa| (|FortranCode|))
84          (|indices| (|List| #1=(|Polynomial| (|Integer|)))) (|ip2| #1#)
85          (|ip1| (|Polynomial| (|Integer|)))
86          (|segbp2| #2=(|SegmentBinding| (|Polynomial| (|Integer|))))
87          (|i2| (|Symbol|)) (|segbp1| #2#)
88          (|segp1| (|Segment| (|Polynomial| (|Integer|))))
89          (|hp1| (|Polynomial| (|Integer|))) (|lp1| (|Polynomial| (|Integer|)))
90          (|i1| (|Symbol|)) (|ue| (|Expression| (|Integer|))))
91         (SEQ (LETT |ue| (|spadConstant| $ 7)) (LETT |i1| 'I1)
92              (LETT |lp1| (|spadConstant| $ 9)) (LETT |hp1| |n|)
93              (LETT |segp1| (SPADCALL |lp1| |hp1| (QREFELT $ 11)))
94              (LETT |segbp1| (SPADCALL |i1| |segp1| (QREFELT $ 14)))
95              (LETT |i2| 'I2)
96              (LETT |segbp2| (SPADCALL |i2| |segp1| (QREFELT $ 14)))
97              (LETT |ip1| (SPADCALL |i1| (QREFELT $ 15)))
98              (LETT |ip2| (SPADCALL |i2| (QREFELT $ 15)))
99              (LETT |indices| (LIST |ip1| |ip2|))
100              (LETT |fa|
101                    (SPADCALL |segbp1|
102                              (SPADCALL |segbp2|
103                                        (SPADCALL |fname| |indices| |ue|
104                                                  (QREFELT $ 18))
105                                        (QREFELT $ 19))
106                              (QREFELT $ 19)))
107              (EXIT |fa|))))
108
109(SDEFUN |FCPAK1;identitySquareMatrix;SPFc;5|
110        ((|fname| |Symbol|) (|n| |Polynomial| (|Integer|)) ($ |FortranCode|))
111        (SPROG
112         ((|fa| #1=(|FortranCode|)) (|fl| (|List| #2=(|FortranCode|)))
113          (|f1| #2#) (|fc| #1#)
114          (|indices| (|List| #3=(|Polynomial| (|Integer|))))
115          (|indice1| (|List| #4=(|Polynomial| (|Integer|)))) (|ip2| #3#)
116          (|ip1| #4#)
117          (|segbp2| #5=(|SegmentBinding| (|Polynomial| (|Integer|))))
118          (|i2| (|Symbol|)) (|segbp1| #5#)
119          (|segp1| (|Segment| (|Polynomial| (|Integer|))))
120          (|hp1| (|Polynomial| (|Integer|))) (|lp1| (|Polynomial| (|Integer|)))
121          (|i1| (|Symbol|)) (|u1| (|Expression| (|Integer|)))
122          (|ue| (|Expression| (|Integer|))))
123         (SEQ (LETT |ue| (|spadConstant| $ 7))
124              (LETT |u1| (|spadConstant| $ 25)) (LETT |i1| 'I1)
125              (LETT |lp1| (|spadConstant| $ 9)) (LETT |hp1| |n|)
126              (LETT |segp1| (SPADCALL |lp1| |hp1| (QREFELT $ 11)))
127              (LETT |segbp1| (SPADCALL |i1| |segp1| (QREFELT $ 14)))
128              (LETT |i2| 'I2)
129              (LETT |segbp2| (SPADCALL |i2| |segp1| (QREFELT $ 14)))
130              (LETT |ip1| (SPADCALL |i1| (QREFELT $ 15)))
131              (LETT |ip2| (SPADCALL |i2| (QREFELT $ 15)))
132              (LETT |indice1| (LIST |ip1| |ip1|))
133              (LETT |indices| (LIST |ip1| |ip2|))
134              (LETT |fc|
135                    (SPADCALL |segbp2|
136                              (SPADCALL |fname| |indices| |ue| (QREFELT $ 18))
137                              (QREFELT $ 19)))
138              (LETT |f1| (SPADCALL |fname| |indice1| |u1| (QREFELT $ 18)))
139              (LETT |fl| (LIST |fc| |f1|))
140              (LETT |fa|
141                    (SPADCALL |segbp1| (SPADCALL |fl| (QREFELT $ 27))
142                              (QREFELT $ 19)))
143              (EXIT |fa|))))
144
145(DECLAIM (NOTINLINE |FortranCodePackage1;|))
146
147(DEFUN |FortranCodePackage1| ()
148  (SPROG NIL
149         (PROG (#1=#:G411)
150           (RETURN
151            (COND
152             ((LETT #1# (HGET |$ConstructorCache| '|FortranCodePackage1|))
153              (|CDRwithIncrement| (CDAR #1#)))
154             ('T
155              (UNWIND-PROTECT
156                  (PROG1
157                      (CDDAR
158                       (HPUT |$ConstructorCache| '|FortranCodePackage1|
159                             (LIST
160                              (CONS NIL (CONS 1 (|FortranCodePackage1;|))))))
161                    (LETT #1# T))
162                (COND
163                 ((NOT #1#)
164                  (HREM |$ConstructorCache| '|FortranCodePackage1|))))))))))
165
166(DEFUN |FortranCodePackage1;| ()
167  (SPROG ((|dv$| NIL) ($ NIL) (|pv$| NIL))
168         (PROGN
169          (LETT |dv$| '(|FortranCodePackage1|))
170          (LETT $ (GETREFV 29))
171          (QSETREFV $ 0 |dv$|)
172          (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL)))
173          (|haddProp| |$ConstructorCache| '|FortranCodePackage1| NIL
174                      (CONS 1 $))
175          (|stuffDomainSlots| $)
176          (SETF |pv$| (QREFELT $ 3))
177          $)))
178
179(MAKEPROP '|FortranCodePackage1| '|infovec|
180          (LIST
181           '#(NIL NIL NIL NIL NIL NIL (|Expression| (|Integer|)) (0 . |Zero|)
182              (|Polynomial| (|Integer|)) (4 . |One|) (|Segment| 8)
183              (8 . |segment|) (|Symbol|) (|SegmentBinding| 8) (14 . |equation|)
184              (20 . |coerce|) (|List| 8) (|FortranCode|) (25 . |assign|)
185              (32 . |forLoop|) |FCPAK1;zeroVector;SPFc;1|
186              |FCPAK1;zeroMatrix;S2PFc;2| (38 . |variable|)
187              |FCPAK1;zeroMatrix;S2SbFc;3| |FCPAK1;zeroSquareMatrix;SPFc;4|
188              (43 . |One|) (|List| $) (47 . |block|)
189              |FCPAK1;identitySquareMatrix;SPFc;5|)
190           '#(|zeroVector| 52 |zeroSquareMatrix| 58 |zeroMatrix| 64
191              |identitySquareMatrix| 78)
192           'NIL
193           (CONS (|makeByteWordVec2| 1 '(0))
194                 (CONS '#(NIL)
195                       (CONS
196                        '#((|Join|
197                            (|mkCategory|
198                             (LIST
199                              '((|zeroVector|
200                                 ((|FortranCode|) (|Symbol|)
201                                  (|Polynomial| (|Integer|))))
202                                T)
203                              '((|zeroMatrix|
204                                 ((|FortranCode|) (|Symbol|)
205                                  (|Polynomial| (|Integer|))
206                                  (|Polynomial| (|Integer|))))
207                                T)
208                              '((|zeroMatrix|
209                                 ((|FortranCode|) (|Symbol|)
210                                  (|SegmentBinding| (|Polynomial| (|Integer|)))
211                                  (|SegmentBinding|
212                                   (|Polynomial| (|Integer|)))))
213                                T)
214                              '((|zeroSquareMatrix|
215                                 ((|FortranCode|) (|Symbol|)
216                                  (|Polynomial| (|Integer|))))
217                                T)
218                              '((|identitySquareMatrix|
219                                 ((|FortranCode|) (|Symbol|)
220                                  (|Polynomial| (|Integer|))))
221                                T))
222                             (LIST) NIL NIL)))
223                        (|makeByteWordVec2| 28
224                                            '(0 6 0 7 0 8 0 9 2 10 0 8 8 11 2
225                                              13 0 12 10 14 1 8 0 12 15 3 17 0
226                                              12 16 6 18 2 17 0 13 0 19 1 13 12
227                                              0 22 0 6 0 25 1 17 0 26 27 2 0 17
228                                              12 8 20 2 0 17 12 8 24 3 0 17 12
229                                              8 8 21 3 0 17 12 13 13 23 2 0 17
230                                              12 8 28)))))
231           '|lookupComplete|))
232
233(MAKEPROP '|FortranCodePackage1| 'NILADIC T)
234