Actual source code: zplog.c
2: #include src/fortran/custom/zpetsc.h
3: #include petscsys.h
5: #ifdef PETSC_HAVE_FORTRAN_CAPS
6: #define petsclogprintsummary_ PETSCLOGPRINTSUMMARY
7: #define petsclogeventbegin_ PETSCLOGEVENTBEGIN
8: #define petsclogeventend_ PETSCLOGEVENTEND
9: #define petsclogflops_ PETSCLOGFLOPS
10: #define petsclogallbegin_ PETSCLOGALLBEGIN
11: #define petsclogdestroy_ PETSCLOGDESTROY
12: #define petsclogbegin_ PETSCLOGBEGIN
13: #define petsclogdump_ PETSCLOGDUMP
14: #define petsclogeventregister_ PETSCLOGEVENTREGISTER
15: #define petsclogstagepop_ PETSCLOGSTAGEPOP
16: #define petsclogstageregister_ PETSCLOGSTAGEREGISTER
17: #define petsclogclassregister_ PETSCLOGCLASSREGISTER
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 petsclogclassregister_ petsclogclassregister
32: #define petsclogstagepush_ petsclogstagepush
33: #endif
37: void PETSC_STDCALL petsclogprintsummary_(MPI_Comm *comm,CHAR filename PETSC_MIXED_LEN(len),PetscErrorCode *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),PetscErrorCode *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_(PetscEvent *e,CHAR string PETSC_MIXED_LEN(len),int *cookie,PetscErrorCode *ierr PETSC_END_LEN(len))
58: {
59: #if defined(PETSC_USE_LOG)
60: char *t1;
61: FIXCHAR(string,len,t1);
62: *PetscLogEventRegister(e,t1,*cookie);
63: FREECHAR(string,t1);
64: #endif
65: }
66: void PETSC_STDCALL petsclogclassregister_(PetscCookie *e,CHAR string PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len))
67: {
68: #if defined(PETSC_USE_LOG)
69: char *t1;
70: FIXCHAR(string,len,t1);
72: *PetscLogClassRegister(e,t1);
73: FREECHAR(string,t1);
74: #endif
75: }
77: void PETSC_STDCALL petsclogallbegin_(PetscErrorCode *ierr){
78: #if defined(PETSC_USE_LOG)
79: *PetscLogAllBegin();
80: #endif
81: }
83: void PETSC_STDCALL petsclogdestroy_(PetscErrorCode *ierr){
84: #if defined(PETSC_USE_LOG)
85: *PetscLogDestroy();
86: #endif
87: }
89: void PETSC_STDCALL petsclogbegin_(PetscErrorCode *ierr){
90: #if defined(PETSC_USE_LOG)
91: *PetscLogBegin();
92: #endif
93: }
95: void PETSC_STDCALL petsclogeventbegin_(PetscEvent *e,PetscErrorCode *ierr){
96: *PetscLogEventBegin(*e,0,0,0,0);
97: }
99: void PETSC_STDCALL petsclogeventend_(PetscEvent *e,PetscErrorCode *ierr){
100: *PetscLogEventEnd(*e,0,0,0,0);
101: }
103: void PETSC_STDCALL petsclogflops_(int *f,PetscErrorCode *ierr) {
104: *PetscLogFlops(*f);
105: }
107: void PETSC_STDCALL petsclogstagepop_(PetscErrorCode *ierr)
108: {
109: #if defined(PETSC_USE_LOG)
110: *PetscLogStagePop();
111: #endif
112: }
114: void PETSC_STDCALL petsclogstageregister_(int *stage,CHAR sname PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len))
115: {
116: #if defined(PETSC_USE_LOG)
117: char *t;
118: FIXCHAR(sname,len,t);
119: *PetscLogStageRegister(stage,t);
120: #endif
121: }
123: void PETSC_STDCALL petsclogstagepush_(int *stage,PetscErrorCode *ierr){
124: #if defined(PETSC_USE_LOG)
125: *PetscLogStagePush(*stage);
126: #endif
127: }