diff --git a/Source/func.f90 b/Source/func.f90
index bfd315dc851..2d89b7bc10d 100644
--- a/Source/func.f90
+++ b/Source/func.f90
@@ -1842,9 +1842,9 @@ REAL(EB) FUNCTION GET_PARTICLE_ENTHALPY(I_LPC,TMP_S)
 REAL(EB) :: RHO,RHO_H,VOL,DTMP,H_S,THICKNESS
 INTEGER :: I,N,ITMP,I_GRAD
 INTEGER, INTENT(IN) :: I_LPC
-TYPE(LAGRANGIAN_PARTICLE_CLASS_TYPE), POINTER :: LPC=>NULL()
-TYPE(SURFACE_TYPE), POINTER :: SF=>NULL()
-TYPE(MATERIAL_TYPE), POINTER :: ML=>NULL()
+TYPE(LAGRANGIAN_PARTICLE_CLASS_TYPE), POINTER :: LPC
+TYPE(SURFACE_TYPE), POINTER :: SF
+TYPE(MATERIAL_TYPE), POINTER :: ML
 
 LPC=>LAGRANGIAN_PARTICLE_CLASS(I_LPC)