63   MLClose(vmath->link);  in PetscViewerDestroy_Mathematica()
130   vmath->link = MLOpenInEnv(mathematicaEnv, argc, argv, &lerr);  in PetscViewerMathematicaSetupConnection_Private()
364 static PetscErrorCode PetscViewerMathematicaGetLink(PetscViewer viewer, MLINK *link)  in PetscViewerMathematicaGetLink()  argument
370   *link = vmath->link;  in PetscViewerMathematicaGetLink()
388   MLINK                    link  = vmath->link; /* The link to Mathematica */  in PetscViewerMathematicaSkipPackets()  local
392   while ((pkt = MLNextPacket(link)) && (pkt != type)) MLNewPacket(link);  in PetscViewerMathematicaSkipPackets()
394     MLClearError(link);  in PetscViewerMathematicaSkipPackets()
395     SETERRQ(PETSC_COMM_SELF, PETSC_ERR_LIB, (char *)MLErrorMessage(link));  in PetscViewerMathematicaSkipPackets()
469   MLINK                    link  = vmath->link; /* The link to Mathematica */  in PetscViewerMathematicaPutMatrix()  local
478   MLPutFunction(link, "EvaluatePacket", 1);  in PetscViewerMathematicaPutMatrix()
479   MLPutFunction(link, "Set", 2);  in PetscViewerMathematicaPutMatrix()
480   MLPutSymbol(link, name);  in PetscViewerMathematicaPutMatrix()
481   MLPutFunction(link, "Transpose", 1);  in PetscViewerMathematicaPutMatrix()
482   MLPutFunction(link, "Partition", 2);  in PetscViewerMathematicaPutMatrix()
483   MLPutRealList(link, a, m * n);  in PetscViewerMathematicaPutMatrix()
484   MLPutInteger(link, m);  in PetscViewerMathematicaPutMatrix()
485   MLEndPacket(link);  in PetscViewerMathematicaPutMatrix()
489   MLNewPacket(link);  in PetscViewerMathematicaPutMatrix()
496   MLINK                    link  = vmath->link; /* The link to Mathematica */  in PetscViewerMathematicaPutCSRMatrix()  local
507   MLPutFunction(link, "EvaluatePacket", 1);  in PetscViewerMathematicaPutCSRMatrix()
508   MLPutFunction(link, "Needs", 1);  in PetscViewerMathematicaPutCSRMatrix()
509   MLPutString(link, "LinearAlgebra`CSRMatrix`");  in PetscViewerMathematicaPutCSRMatrix()
510   MLEndPacket(link);  in PetscViewerMathematicaPutCSRMatrix()
514   MLNewPacket(link);  in PetscViewerMathematicaPutCSRMatrix()
517   MLPutFunction(link, "EvaluatePacket", 1);  in PetscViewerMathematicaPutCSRMatrix()
518   MLPutFunction(link, "Set", 2);  in PetscViewerMathematicaPutCSRMatrix()
519   MLPutSymbol(link, name);  in PetscViewerMathematicaPutCSRMatrix()
520   MLPutFunction(link, "CSRMatrix", 5);  in PetscViewerMathematicaPutCSRMatrix()
521   MLPutInteger(link, m);  in PetscViewerMathematicaPutCSRMatrix()
522   MLPutInteger(link, n);  in PetscViewerMathematicaPutCSRMatrix()
523   MLPutFunction(link, "Plus", 2);  in PetscViewerMathematicaPutCSRMatrix()
524   MLPutIntegerList(link, i, m + 1);  in PetscViewerMathematicaPutCSRMatrix()
525   MLPutInteger(link, 1);  in PetscViewerMathematicaPutCSRMatrix()
526   MLPutFunction(link, "Plus", 2);  in PetscViewerMathematicaPutCSRMatrix()
527   MLPutIntegerList(link, j, i[m]);  in PetscViewerMathematicaPutCSRMatrix()
528   MLPutInteger(link, 1);  in PetscViewerMathematicaPutCSRMatrix()
529   MLPutRealList(link, a, i[m]);  in PetscViewerMathematicaPutCSRMatrix()
530   MLEndPacket(link);  in PetscViewerMathematicaPutCSRMatrix()
534   MLNewPacket(link);  in PetscViewerMathematicaPutCSRMatrix()
537   MLPutFunction(link, "EvaluatePacket", 1);  in PetscViewerMathematicaPutCSRMatrix()
538   MLPutFunction(link, "ValidQ", 1);  in PetscViewerMathematicaPutCSRMatrix()
539   MLPutSymbol(link, name);  in PetscViewerMathematicaPutCSRMatrix()
540   MLEndPacket(link);  in PetscViewerMathematicaPutCSRMatrix()
542   MLGetSymbol(link, &symbol);  in PetscViewerMathematicaPutCSRMatrix()
545     MLDisownSymbol(link, symbol);  in PetscViewerMathematicaPutCSRMatrix()
548   MLDisownSymbol(link, symbol);  in PetscViewerMathematicaPutCSRMatrix()
550   MLNewPacket(link);  in PetscViewerMathematicaPutCSRMatrix()