Fixed a bug related with reading information on linking species.

This commit is contained in:
Jorge Gonzalez 2020-12-22 16:52:05 +01:00
commit 159d1527e6
3 changed files with 137 additions and 0 deletions

View file

@ -279,6 +279,8 @@ MODULE moduleInput
!Reads relations between species
DO i = 1, nSpecies
WRITE(iString, '(I2)') i
object = 'species(' // TRIM(iString) // ')'
SELECT TYPE(sp => species(i)%obj)
TYPE IS (speciesNeutral)
!Gets species linked ion