Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- i=0
- i=i+1
- listeInducteurs(i)%couplageTension=.true.
- listeInducteurs(i)%mGroupeMilieux%listeGroupes((/1,2,3,4,5/))=.true.
- listeInducteurs(i)%surfaceEntree=indiceGroupe("et1down") ! enree : potentiel inposé
- listeInducteurs(i)%surfaceSortie=indiceGroupe("et2") ! sortie potentiel 0
- i=i+1
- listeInducteurs(i)%couplageTension=.true.
- listeInducteurs(i)%mGroupeMilieux%listeGroupes((/1,2,3,4,5/))=.true.
- listeInducteurs(i)%surfaceEntree=indiceGroupe("et1up")
- listeInducteurs(i)%surfaceSortie=indiceGroupe("et2")
- nombreInducteurs = i
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement