Fixed a bug related with reading information on linking species.
This commit is contained in:
parent
35936ea918
commit
159d1527e6
3 changed files with 137 additions and 0 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue