anchor.diff:        shrf = 'none'
         coulf = 'none'
         gmtf = 'none'
  +      emprel = 'WC'
         flttyp = 1
         auto = 0
         xy = 0
  
positive.code:                   read(tag,'(BN,F10.0)') incr
                    if (auto.eq.2.or.auto.eq.3) incr = -incr
                endif
            elseif (tag(1:4).eq.'-gmt') then
                kgmt = 1
                i = i + 1
  
negative.code:      1       '-------------------------')
        STOP
        END
  