===============================================================
 
SUBROUTINE FIND_D3(delta,xc1,xc2,xc3,D1,DP1,D2,DP2,D3,DP3)
 
COMMONS: 
common-initi.f
 
SUBROUTINES USED:
 
micromap-index
Mon Jul 17 08:57:33 CEST 2017