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