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: FREECHAR(filename,t);
44: #endif
45: }
49: void PETSC_STDCALL petsclogdump_(CHAR name PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len))
50: {
51: #if defined(PETSC_USE_LOG)
52: char *t1;
53: FIXCHAR(name,len,t1);
54: *PetscLogDump(t1);
55: FREECHAR(name,t1);
56: #endif
57: }
58: void PETSC_STDCALL petsclogeventregister_(PetscEvent *e,CHAR string PETSC_MIXED_LEN(len),int *cookie,PetscErrorCode *ierr PETSC_END_LEN(len))
59: {
60: #if defined(PETSC_USE_LOG)
61: char *t1;
62: FIXCHAR(string,len,t1);
63: *PetscLogEventRegister(e,t1,*cookie);
64: FREECHAR(string,t1);
65: #endif
66: }
67: void PETSC_STDCALL petsclogclassregister_(PetscCookie *e,CHAR string PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len))
68: {
69: #if defined(PETSC_USE_LOG)
70: char *t1;
71: FIXCHAR(string,len,t1);
73: *PetscLogClassRegister(e,t1);
74: FREECHAR(string,t1);
75: #endif
76: }
78: void PETSC_STDCALL petsclogallbegin_(PetscErrorCode *ierr){
79: #if defined(PETSC_USE_LOG)
80: *PetscLogAllBegin();
81: #endif
82: }
84: void PETSC_STDCALL petsclogdestroy_(PetscErrorCode *ierr){
85: #if defined(PETSC_USE_LOG)
86: *PetscLogDestroy();
87: #endif
88: }
90: void PETSC_STDCALL petsclogbegin_(PetscErrorCode *ierr){
91: #if defined(PETSC_USE_LOG)
92: *PetscLogBegin();
93: #endif
94: }
96: void PETSC_STDCALL petsclogeventbegin_(PetscEvent *e,PetscErrorCode *ierr){
97: *PetscLogEventBegin(*e,0,0,0,0);
98: }
100: void PETSC_STDCALL petsclogeventend_(PetscEvent *e,PetscErrorCode *ierr){
101: *PetscLogEventEnd(*e,0,0,0,0);
102: }
104: void PETSC_STDCALL petsclogflops_(int *f,PetscErrorCode *ierr) {
105: *PetscLogFlops(*f);
106: }
108: void PETSC_STDCALL petsclogstagepop_(PetscErrorCode *ierr)
109: {
110: #if defined(PETSC_USE_LOG)
111: *PetscLogStagePop();
112: #endif
113: }
115: void PETSC_STDCALL petsclogstageregister_(int *stage,CHAR sname PETSC_MIXED_LEN(len),PetscErrorCode *ierr PETSC_END_LEN(len))
116: {
117: #if defined(PETSC_USE_LOG)
118: char *t;
119: FIXCHAR(sname,len,t);
120: *PetscLogStageRegister(stage,t);
121: FREECHAR(sname,t);
122: #endif
123: }
125: void PETSC_STDCALL petsclogstagepush_(int *stage,PetscErrorCode *ierr){
126: #if defined(PETSC_USE_LOG)
127: *PetscLogStagePush(*stage);
128: #endif
129: }