
(/VERSIONCHECK 2) 

(DEFUN |FCPAK1;zeroVector;SPFc;1| (|fname| |n| $)
  (PROG (|ue| |i1| |lp1| |hp1| |segp1| |segbp1| |ip1| |indices| |fa|)
    (RETURN
      (SEQ (LETT |ue| (|spadConstant| $ 7)
                 . #0=(|FCPAK1;zeroVector;SPFc;1|))
           (LETT |i1| (SPADCALL "I1" (QREFELT $ 10)) . #0#)
           (LETT |lp1| (|spadConstant| $ 12) . #0#)
           (LETT |hp1| |n| . #0#)
           (LETT |segp1| (SPADCALL |lp1| |hp1| (QREFELT $ 14)) . #0#)
           (LETT |segbp1| (SPADCALL |i1| |segp1| (QREFELT $ 16)) . #0#)
           (LETT |ip1| (SPADCALL |i1| (QREFELT $ 17)) . #0#)
           (LETT |indices| (LIST |ip1|) . #0#)
           (LETT |fa|
                 (SPADCALL |segbp1|
                     (SPADCALL |fname| |indices| |ue| (QREFELT $ 20))
                     (QREFELT $ 21)) . #0#)
           (EXIT |fa|))))) 

(DEFUN |FCPAK1;zeroMatrix;S2PFc;2| (|fname| |m| |n| $)
  (PROG (|ue| |i1| |lp1| |hp1| |segp1| |segbp1| |i2| |hp2| |segp2|
              |segbp2| |ip1| |ip2| |indices| |fa|)
    (RETURN
      (SEQ (LETT |ue| (|spadConstant| $ 7)
                 . #0=(|FCPAK1;zeroMatrix;S2PFc;2|))
           (LETT |i1| (SPADCALL "I1" (QREFELT $ 10)) . #0#)
           (LETT |lp1| (|spadConstant| $ 12) . #0#)
           (LETT |hp1| |m| . #0#)
           (LETT |segp1| (SPADCALL |lp1| |hp1| (QREFELT $ 14)) . #0#)
           (LETT |segbp1| (SPADCALL |i1| |segp1| (QREFELT $ 16)) . #0#)
           (LETT |i2| (SPADCALL "I2" (QREFELT $ 10)) . #0#)
           (LETT |hp2| |n| . #0#)
           (LETT |segp2| (SPADCALL |lp1| |hp2| (QREFELT $ 14)) . #0#)
           (LETT |segbp2| (SPADCALL |i2| |segp2| (QREFELT $ 16)) . #0#)
           (LETT |ip1| (SPADCALL |i1| (QREFELT $ 17)) . #0#)
           (LETT |ip2| (SPADCALL |i2| (QREFELT $ 17)) . #0#)
           (LETT |indices| (LIST |ip1| |ip2|) . #0#)
           (LETT |fa|
                 (SPADCALL |segbp1|
                     (SPADCALL |segbp2|
                         (SPADCALL |fname| |indices| |ue|
                             (QREFELT $ 20))
                         (QREFELT $ 21))
                     (QREFELT $ 21)) . #0#)
           (EXIT |fa|))))) 

(DEFUN |FCPAK1;zeroMatrix;S2SbFc;3| (|fname| |segbp1| |segbp2| $)
  (PROG (|ue| |i1| |i2| |ip1| |ip2| |indices| |fa|)
    (RETURN
      (SEQ (LETT |ue| (|spadConstant| $ 7)
                 . #0=(|FCPAK1;zeroMatrix;S2SbFc;3|))
           (LETT |i1| (SPADCALL |segbp1| (QREFELT $ 24)) . #0#)
           (LETT |i2| (SPADCALL |segbp2| (QREFELT $ 24)) . #0#)
           (LETT |ip1| (SPADCALL |i1| (QREFELT $ 17)) . #0#)
           (LETT |ip2| (SPADCALL |i2| (QREFELT $ 17)) . #0#)
           (LETT |indices| (LIST |ip1| |ip2|) . #0#)
           (LETT |fa|
                 (SPADCALL |segbp1|
                     (SPADCALL |segbp2|
                         (SPADCALL |fname| |indices| |ue|
                             (QREFELT $ 20))
                         (QREFELT $ 21))
                     (QREFELT $ 21)) . #0#)
           (EXIT |fa|))))) 

(DEFUN |FCPAK1;zeroSquareMatrix;SPFc;4| (|fname| |n| $)
  (PROG (|ue| |i1| |lp1| |hp1| |segp1| |segbp1| |i2| |segbp2| |ip1|
              |ip2| |indices| |fa|)
    (RETURN
      (SEQ (LETT |ue| (|spadConstant| $ 7)
                 . #0=(|FCPAK1;zeroSquareMatrix;SPFc;4|))
           (LETT |i1| (SPADCALL "I1" (QREFELT $ 10)) . #0#)
           (LETT |lp1| (|spadConstant| $ 12) . #0#)
           (LETT |hp1| |n| . #0#)
           (LETT |segp1| (SPADCALL |lp1| |hp1| (QREFELT $ 14)) . #0#)
           (LETT |segbp1| (SPADCALL |i1| |segp1| (QREFELT $ 16)) . #0#)
           (LETT |i2| (SPADCALL "I2" (QREFELT $ 10)) . #0#)
           (LETT |segbp2| (SPADCALL |i2| |segp1| (QREFELT $ 16)) . #0#)
           (LETT |ip1| (SPADCALL |i1| (QREFELT $ 17)) . #0#)
           (LETT |ip2| (SPADCALL |i2| (QREFELT $ 17)) . #0#)
           (LETT |indices| (LIST |ip1| |ip2|) . #0#)
           (LETT |fa|
                 (SPADCALL |segbp1|
                     (SPADCALL |segbp2|
                         (SPADCALL |fname| |indices| |ue|
                             (QREFELT $ 20))
                         (QREFELT $ 21))
                     (QREFELT $ 21)) . #0#)
           (EXIT |fa|))))) 

(DEFUN |FCPAK1;identitySquareMatrix;SPFc;5| (|fname| |n| $)
  (PROG (|ue| |u1| |i1| |lp1| |hp1| |segp1| |segbp1| |i2| |segbp2|
              |ip1| |ip2| |indice1| |indices| |fc| |f1| |fl| |fa|)
    (RETURN
      (SEQ (LETT |ue| (|spadConstant| $ 7)
                 . #0=(|FCPAK1;identitySquareMatrix;SPFc;5|))
           (LETT |u1| (|spadConstant| $ 27) . #0#)
           (LETT |i1| (SPADCALL "I1" (QREFELT $ 10)) . #0#)
           (LETT |lp1| (|spadConstant| $ 12) . #0#)
           (LETT |hp1| |n| . #0#)
           (LETT |segp1| (SPADCALL |lp1| |hp1| (QREFELT $ 14)) . #0#)
           (LETT |segbp1| (SPADCALL |i1| |segp1| (QREFELT $ 16)) . #0#)
           (LETT |i2| (SPADCALL "I2" (QREFELT $ 10)) . #0#)
           (LETT |segbp2| (SPADCALL |i2| |segp1| (QREFELT $ 16)) . #0#)
           (LETT |ip1| (SPADCALL |i1| (QREFELT $ 17)) . #0#)
           (LETT |ip2| (SPADCALL |i2| (QREFELT $ 17)) . #0#)
           (LETT |indice1| (LIST |ip1| |ip1|) . #0#)
           (LETT |indices| (LIST |ip1| |ip2|) . #0#)
           (LETT |fc|
                 (SPADCALL |segbp2|
                     (SPADCALL |fname| |indices| |ue| (QREFELT $ 20))
                     (QREFELT $ 21)) . #0#)
           (LETT |f1|
                 (SPADCALL |fname| |indice1| |u1| (QREFELT $ 20)) . #0#)
           (LETT |fl| (LIST |fc| |f1|) . #0#)
           (LETT |fa|
                 (SPADCALL |segbp1| (SPADCALL |fl| (QREFELT $ 29))
                     (QREFELT $ 21)) . #0#)
           (EXIT |fa|))))) 

(DEFUN |FortranCodePackage1| ()
  (PROG ()
    (RETURN
      (PROG (#0=#:G1827)
        (RETURN
          (COND
            ((LETT #0#
                   (HGET |$ConstructorCache| '|FortranCodePackage1|)
                   . #1=(|FortranCodePackage1|))
             (|CDRwithIncrement| (CDAR #0#)))
            ('T
             (UNWIND-PROTECT
               (PROG1 (CDDAR (HPUT |$ConstructorCache|
                                   '|FortranCodePackage1|
                                   (LIST
                                    (CONS NIL
                                     (CONS 1 (|FortranCodePackage1;|))))))
                 (LETT #0# T . #1#))
               (COND
                 ((NOT #0#)
                  (HREM |$ConstructorCache| '|FortranCodePackage1|))))))))))) 

(DEFUN |FortranCodePackage1;| ()
  (PROG (|dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT |dv$| '(|FortranCodePackage1|)
              . #0=(|FortranCodePackage1|))
        (LETT $ (GETREFV 31) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache| '|FortranCodePackage1| NIL
            (CONS 1 $))
        (|stuffDomainSlots| $)
        $)))) 

(MAKEPROP '|FortranCodePackage1| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|Expression| (|Integer|))
             (0 . |Zero|) (|String|) (|Symbol|) (4 . |coerce|)
             (|Polynomial| (|Integer|)) (9 . |One|) (|Segment| 11)
             (13 . |segment|) (|SegmentBinding| 11) (19 . |equation|)
             (25 . |coerce|) (|List| 11) (|FortranCode|)
             (30 . |assign|) (37 . |forLoop|)
             |FCPAK1;zeroVector;SPFc;1| |FCPAK1;zeroMatrix;S2PFc;2|
             (43 . |variable|) |FCPAK1;zeroMatrix;S2SbFc;3|
             |FCPAK1;zeroSquareMatrix;SPFc;4| (48 . |One|) (|List| $)
             (52 . |block|) |FCPAK1;identitySquareMatrix;SPFc;5|)
          '#(|zeroVector| 57 |zeroSquareMatrix| 63 |zeroMatrix| 69
             |identitySquareMatrix| 83)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 30
                                '(0 6 0 7 1 9 0 8 10 0 11 0 12 2 13 0
                                  11 11 14 2 15 0 9 13 16 1 11 0 9 17 3
                                  19 0 9 18 6 20 2 19 0 15 0 21 1 15 9
                                  0 24 0 6 0 27 1 19 0 28 29 2 0 19 9
                                  11 22 2 0 19 9 11 26 3 0 19 9 11 11
                                  23 3 0 19 9 15 15 25 2 0 19 9 11 30)))))
          '|lookupComplete|)) 

(MAKEPROP '|FortranCodePackage1| 'NILADIC T) 
