subroutine int MAP_FROM int MAP_TO int MAP_SCORE  \
	real SOLV_RAD \
	real SOLV_CUT 


make map MAP_SCORE  from MAP_FROM init 9999 cell 
! if you know how, you can make the MAP_SCORE 
! to incompass only the asymmetric unit:
! make map MAP_SCORE from MAP_FROM init 9999 box 0 0 0 30 40 50

make map MAP_SCORE from MAP_FROM cut 0.0 radi SOLV_RAD weight linea
analyze init 
analyze map MAP_SCORE step 256

make map MAP_SCORE analyzes range SOLV_CUT
make map MAP_SCORE from MAP_FROM copy

make map MAP_TO from MAP_SCORE cell

return