Fix regression in Fortran Interfaces for Particles (AMReX-Codes#3565)

The proposed changes:
- [x] fix a bug or incorrect behavior in AMReX
- [ ] add new capabilities to AMReX
- [ ] changes answers in the test suite to more than roundoff level
- [ ] are likely to significantly affect the results of downstream AMReX
users
- [ ] include documentation in the code and/or rst files, if appropriate

Src/F_Interfaces/Particle/AMReX_particlecontainer_fi.cpp

@@ -81,7 +81,7 @@ extern "C" {
             np = particle_tile.numParticles();
             if (np > 0) {
                 auto& aos = particle_tile.GetArrayOfStructs();
-                dp = aos.data();
+                dp = reinterpret_cast<FParticleContainer::ParticleType*>(aos.data());
             } else {
                 dp = nullptr;
             }
@@ -127,7 +127,7 @@ extern "C" {
             np = particle_tile.numParticles();
             if (np > 0) {
                 auto& aos = particle_tile.GetArrayOfStructs();
-                dp = aos.data();
+                dp = reinterpret_cast<FParticleContainer::ParticleType*>(aos.data());
             } else {
                 dp = nullptr;
             }