anchor.diff:           open(15,file=trim(header)//'chi.dat')
            do
               read(15,'(A)',end=311,err=311) buf
  -            dict_out = trim(dict_out)//trim(buf)//NEW_LINE('A')
  +            !dict_out = trim(dict_out)//trim(buf)//NEW_LINE('A')
            end do
    311     close(15)
         else
  
positive.code: 
        character*40 ttl
        character*2  titre
        common /char/ titre(30), ttl
  
        character*2  ttire(9)
        data ttire /'s ', 'p*', 'p ', 'd*', 'd ', 'f*', 'f ','g*', 'g '/
  
negative.code: 
        character*40 ttl
        character*2  titre
        common /char2/ titre(30), ttl
  
        dimension tden(30)
        character*30 fname
  