72d71
< c     et g
149,186d147
< 
<          orb1=orb
<          call repl(orb1,'5G(','5G0(',yrepl)
<          if(yrepl)write(94,'(a)') orb1(1:long+1)
<          yreplt=yreplt.or.yrepl
<          orb1=orb
<          call repl(orb1,'5G(','5G1+(',yrepl)
<          if(yrepl)write(94,'(a)') orb1(1:long+2)
<          yreplt=yreplt.or.yrepl
<          orb1=orb
<          call repl(orb1,'5G(','5G1-(',yrepl)
<          if(yrepl)write(94,'(a)') orb1(1:long+2)
<          yreplt=yreplt.or.yrepl
<          orb1=orb
<          call repl(orb1,'5G(','5G2+(',yrepl)
<          if(yrepl)write(94,'(a)') orb1(1:long+2)
<          yreplt=yreplt.or.yrepl
<          orb1=orb
<          call repl(orb1,'5G(','5G2-(',yrepl)
<          if(yrepl)write(94,'(a)') orb1(1:long+2)
<          yreplt=yreplt.or.yrepl
<          orb1=orb
<          call repl(orb1,'5G(','5G3+(',yrepl)
<          if(yrepl)write(94,'(a)') orb1(1:long+2)
<          yreplt=yreplt.or.yrepl
<          orb1=orb
<          call repl(orb1,'5G(','5G3-(',yrepl)
<          if(yrepl)write(94,'(a)') orb1(1:long+2)
<          yreplt=yreplt.or.yrepl
<          orb1=orb
<          call repl(orb1,'5G(','5G4+(',yrepl)
<          if(yrepl)write(94,'(a)') orb1(1:long+2)
<          yreplt=yreplt.or.yrepl
<          orb1=orb
<          call repl(orb1,'5G(','5G4-(',yrepl)
<          if(yrepl)write(94,'(a)') orb1(1:long+2)
<          yreplt=yreplt.or.yrepl
< 
188,189d148
< 
< 
509c468
< c     il y a encore des accolades ?
---
> c     il y a encore des acollades ?
