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