Actual source code: zplog.c

  1: /*$Id: zplog.c,v 1.29 2001/02/17 21:23:33 bsmith Exp $*/

 3:  #include src/fortran/custom/zpetsc.h
 4:  #include petscsys.h

  6: #ifdef PETSC_HAVE_FORTRAN_CAPS
  7: #define petsclogprintsummary_     PETSCLOGPRINTSUMMARY
  8: #define petsclogeventbegin_       PETSCLOGEVENTBEGIN
  9: #define petsclogeventend_         PETSCLOGEVENTEND
 10: #define petsclogflops_            PETSCLOGFLOPS
 11: #define petsclogallbegin_         PETSCLOGALLBEGIN
 12: #define petsclogdestroy_          PETSCLOGDESTROY
 13: #define petsclogbegin_            PETSCLOGBEGIN
 14: #define petsclogdump_             PETSCLOGDUMP
 15: #define petsclogeventregister_    PETSCLOGEVENTREGISTER
 16: #define petsclogstagepop_         PETSCLOGSTAGEPOP
 17: #define petsclogstageregister_    PETSCLOGSTAGEREGISTER
 18: #define petsclogclassregister_    PETSCLOGCLASSREGISTER
 19: #define petsclogstagepush_        PETSCLOGSTAGEPUSH
 20: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 21: #define petsclogprintsummary_     petsclogprintsummary
 22: #define petsclogeventbegin_       petsclogeventbegin
 23: #define petsclogeventend_         petsclogeventend
 24: #define petsclogflops_            petsclogflops
 25: #define petsclogallbegin_         petsclogallbegin
 26: #define petsclogdestroy_          petsclogdestroy
 27: #define petsclogbegin_            petsclogbegin
 28: #define petsclogeventregister_    petsclogeventregister
 29: #define petsclogdump_             petsclogdump
 30: #define petsclogstagepop_         petsclogstagepop  
 31: #define petsclogstageregister_    petsclogstageregister
 32: #define petsclogclassregister_    petsclogclassregister
 33: #define petsclogstagepush_        petsclogstagepush
 34: #endif

 36: EXTERN_C_BEGIN

 38: void PETSC_STDCALL petsclogprintsummary_(MPI_Comm *comm,CHAR filename PETSC_MIXED_LEN(len),
 39:                                       int *ierr PETSC_END_LEN(len))
 40: {
 41: #if defined(PETSC_USE_LOG)
 42:   char *t;
 43:   FIXCHAR(filename,len,t);
 44:   *PetscLogPrintSummary((MPI_Comm)PetscToPointerComm(*comm),t);
 45: #endif
 46: }



 50: void PETSC_STDCALL petsclogdump_(CHAR name PETSC_MIXED_LEN(len),int *ierr PETSC_END_LEN(len))
 51: {
 52: #if defined(PETSC_USE_LOG)
 53:   char *t1;
 54:   FIXCHAR(name,len,t1);
 55:   *PetscLogDump(t1);
 56:   FREECHAR(name,t1);
 57: #endif
 58: }
 59: void PETSC_STDCALL petsclogeventregister_(int *e,CHAR string PETSC_MIXED_LEN(len),
 60:                int *cookie,int *ierr PETSC_END_LEN(len))
 61: {
 62: #if defined(PETSC_USE_LOG)
 63:   char *t1;
 64:   FIXCHAR(string,len,t1);
 65:   *PetscLogEventRegister(e,t1,*cookie);
 66:   FREECHAR(string,t1);
 67: #endif
 68: }
 69: void PETSC_STDCALL petsclogclassregister_(int *e,CHAR string PETSC_MIXED_LEN(len),
 70:                int *ierr PETSC_END_LEN(len))
 71: {
 72: #if defined(PETSC_USE_LOG)
 73:   char *t1;
 74:   FIXCHAR(string,len,t1);

 76:   *PetscLogClassRegister(e,t1);
 77:   FREECHAR(string,t1);
 78: #endif
 79: }

 81: void PETSC_STDCALL petsclogallbegin_(int *ierr){
 82: #if defined(PETSC_USE_LOG)
 83:   *PetscLogAllBegin();
 84: #endif
 85: }

 87: void PETSC_STDCALL petsclogdestroy_(int *ierr){
 88: #if defined(PETSC_USE_LOG)
 89:   *PetscLogDestroy();
 90: #endif
 91: }

 93: void PETSC_STDCALL petsclogbegin_(int *ierr){
 94: #if defined(PETSC_USE_LOG)
 95:   *PetscLogBegin();
 96: #endif
 97: }

 99: void PETSC_STDCALL petsclogeventbegin_(int *e,PetscObject *o1,PetscObject *o2,PetscObject *o3,PetscObject *o4, int *_ierr){
100:   *_PetscLogEventBegin(*e,*o1,*o2,*o3,*o4);
101: }

103: void PETSC_STDCALL petsclogeventend_(int *e,PetscObject *o1,PetscObject *o2,PetscObject *o3,PetscObject *o4, int *_ierr){
104:   *_PetscLogEventEnd(*e,*o1,*o2,*o3,*o4);
105: }

107: void PETSC_STDCALL petsclogflops_(int *f,int *_ierr) {
108:   *_PetscLogFlops(*f);
109: }

111: void PETSC_STDCALL petsclogstagepop_(int *ierr)
112: {
113: #if defined(PETSC_USE_LOG)
114:   *PetscLogStagePop();
115: #endif
116: }

118: void PETSC_STDCALL petsclogstageregister_(int *stage,CHAR sname PETSC_MIXED_LEN(len),
119:                                           int *ierr PETSC_END_LEN(len))
120: {
121: #if defined(PETSC_USE_LOG)
122:   char *t;
123:   FIXCHAR(sname,len,t);
124:   *PetscLogStageRegister(stage,t);
125: #endif
126: }

128: void PETSC_STDCALL petsclogstagepush_(int *stage,int *ierr){
129: #if defined(PETSC_USE_LOG)
130:   *PetscLogStagePush(*stage);
131: #endif
132: }

134: EXTERN_C_END