subroutine int MAP_FROM int MAP_SCORE  \
	real SOLV_RAD 


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

return