C##INCLUDE## GEN_FILE_HEADER COMMON /GEN_FILE_HEADER/ TITLE, CRYSTAL_ID, UNIT_CELL_INFO CHARACTER*76 TITLE CHARACTER*6 CRYSTAL_ID CHARACTER*80 UNIT_CELL_INFO C C====== Unit_cell_info : contains recip. cell parameters, crystal system C====== and alignment info in free text format C C####END####