From 3678942be489c95092340fe788b1d5dd54528c71 Mon Sep 17 00:00:00 2001 From: JGonzalez Date: Wed, 18 Feb 2026 20:47:33 +0100 Subject: [PATCH] I get distracted and fix stupid warnings --- src/modules/moduleCollisions.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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