Lines Matching refs:array
121 PetscErrorCode F90Array1dCreate(void *array, MPI_Datatype type, PetscInt start, PetscInt len, F90Ar… in F90Array1dCreate() argument
125 if (!len) array = PETSC_NULL_SCALAR_Fortran; in F90Array1dCreate()
126 f90array1dcreatescalar_(array, &start, &len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in F90Array1dCreate()
128 if (!len) array = PETSC_NULL_REAL_Fortran; in F90Array1dCreate()
129 f90array1dcreatereal_(array, &start, &len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in F90Array1dCreate()
131 if (!len) array = PETSC_NULL_INTEGER_Fortran; in F90Array1dCreate()
132 f90array1dcreateint_(array, &start, &len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in F90Array1dCreate()
137 if (!len) array = PETSC_NULL_INTEGER_Fortran; in F90Array1dCreate()
138 f90array1dcreatempiint_(array, &start, &len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in F90Array1dCreate()
140 f90array1dcreatefortranaddr_(array, &start, &len, ptr PETSC_F90_2PTR_PARAM(ptrd)); in F90Array1dCreate()
167 PetscErrorCode F90Array1dAccess(F90Array1d *ptr, MPI_Datatype type, void **array PETSC_F90_2PTR_PRO… in F90Array1dAccess()
171 f90array1daccessscalar_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array1dAccess()
172 if (*array == PETSC_NULL_SCALAR_Fortran) *array = NULL; in F90Array1dAccess()
174 f90array1daccessreal_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array1dAccess()
175 if (*array == PETSC_NULL_REAL_Fortran) *array = NULL; in F90Array1dAccess()
177 f90array1daccessint_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array1dAccess()
178 if (*array == PETSC_NULL_INTEGER_Fortran) *array = NULL; in F90Array1dAccess()
180 f90array1daccessmpiint_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array1dAccess()
181 if (*array == PETSC_NULL_INTEGER_Fortran) *array = NULL; in F90Array1dAccess()
183 f90array1daccessfortranaddr_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array1dAccess()
284 PetscErrorCode F90Array2dCreate(void *array, MPI_Datatype type, PetscInt start1, PetscInt len1, Pet… in F90Array2dCreate() argument
288 f90array2dcreatescalar_(array, &start1, &len1, &start2, &len2, ptr PETSC_F90_2PTR_PARAM(ptrd)); in F90Array2dCreate()
290 f90array2dcreatereal_(array, &start1, &len1, &start2, &len2, ptr PETSC_F90_2PTR_PARAM(ptrd)); in F90Array2dCreate()
292 f90array2dcreateint_(array, &start1, &len1, &start2, &len2, ptr PETSC_F90_2PTR_PARAM(ptrd)); in F90Array2dCreate()
294 …f90array2dcreatefortranaddr_(array, &start1, &len1, &start2, &len2, ptr PETSC_F90_2PTR_PARAM(ptrd)… in F90Array2dCreate()
299 PetscErrorCode F90Array2dAccess(F90Array2d *ptr, MPI_Datatype type, void **array PETSC_F90_2PTR_PRO… in F90Array2dAccess()
303 f90array2daccessscalar_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array2dAccess()
305 f90array2daccessreal_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array2dAccess()
307 f90array2daccessint_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array2dAccess()
309 f90array2daccessfortranaddr_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array2dAccess()
370 PetscErrorCode F90Array3dCreate(void *array, MPI_Datatype type, PetscInt start1, PetscInt len1, Pet… in F90Array3dCreate() argument
374 …f90array3dcreatescalar_(array, &start1, &len1, &start2, &len2, &start3, &len3, ptr PETSC_F90_2PTR_… in F90Array3dCreate()
376 …f90array3dcreatereal_(array, &start1, &len1, &start2, &len2, &start3, &len3, ptr PETSC_F90_2PTR_PA… in F90Array3dCreate()
378 …f90array3dcreateint_(array, &start1, &len1, &start2, &len2, &start3, &len3, ptr PETSC_F90_2PTR_PAR… in F90Array3dCreate()
380 …f90array3dcreatefortranaddr_(array, &start1, &len1, &start2, &len2, &start3, &len3, ptr PETSC_F90_… in F90Array3dCreate()
385 PetscErrorCode F90Array3dAccess(F90Array3d *ptr, MPI_Datatype type, void **array PETSC_F90_2PTR_PRO… in F90Array3dAccess()
389 f90array3daccessscalar_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array3dAccess()
391 f90array3daccessreal_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array3dAccess()
393 f90array3daccessint_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array3dAccess()
395 f90array3daccessfortranaddr_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array3dAccess()
456 PetscErrorCode F90Array4dCreate(void *array, MPI_Datatype type, PetscInt start1, PetscInt len1, Pet… in F90Array4dCreate() argument
460 …f90array4dcreatescalar_(array, &start1, &len1, &start2, &len2, &start3, &len3, &start4, &len4, ptr… in F90Array4dCreate()
464 PetscErrorCode F90Array4dAccess(F90Array4d *ptr, MPI_Datatype type, void **array PETSC_F90_2PTR_PRO… in F90Array4dAccess()
468 f90array4daccessscalar_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array4dAccess()
470 f90array4daccessreal_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array4dAccess()
472 f90array4daccessint_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array4dAccess()
474 f90array4daccessfortranaddr_(ptr, array PETSC_F90_2PTR_PARAM(ptrd)); in F90Array4dAccess()
501 PETSC_EXTERN void f90array1dgetaddrscalar_(void *array, PetscFortranAddr *address) in f90array1dgetaddrscalar_() argument
503 *address = (PetscFortranAddr)array; in f90array1dgetaddrscalar_()
505 PETSC_EXTERN void f90array1dgetaddrreal_(void *array, PetscFortranAddr *address) in f90array1dgetaddrreal_() argument
507 *address = (PetscFortranAddr)array; in f90array1dgetaddrreal_()
509 PETSC_EXTERN void f90array1dgetaddrint_(void *array, PetscFortranAddr *address) in f90array1dgetaddrint_() argument
511 *address = (PetscFortranAddr)array; in f90array1dgetaddrint_()
513 PETSC_EXTERN void f90array1dgetaddrmpiint_(void *array, PetscFortranAddr *address) in f90array1dgetaddrmpiint_() argument
515 *address = (PetscFortranAddr)array; in f90array1dgetaddrmpiint_()
517 PETSC_EXTERN void f90array1dgetaddrfortranaddr_(void *array, PetscFortranAddr *address) in f90array1dgetaddrfortranaddr_() argument
519 *address = (PetscFortranAddr)array; in f90array1dgetaddrfortranaddr_()
534 PETSC_EXTERN void f90array2dgetaddrscalar_(void *array, PetscFortranAddr *address) in f90array2dgetaddrscalar_() argument
536 *address = (PetscFortranAddr)array; in f90array2dgetaddrscalar_()
538 PETSC_EXTERN void f90array2dgetaddrreal_(void *array, PetscFortranAddr *address) in f90array2dgetaddrreal_() argument
540 *address = (PetscFortranAddr)array; in f90array2dgetaddrreal_()
542 PETSC_EXTERN void f90array2dgetaddrint_(void *array, PetscFortranAddr *address) in f90array2dgetaddrint_() argument
544 *address = (PetscFortranAddr)array; in f90array2dgetaddrint_()
546 PETSC_EXTERN void f90array2dgetaddrfortranaddr_(void *array, PetscFortranAddr *address) in f90array2dgetaddrfortranaddr_() argument
548 *address = (PetscFortranAddr)array; in f90array2dgetaddrfortranaddr_()
563 PETSC_EXTERN void f90array3dgetaddrscalar_(void *array, PetscFortranAddr *address) in f90array3dgetaddrscalar_() argument
565 *address = (PetscFortranAddr)array; in f90array3dgetaddrscalar_()
567 PETSC_EXTERN void f90array3dgetaddrreal_(void *array, PetscFortranAddr *address) in f90array3dgetaddrreal_() argument
569 *address = (PetscFortranAddr)array; in f90array3dgetaddrreal_()
571 PETSC_EXTERN void f90array3dgetaddrint_(void *array, PetscFortranAddr *address) in f90array3dgetaddrint_() argument
573 *address = (PetscFortranAddr)array; in f90array3dgetaddrint_()
575 PETSC_EXTERN void f90array3dgetaddrfortranaddr_(void *array, PetscFortranAddr *address) in f90array3dgetaddrfortranaddr_() argument
577 *address = (PetscFortranAddr)array; in f90array3dgetaddrfortranaddr_()
592 PETSC_EXTERN void f90array4dgetaddrscalar_(void *array, PetscFortranAddr *address) in f90array4dgetaddrscalar_() argument
594 *address = (PetscFortranAddr)array; in f90array4dgetaddrscalar_()
596 PETSC_EXTERN void f90array4dgetaddrreal_(void *array, PetscFortranAddr *address) in f90array4dgetaddrreal_() argument
598 *address = (PetscFortranAddr)array; in f90array4dgetaddrreal_()
600 PETSC_EXTERN void f90array4dgetaddrint_(void *array, PetscFortranAddr *address) in f90array4dgetaddrint_() argument
602 *address = (PetscFortranAddr)array; in f90array4dgetaddrint_()
604 PETSC_EXTERN void f90array4dgetaddrfortranaddr_(void *array, PetscFortranAddr *address) in f90array4dgetaddrfortranaddr_() argument
606 *address = (PetscFortranAddr)array; in f90array4dgetaddrfortranaddr_()