
(/VERSIONCHECK 2) 

(DEFPARAMETER |FortranMatrixCategory;AL| 'NIL) 

(DEFUN |FortranMatrixCategory| ()
  (LET (#:G1817)
    (COND
      (|FortranMatrixCategory;AL|)
      (T (SETQ |FortranMatrixCategory;AL| (|FortranMatrixCategory;|)))))) 

(DEFUN |FortranMatrixCategory;| ()
  (PROG (#0=#:G1815)
    (RETURN
      (PROG1 (LETT #0#
                   (|Join| (|FortranProgramCategory|)
                           (|mkCategory| '|domain|
                               '(((|coerce|
                                      ($ (|Matrix| (|MachineFloat|))))
                                  T)
                                 ((|coerce|
                                      ($ (|List| (|FortranCode|))))
                                  T)
                                 ((|coerce| ($ (|FortranCode|))) T)
                                 ((|coerce|
                                      ($
                                       (|Record|
                                        (|:| |localSymbols|
                                         (|SymbolTable|))
                                        (|:| |code|
                                         (|List| (|FortranCode|))))))
                                  T))
                               NIL
                               '((|FortranCode|)
                                 (|List| (|FortranCode|))
                                 (|Matrix| (|MachineFloat|)))
                               NIL))
                   |FortranMatrixCategory|)
        (SETELT #0# 0 '(|FortranMatrixCategory|)))))) 

(MAKEPROP '|FortranMatrixCategory| 'NILADIC T) 
