1b3506946SBarry Smith 2afcb2eb5SJed Brown #include <petsc-private/petscimpl.h> /*I "petscsys.h" I*/ 3*665c2dedSJed Brown #include <petscviewer.h> 4b3506946SBarry Smith 5b3506946SBarry Smith /* 6b3506946SBarry Smith If true then every PETSc object will be published with the AMS 7b3506946SBarry Smith */ 8ace3abfcSBarry Smith PetscBool PetscAMSPublishAll; 9b3506946SBarry Smith 10b3506946SBarry Smith #undef __FUNCT__ 119fb22e1aSBarry Smith #define __FUNCT__ "PetscObjectAMSPublish" 12c457296dSBarry Smith /*@C 139fb22e1aSBarry Smith PetscObjectAMSPublish - Publish an object 14c457296dSBarry Smith 15c457296dSBarry Smith Collective on PetscObject 16c457296dSBarry Smith 17c457296dSBarry Smith Input Parameters: 18c457296dSBarry Smith . obj - the Petsc variable 19c457296dSBarry Smith Thus must be cast with a (PetscObject), for example, 20c457296dSBarry Smith PetscObjectSetName((PetscObject)mat,name); 21c457296dSBarry Smith 229fb22e1aSBarry Smith Notes: PetscViewer objects are not published 239fb22e1aSBarry Smith 24c457296dSBarry Smith Level: advanced 25c457296dSBarry Smith 26c457296dSBarry Smith Concepts: publishing object 27c457296dSBarry Smith 289fb22e1aSBarry Smith .seealso: PetscObjectSetName(), PetscObjectUnPublish() 29c457296dSBarry Smith 30c457296dSBarry Smith @*/ 317087cfbeSBarry Smith PetscErrorCode PetscObjectAMSPublish(PetscObject obj) 32b3506946SBarry Smith { 33c457296dSBarry Smith PetscErrorCode ierr; 34b3506946SBarry Smith AMS_Memory amem; 35b3506946SBarry Smith AMS_Comm acomm; 36b3506946SBarry Smith 37b3506946SBarry Smith PetscFunctionBegin; 38c457296dSBarry Smith PetscValidHeader(obj,1); 399fb22e1aSBarry Smith if (obj->classid == PETSC_VIEWER_CLASSID) PetscFunctionReturn(0); 40d8501e9cSBarry Smith if (obj->amem != -1) PetscFunctionReturn(0); 41b3506946SBarry Smith ierr = PetscObjectName(obj);CHKERRQ(ierr); 42b3506946SBarry Smith 431999dac5SBarry Smith ierr = PetscViewerAMSGetAMSComm(PETSC_VIEWER_AMS_(PETSC_COMM_WORLD),&acomm);CHKERRQ(ierr); 441999dac5SBarry Smith /* Really want to attach to correct communicator but then browser needs to access multiple communicators 451999dac5SBarry Smith ierr = PetscViewerAMSGetAMSComm(PETSC_VIEWER_AMS_(obj->comm),&acomm);CHKERRQ(ierr); */ 461999dac5SBarry Smith 47b3506946SBarry Smith ierr = AMS_Memory_create(acomm,obj->name,&amem);CHKERRQ(ierr); 48b3506946SBarry Smith obj->amem = (int)amem; 49b3506946SBarry Smith 50b3506946SBarry Smith ierr = AMS_Memory_take_access(amem);CHKERRQ(ierr); 51b3506946SBarry Smith ierr = AMS_Memory_add_field(amem,"Class",&obj->class_name,1,AMS_STRING,AMS_READ,AMS_COMMON,AMS_REDUCT_UNDEF);CHKERRQ(ierr); 52b3506946SBarry Smith ierr = AMS_Memory_add_field(amem,"Type",&obj->type_name,1,AMS_STRING,AMS_READ,AMS_COMMON,AMS_REDUCT_UNDEF);CHKERRQ(ierr); 53b3506946SBarry Smith ierr = AMS_Memory_add_field(amem,"Id",&obj->id,1,AMS_INT,AMS_READ,AMS_COMMON,AMS_REDUCT_UNDEF);CHKERRQ(ierr); 54b3506946SBarry Smith ierr = AMS_Memory_add_field(amem,"ParentId",&obj->parentid,1,AMS_INT,AMS_READ,AMS_COMMON,AMS_REDUCT_UNDEF);CHKERRQ(ierr); 55b3506946SBarry Smith ierr = AMS_Memory_add_field(amem,"Name",&obj->name,1,AMS_STRING,AMS_READ,AMS_COMMON,AMS_REDUCT_UNDEF);CHKERRQ(ierr); 56c457296dSBarry Smith if (obj->bops->publish) { 57c457296dSBarry Smith ierr = (*obj->bops->publish)(obj);CHKERRQ(ierr); 58c457296dSBarry Smith } 5910212d9eSBarry Smith ierr = AMS_Memory_publish(amem);CHKERRQ(ierr); 6010212d9eSBarry Smith ierr = AMS_Memory_grant_access(amem);CHKERRQ(ierr); 61b3506946SBarry Smith PetscFunctionReturn(0); 62b3506946SBarry Smith } 63b3506946SBarry Smith 6492e62aa6SBarry Smith #undef __FUNCT__ 65c457296dSBarry Smith #define __FUNCT__ "PetscObjectUnPublish" 66c457296dSBarry Smith PetscErrorCode PetscObjectUnPublish(PetscObject obj) 6792e62aa6SBarry Smith { 6892e62aa6SBarry Smith AMS_Comm acomm; 6992e62aa6SBarry Smith PetscErrorCode ierr; 7092e62aa6SBarry Smith 7192e62aa6SBarry Smith PetscFunctionBegin; 729fb22e1aSBarry Smith if (obj->classid == PETSC_VIEWER_CLASSID) PetscFunctionReturn(0); 7369590be7SBarry Smith if (obj->amem == -1) PetscFunctionReturn(0); 7492e62aa6SBarry Smith ierr = PetscViewerAMSGetAMSComm(PETSC_VIEWER_AMS_(obj->comm),&acomm);CHKERRQ(ierr); 7592e62aa6SBarry Smith ierr = AMS_Memory_destroy(obj->amem);CHKERRQ(ierr); 76d8501e9cSBarry Smith obj->amem = -1; 7792e62aa6SBarry Smith PetscFunctionReturn(0); 7892e62aa6SBarry Smith } 7992e62aa6SBarry Smith 80