anchor.diff:        subroutine ptname(cname, pname)
         character *4 cname
         character *16 pname
  -      pname = ''
  +      pname = ' '
         write(pname,'(a4)')cname 
         do i=1,4
             if(ichar(cname(i:i)).eq.92) then 
  
positive.code:       character *4 cname
        character *16 pname
        nind = 0
        pname = ''
        write(pname,'(a4)')cname 
        do i=1,4
            nind = nind+1
  
negative.code:                itrans = 0
              endif
              irot=q(jin+4)
              matrixs=' '
              if(irot.eq.0)then
                 matrix='0'
                 ncmatrix=1
  