diff --git a/src/plastic_isotropic.f90 b/src/plastic_isotropic.f90 index 631e9661a..fe415f479 100644 --- a/src/plastic_isotropic.f90 +++ b/src/plastic_isotropic.f90 @@ -130,7 +130,7 @@ subroutine plastic_isotropic_init(fileUnit) implicit none integer(pInt), intent(in) :: fileUnit - type tParameters, pointer :: p + type(tParameters), pointer :: p integer(pInt), allocatable, dimension(:) :: chunkPos integer(pInt) :: &