diff --git a/src/modules/moduleCollisions.f90 b/src/modules/moduleCollisions.f90 index d9a6ef2..36eca2e 100644 --- a/src/modules/moduleCollisions.f90 +++ b/src/modules/moduleCollisions.f90 @@ -123,16 +123,16 @@ MODULE moduleCollisions END FUNCTION randomDirectionVHS !Inits the interaction matrix - SUBROUTINE initInteractionMatrix(interactionMatrix) + SUBROUTINE initInteractionMatrix(matrix) USE moduleSpecies IMPLICIT NONE - TYPE(interactionsBinary), INTENT(inout), ALLOCATABLE:: interactionMatrix(:) + TYPE(interactionsBinary), INTENT(inout), ALLOCATABLE:: matrix(:) nCollPairs = (nSpecies*(nSpecies+1))/2 - ALLOCATE(interactionMatrix(1:nCollPairs)) + ALLOCATE(matrix(1:nCollPairs)) - interactionMatrix(:)%amount = 0 + matrix(:)%amount = 0 END SUBROUTINE initInteractionMatrix