status = RM_SetSpeciesSaveOn(id, 1) ncomps = RM_FindComponents(id) nspecies = RM_GetSpeciesCount(id) do i = 1, nspecies status = RM_GetSpeciesName(id, i, name) write(*,*) name enddo