Fortran error in geany : i am trying to run the sub routine in geany, bur it keeps me giving the following warning  
NPJ(I,J) = DBLE(((2)/((X(I+1))-(X(I-1))))*DBLE(-((1)/(X(I+1)-X(I)))-((1)/(X(I)-
X(I-1)))))+  & 

             1
Warning: Possible change of value in conversion from REAL(8) to INTEGER(4) at (1)
     
    

  [ERROR][1]

   
      


  [1]: https://i.stack.imgur.com/dbITw.png

AND everytime i run the program it gives that I am getting divisions by zero

thanks a lot