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