==========================================================
 
      THIS IS TO COMPUTE THE GEOMTERY AND TO PRINT A
      PICTURE OF THE LATTICE
 
 ==========================================================
 
subroutine survey
 
COMMONS: 
common-initi.f
common-mml-lattice.f
common-2Dsc-simulation.f
 
SUBROUTINES USED:
  rotation
  drawing
 
micromap-index
Mon Jul 17 08:57:35 CEST 2017