zutils.c (62903a643c6f3b806cfd2df6dfd11354dcefb6c2) zutils.c (09f3b4e5628a00a1eaf17d80982cfbcc515cc9c1)
1#include "zpetsc.h"
2
3void *PETSCNULLPOINTERADDRESS = PETSC_NULL;
4
5/*MC
6 PetscFortranAddr - a variable type in Fortran that can hold a
7 regular C pointer.
8

--- 136 unchanged lines hidden (view full) ---

145 if (shift) {
146 (*PetscErrorPrintf)("PetscScalarAddressToFortran:C and Fortran arrays are\n");
147 (*PetscErrorPrintf)("not commonly aligned.\n");
148 /* double/int doesn't work with ADIC */
149 (*PetscErrorPrintf)("Locations/sizeof(PetscScalar): C %f Fortran %f\n",
150 ((PetscReal)tmp3)/(PetscReal)sizeof(PetscScalar),((PetscReal)tmp1)/(PetscReal)sizeof(PetscScalar));
151 MPI_Abort(PETSC_COMM_WORLD,1);
152 }
1#include "zpetsc.h"
2
3void *PETSCNULLPOINTERADDRESS = PETSC_NULL;
4
5/*MC
6 PetscFortranAddr - a variable type in Fortran that can hold a
7 regular C pointer.
8

--- 136 unchanged lines hidden (view full) ---

145 if (shift) {
146 (*PetscErrorPrintf)("PetscScalarAddressToFortran:C and Fortran arrays are\n");
147 (*PetscErrorPrintf)("not commonly aligned.\n");
148 /* double/int doesn't work with ADIC */
149 (*PetscErrorPrintf)("Locations/sizeof(PetscScalar): C %f Fortran %f\n",
150 ((PetscReal)tmp3)/(PetscReal)sizeof(PetscScalar),((PetscReal)tmp1)/(PetscReal)sizeof(PetscScalar));
151 MPI_Abort(PETSC_COMM_WORLD,1);
152 }
153 ierr = PetscLogInfo(((void*)obj,"PetscScalarAddressToFortran:Efficiency warning, copying array in XXXGetArray() due\n\
153 ierr = PetscVerboseInfo(((void*)obj,"PetscScalarAddressToFortran:Efficiency warning, copying array in XXXGetArray() due\n\
154 to alignment differences between C and Fortran\n"));CHKERRQ(ierr);
155 }
156 *res = itmp2;
157 return 0;
158}
159
160/*
161 obj - the PETSc object where the scalar pointer came from

--- 111 unchanged lines hidden --- 		154 to alignment differences between C and Fortran\n"));CHKERRQ(ierr);
155 }
156 *res = itmp2;
157 return 0;
158}
159
160/*
161 obj - the PETSc object where the scalar pointer came from

--- 111 unchanged lines hidden ---