c
c---Standard residues
      INTEGER    NRNAME_PAR,NRNAMEP_PAR,NRNAMED_PAR,NRNAMES_PAR
      INTEGER    NRNAMEPP_PAR,NRNAMEMP_PAR

      PARAMETER ( NRNAME_PAR  = 1000)
      PARAMETER ( NRNAMEP_PAR = 1000)
      PARAMETER ( NRNAMED_PAR = 1000)
      PARAMETER ( NRNAMES_PAR = 1000)
      PARAMETER ( NRNAMEPP_PAR = 1000)
      PARAMETER ( NRNAMEMP_PAR = 1000)

      COMMON/COM_RES_TYPE/  NRNAME_T,NRNAMEP_T,NRNAMED_T,NRNAMES_T
     *                     ,NRNAMEPP_T,NRNAMEMP_T
     *                     ,RNAME_T,RNAMEP_T,RNAMED_T,RNAMES_T
     *                     ,RNAMEPP_T,RNAMEMP_T
      INTEGER   NRNAME_T,NRNAMEP_T,NRNAMED_T,NRNAMES_T
      INTEGER   NRNAMEPP_T,NRNAMEMP_T
      CHARACTER RNAME_T (NRNAME_PAR )*16
      CHARACTER RNAMEP_T(NRNAMEP_PAR)*16
      CHARACTER RNAMED_T(NRNAMED_PAR)*16
      CHARACTER RNAMES_T(NRNAMES_PAR)*16
      CHARACTER RNAMEPP_T(NRNAMEPP_PAR)*16
      CHARACTER RNAMEMP_T(NRNAMEMP_PAR)*16