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 petsclogstagepush_        PETSCLOGSTAGEPUSH
 19: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 20: #define petsclogprintsummary_     petsclogprintsummary
 21: #define petsclogeventbegin_       petsclogeventbegin
 22: #define petsclogeventend_         petsclogeventend
 23: #define petsclogflops_            petsclogflops
 24: #define petsclogallbegin_         petsclogallbegin
 25: #define petsclogdestroy_          petsclogdestroy
 26: #define petsclogbegin_            petsclogbegin
 27: #define petsclogeventregister_    petsclogeventregister
 28: #define petsclogdump_             petsclogdump
 29: #define petsclogstagepop_         petsclogstagepop  
 30: #define petsclogstageregister_    petsclogstageregister
 31: #define petsclogstagepush_        petsclogstagepush
 32: #endif

 34: EXTERN_C_BEGIN

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



 48: void PETSC_STDCALL petsclogdump_(CHAR name PETSC_MIXED_LEN(len),int *ierr PETSC_END_LEN(len))
 49: {
 50: #if defined(PETSC_USE_LOG)
 51:   char *t1;
 52:   FIXCHAR(name,len,t1);
 53:   *PetscLogDump(t1);
 54:   FREECHAR(name,t1);
 55: #endif
 56: }
 57: void PETSC_STDCALL petsclogeventregister_(int *e,CHAR string PETSC_MIXED_LEN(len1),
 58:                CHAR color PETSC_MIXED_LEN(len2),int *ierr PETSC_END_LEN(len1) PETSC_END_LEN(len2))
 59: {
 60: #if defined(PETSC_USE_LOG)
 61:   char *t1,*t2;
 62:   FIXCHAR(string,len1,t1);
 63:   FIXCHAR(color,len2,t2);

 65:   *PetscLogEventRegister(e,t1,t2);
 66:   FREECHAR(string,t1);
 67:   FREECHAR(color,t2);
 68: #endif
 69: }

 71: void PETSC_STDCALL petsclogallbegin_(int *ierr){
 72: #if defined(PETSC_USE_LOG)
 73:   *PetscLogAllBegin();
 74: #endif
 75: }

 77: void PETSC_STDCALL petsclogdestroy_(int *ierr){
 78: #if defined(PETSC_USE_LOG)
 79:   *PetscLogDestroy();
 80: #endif
 81: }

 83: void PETSC_STDCALL petsclogbegin_(int *ierr){
 84: #if defined(PETSC_USE_LOG)
 85:   *PetscLogBegin();
 86: #endif
 87: }

 89: void PETSC_STDCALL petsclogeventbegin_(int *e,PetscObject *o1,PetscObject *o2,PetscObject *o3,PetscObject *o4, int *_ierr){
 90:   *_PetscLogEventBegin(*e,*o1,*o2,*o3,*o4);
 91: }

 93: void PETSC_STDCALL petsclogeventend_(int *e,PetscObject *o1,PetscObject *o2,PetscObject *o3,PetscObject *o4, int *_ierr){
 94:   *_PetscLogEventEnd(*e,*o1,*o2,*o3,*o4);
 95: }

 97: void PETSC_STDCALL petsclogflops_(int *f,int *_ierr) {
 98:   *_PetscLogFlops(*f);
 99: }

101: void PETSC_STDCALL petsclogstagepop_(int *ierr)
102: {
103: #if defined(PETSC_USE_LOG)
104:   *PetscLogStagePop();
105: #endif
106: }

108: void PETSC_STDCALL petsclogstageregister_(int *stage,CHAR sname PETSC_MIXED_LEN(len),
109:                                       int *ierr PETSC_END_LEN(len))
110: {
111: #if defined(PETSC_USE_LOG)
112:   char *t;
113:   FIXCHAR(sname,len,t);
114:   *PetscLogStageRegister(*stage,t);
115: #endif
116: }

118: void PETSC_STDCALL petsclogstagepush_(int *stage,int *ierr){
119: #if defined(PETSC_USE_LOG)
120:   *PetscLogStagePush(*stage);
121: #endif
122: }

124: EXTERN_C_END