====================================================================
 
       fx/y(x0,y1)___________ fx/y(x1,y1)
          |                      |
          |                      |
          |......fx/y(x,y).......|
          |                      |
          |                      |
       fx/y(x0,y0)___________ fx/y(x1,y0)
 
     here xx=(x-x0)/(x1-x0), and yy=(y-y0)/(y1-y0)
 
 ====================================================================
 
subroutine interp_ec_force(xx,yy,fx00,fx10,fx01,fx11, fy00,fy10,fy01,fy11,fx,fy)
 
COMMONS: 
common-initi.f
 
SUBROUTINES USED:
 
micromap-index
Mon Jul 17 08:57:48 CEST 2017