JGonzalez/fpakc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

I get distracted and fix stupid warnings

Browse source
This commit is contained in:
Jorge Gonzalez 2026-02-18 20:47:33 +01:00
commit 3678942be4
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/modules/moduleCollisions.f90
View file

@ -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