370   PetscScalar *aa;  in petscshmgetallocatearrayscalar_()  local
372   *ierr = PetscShmgetAllocateArray(*len, sizeof(PetscScalar), (void **)&aa);  in petscshmgetallocatearrayscalar_()
374   *ierr = F90Array1dCreate(aa, MPIU_SCALAR, *start, *len, a PETSC_F90_2PTR_PARAM(ptrd));  in petscshmgetallocatearrayscalar_()
379   PetscScalar *aa;  in petscshmgetdeallocatearrayscalar_()  local
381   *ierr = F90Array1dAccess(a, MPIU_SCALAR, (void **)&aa PETSC_F90_2PTR_PARAM(ptrd));  in petscshmgetdeallocatearrayscalar_()
383   *ierr = PetscShmgetDeallocateArray((void **)&aa);  in petscshmgetdeallocatearrayscalar_()
390   PetscInt *aa;  in petscshmgetallocatearrayint_()  local
392   *ierr = PetscShmgetAllocateArray(*len, sizeof(PetscInt), (void **)&aa);  in petscshmgetallocatearrayint_()
394   *ierr = F90Array1dCreate(aa, MPIU_INT, *start, *len, a PETSC_F90_2PTR_PARAM(ptrd));  in petscshmgetallocatearrayint_()
399   PetscInt *aa;  in petscshmgetdeallocatearrayint_()  local
401   *ierr = F90Array1dAccess(a, MPIU_INT, (void **)&aa PETSC_F90_2PTR_PARAM(ptrd));  in petscshmgetdeallocatearrayint_()
403   *ierr = PetscShmgetDeallocateArray((void **)&aa);  in petscshmgetdeallocatearrayint_()