1e5c89e4eSSatish Balay 2c6db04a5SJed Brown #include <petscsys.h> 3e5c89e4eSSatish Balay 4e5c89e4eSSatish Balay /*@C 5e3c5b3baSBarry Smith PetscStartMatlab - starts up MATLAB with a MATLAB script 6e5c89e4eSSatish Balay 7d083f849SBarry Smith Logically Collective, but only processor zero in the communicator does anything 8e5c89e4eSSatish Balay 9e5c89e4eSSatish Balay Input Parameters: 10e5c89e4eSSatish Balay + comm - MPI communicator 11e3c5b3baSBarry Smith . machine - optional machine to run MATLAB on 12e5c89e4eSSatish Balay - script - name of script (without the .m) 13e5c89e4eSSatish Balay 14e5c89e4eSSatish Balay Output Parameter: 15*811af0c4SBarry Smith . fp - a file pointer returned from `PetscPOpen()` 16e5c89e4eSSatish Balay 17e5c89e4eSSatish Balay Level: intermediate 18e5c89e4eSSatish Balay 19e5c89e4eSSatish Balay Notes: 20e5c89e4eSSatish Balay This overwrites your matlab/startup.m file 21e5c89e4eSSatish Balay 22e3c5b3baSBarry Smith The script must be in your MATLAB path or current directory 23e5c89e4eSSatish Balay 24e5c89e4eSSatish Balay Assumes that all machines share a common file system 25e5c89e4eSSatish Balay 26db781477SPatrick Sanan .seealso: `PetscPOpen()`, `PetscPClose()` 27e5c89e4eSSatish Balay @*/ 289371c9d4SSatish Balay PetscErrorCode PetscStartMatlab(MPI_Comm comm, const char machine[], const char script[], FILE **fp) { 29e5c89e4eSSatish Balay FILE *fd; 30e5c89e4eSSatish Balay char command[512]; 31e5c89e4eSSatish Balay #if defined(PETSC_HAVE_UCBPS) && defined(PETSC_HAVE_POPEN) 32e5c89e4eSSatish Balay char buf[1024], *found; 33e5c89e4eSSatish Balay PetscMPIInt rank; 34e5c89e4eSSatish Balay #endif 35e5c89e4eSSatish Balay 36e5c89e4eSSatish Balay PetscFunctionBegin; 37e5c89e4eSSatish Balay #if defined(PETSC_HAVE_UCBPS) && defined(PETSC_HAVE_POPEN) 38e3c5b3baSBarry Smith /* check if MATLAB is not already running */ 399566063dSJacob Faibussowitsch PetscCall(PetscPOpen(comm, machine, "/usr/ucb/ps -ugxww | grep matlab | grep -v grep", "r", &fd)); 409566063dSJacob Faibussowitsch PetscCallMPI(MPI_Comm_rank(comm, &rank)); 41dd400576SPatrick Sanan if (rank == 0) found = fgets(buf, 1024, fd); 429566063dSJacob Faibussowitsch PetscCallMPI(MPI_Bcast(&found, 1, MPI_CHAR, 0, comm)); 439566063dSJacob Faibussowitsch PetscCall(PetscPClose(comm, fd)); 44e5c89e4eSSatish Balay if (found) PetscFunctionReturn(0); 45e5c89e4eSSatish Balay #endif 46e5c89e4eSSatish Balay 47e5c89e4eSSatish Balay if (script) { 48e3c5b3baSBarry Smith /* the remote machine won't know about current directory, so add it to MATLAB path */ 49e5c89e4eSSatish Balay /* the extra \" are to protect possible () in the script command from the shell */ 50e5c89e4eSSatish Balay sprintf(command, "echo \"delete ${HOMEDIRECTORY}/matlab/startup.m ; path(path,'${WORKINGDIRECTORY}'); %s \" > ${HOMEDIRECTORY}/matlab/startup.m", script); 51e5c89e4eSSatish Balay #if defined(PETSC_HAVE_POPEN) 529566063dSJacob Faibussowitsch PetscCall(PetscPOpen(comm, machine, command, "r", &fd)); 539566063dSJacob Faibussowitsch PetscCall(PetscPClose(comm, fd)); 54e5c89e4eSSatish Balay #endif 55e5c89e4eSSatish Balay } 56e5c89e4eSSatish Balay #if defined(PETSC_HAVE_POPEN) 579566063dSJacob Faibussowitsch PetscCall(PetscPOpen(comm, machine, "xterm -display ${DISPLAY} -e matlab -nosplash", "r", fp)); 58e5c89e4eSSatish Balay #endif 59e5c89e4eSSatish Balay PetscFunctionReturn(0); 60e5c89e4eSSatish Balay } 61