C -------------------------------------------
C      INCLUDE 'sfch_xml.fh'
C -------------------------------------------
      COMMON /COM_XML_SFCH/ IERR_XML,NSYM_XML,COMPL_XML
     *                     ,BOVERALL_XML,OPT_RES_XML,VOL_XML
     *                     ,PST_XML,TWIN_XML
     *                     ,SCORE_D_XML,SCORE_C_XML,ANISO_XML
     *                     ,CORR_XML,RFAC_XML,RESMAX_XML,RESMIN_XML
     *                     ,SCORE_C_FIRST_XML,SCORE_C_PREV_XML
     *                     ,RESMAX_USED_XML
     *                     ,JOB_XML,MESSAGE_XML,FILE_XML,FILE_PH_XML
     *                     ,CELL_XML,SG_XML
C --
      REAL      COMPL_XML,BOVERALL_XML,OPT_RES_XML,VOL_XML
     *         ,PST_XML,TWIN_XML
     *         ,SCORE_D_XML,SCORE_C_XML,ANISO_XML
     *         ,CORR_XML,RFAC_XML,RESMAX_XML,RESMIN_XML
     *         ,SCORE_C_FIRST_XML,SCORE_C_PREV_XML
     *         ,RESMAX_USED_XML
      INTEGER   IERR_XML,NSYM_XML
      CHARACTER JOB_XML*80,MESSAGE_XML*80,FILE_XML*256
     *         ,CELL_XML*80,SG_XML*80,FILE_PH_XML*256
C ----
      INTEGER   NCHMAX
      PARAMETER ( NCHMAX = 100 )
      COMMON /COM_XML_SFCH2/ NCHAIN_XML,NUMB_CH,CONN_CH,CONN_CH_A
     *                      ,CHAIN_ID_XML
      REAL      CONN_CH(NCHMAX),CONN_CH_A(NCHMAX)
      INTEGER   NCHAIN_XML,NUMB_CH(NCHMAX)
      CHARACTER CHAIN_ID_XML(NCHMAX)*1
C -------------------------------------------