anchor.diff:              call setOut(n)
             endif
             OPEN(210,FILE='ErrorLog.txt',POSITION='APPEND')
  -            write(210,25) n,ix(3)
  +            write(210,25) n,int(ix(3))
             CLOSE(210)
             cycle
           endif
  
positive.code:             call setOut(n)
            endif
            OPEN(210,FILE='ErrorLog.txt',POSITION='APPEND')
              write(210,26) n,ix(3)
            CLOSE(210)
            cycle
          endif
  
negative.code:           OPEN(210,FILE='ErrorLog.txt',POSITION='APPEND')
              SELECT CASE (ele_err)
                CASE(1,4)
                  write(210,27) n,int(ix(3))
                CASE(2,5)
                  write(210,28) n,int(ix(3))
                CASE(3,6)
                  write(210,29) n,int(ix(3))
              END SELECT
            CLOSE(210)
            cycle
  