Advertisement
Guest User

Untitled

a guest
Jun 29th, 2018
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. i=0
  2. i=i+1
  3. listeInducteurs(i)%couplageTension=.true.
  4. listeInducteurs(i)%mGroupeMilieux%listeGroupes((/1,2,3,4,5/))=.true.
  5. listeInducteurs(i)%surfaceEntree=indiceGroupe("et1down")  ! enree : potentiel inposé
  6. listeInducteurs(i)%surfaceSortie=indiceGroupe("et2")  ! sortie potentiel 0
  7. i=i+1
  8. listeInducteurs(i)%couplageTension=.true.
  9. listeInducteurs(i)%mGroupeMilieux%listeGroupes((/1,2,3,4,5/))=.true.
  10. listeInducteurs(i)%surfaceEntree=indiceGroupe("et1up")
  11. listeInducteurs(i)%surfaceSortie=indiceGroupe("et2")
  12. nombreInducteurs = i
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement