
Changed for porting to MAC:
  IMAG changed by DIMAG
  print by write(*,*)
  Cleaning common blocks (the variables have the same names)
  Bugs in declaration of DIFFRACTION common block
  Other cleaning
C. Potee+ M. Sanchez del Rio, June 2000




Changed in perfect_crystalmo.f AIMAG by imag
MSR 97/02/04

Small modification for compilation in irix documented in matparmo.f
MSR 97/10/29
