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 END FUNCTION randomDirectionVHS
!Inits the interaction matrix !Inits the interaction matrix
SUBROUTINE initInteractionMatrix(interactionMatrix) SUBROUTINE initInteractionMatrix(matrix)
USE moduleSpecies USE moduleSpecies
IMPLICIT NONE IMPLICIT NONE
TYPE(interactionsBinary), INTENT(inout), ALLOCATABLE:: interactionMatrix(:) TYPE(interactionsBinary), INTENT(inout), ALLOCATABLE:: matrix(:)
nCollPairs = (nSpecies*(nSpecies+1))/2 nCollPairs = (nSpecies*(nSpecies+1))/2
ALLOCATE(interactionMatrix(1:nCollPairs)) ALLOCATE(matrix(1:nCollPairs))
interactionMatrix(:)%amount = 0 matrix(:)%amount = 0
END SUBROUTINE initInteractionMatrix END SUBROUTINE initInteractionMatrix