replaced param(instance) with p => pointer, corrected error

2018-05-24 18:24:58 -04:00 · 2018-05-24 18:24:58 -04:00 · 982c0fb90a
parent f97800658f
commit 982c0fb90a
1 changed files with 1 additions and 1 deletions
--- 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) :: &