*** /var/tmp/,RCSt1a13865	Sat Apr 13 21:19:07 2002
--- infile.c	Sat Apr 13 16:38:47 2002
***************
*** 776,784
  
  static void ProcessPDBBond( void )
  {
!     register int srcatm;
!     register int dstatm;
!     register int i, len;
  
      len = strlen(Record);
      if( len < 16 ) return;

--- 776,785 -----
  
  static void ProcessPDBBond( void )
  {
!     register Long srcatm;
!     register Long dstatm;
!     register int i;
!     register size_t len;
  
      len = strlen(Record);
      if( len < (size_t)16 ) return;
***************
*** 781,788
      register int i, len;
  
      len = strlen(Record);
!     if( len < 16 ) return;
!     srcatm = (int)ReadValue(6,5);
      if( !srcatm ) return;
  
      for( i=11; i<=26 && Record[i]; i+=5 )

--- 782,789 -----
      register size_t len;
  
      len = strlen(Record);
!     if( len < (size_t)16 ) return;
!     srcatm = (Long)ReadValue(6,5);
      if( !srcatm ) return;
  
      for( i=11; i<=26 && Record[i]; i+=5 )
***************
*** 786,793
      if( !srcatm ) return;
  
      for( i=11; i<=26 && Record[i]; i+=5 )
!     { if( len < i+5 ) return;
!       dstatm = (int)ReadValue(i,5);
        if( dstatm )
        CreateNewBond(srcatm,dstatm);
      }

--- 787,794 -----
      if( !srcatm ) return;
  
      for( i=11; i<=26 && Record[i]; i+=5 )
!     { if( len < (size_t)(i+5) ) return;
!       dstatm = (Long)ReadValue(i,5);
        if( dstatm )
        CreateNewBond(srcatm,dstatm);
      }
***************
*** 793,799
      }
  
      for( i=31; i<=56 && Record[i]; i+=5 )
!     { if( len < i+5 ) return;
        dstatm = (int)ReadValue(i,5);
        if( i < 41 || (i > 45 && i < 56)) {
          if( dstatm && srcatm < dstatm )

--- 794,800 -----
      }
  
      for( i=31; i<=56 && Record[i]; i+=5 )
!     { if( len < (size_t)(i+5) ) return;
        dstatm = (int)ReadValue(i,5);
        if( i < 41 || (i > 45 && i < 56)) {
          if( dstatm && srcatm < dstatm )
***************
*** 1271,1277
      double xpos, ypos, zpos;
      long features, sets, serno;
      long atoms, bonds, structs;
!     long srcatm, dstatm;
   
      char name[20];
      char type[8];

--- 1272,1278 -----
      double xpos, ypos, zpos;
      long features, sets, serno;
      long atoms, bonds, structs;
!     Long srcatm, dstatm;
   
      char name[20];
      char type[8];
***************
*** 1312,1318
   
                   ptr = CreateAtom(); 
                   ptr->refno = FindSybylRefNo( type );
!                  ptr->serno = serno;
                   /* ptr->serno = i; */
   
                   ptr->xorg =  (Long)(250.0*xpos);

--- 1313,1319 -----
   
                   ptr = CreateAtom(); 
                   ptr->refno = FindSybylRefNo( type );
!                  ptr->serno = (Long)serno;
                   /* ptr->serno = i; */
   
                   ptr->xorg =  (Long)(250.0*xpos);
***************
*** 1370,1376
  
  int LoadAlchemyMolecule( FILE *fp )
  {
!     auto long serno,srcatm,dstatm;
      register Atom __far *ptr;
      register Long atoms, bonds;
      register char *chptr;

--- 1371,1377 -----
  
  int LoadAlchemyMolecule( FILE *fp )
  {
!     auto Long serno,srcatm,dstatm;
      register Atom __far *ptr;
      register Long atoms, bonds;
      register char *chptr;
***************
*** 1810,1816
  {
      register int lstr, ii;
  
!     lstr = strlen(str);
      for (ii = lstr; ii > 0; ii--)
      {
        if (str[ii-1] != ' ' && str[ii-1] != '\t') {

--- 1811,1817 -----
  {
      register int lstr, ii;
  
!     lstr = (int)strlen(str);
      for (ii = lstr; ii > 0; ii--)
      {
        if (str[ii-1] != ' ' && str[ii-1] != '\t') {
***************
*** 1834,1840
    if (!cif_findtag(cif, tag)
       || (alttag && (!cif_findtag(cif, alttag)))) {
      cif_get_value(cif, (char __far * __far *) &value);
!     return cif_ctonum(value, strlen(value), dvalue, 
        NULL, NULL, NULL, NULL, NULL, NULL, NULL);
    }
    return 1;

--- 1835,1841 -----
    if (!cif_findtag(cif, tag)
       || (alttag && (!cif_findtag(cif, alttag)))) {
      cif_get_value(cif, (char __far * __far *) &value);
!     return cif_ctonum(value, (int)strlen(value), dvalue, 
        NULL, NULL, NULL, NULL, NULL, NULL, NULL);
    }
    return 1;
***************
*** 1847,1853
    if (column == -1) return 1;
    if (!cif_select_column(cif,column)){
      cif_get_value(cif, (char __far * __far *) &value);
!     if (cif_ctonum(value, strlen(value), dvalue, 
        NULL, NULL, NULL, NULL, NULL, NULL, NULL)) return 1;
      return 0;
    }

--- 1848,1854 -----
    if (column == -1) return 1;
    if (!cif_select_column(cif,column)){
      cif_get_value(cif, (char __far * __far *) &value);
!     if (cif_ctonum(value, (int)strlen(value), dvalue, 
        NULL, NULL, NULL, NULL, NULL, NULL, NULL)) return 1;
      return 0;
    }
***************
*** 1887,1894
      char __far tmparg[5];
      char symbol[5]="  ";
  
!     laid = strlen(label_atom_id);
!     lat = type_symbol?strlen(type_symbol):0;
      if (lat > 1) {
        if ((type_symbol[lat-1] =='+') || (type_symbol[lat-1] == '-')) {
          if (strchr("0123456789",type_symbol[lat-2])) {

--- 1888,1895 -----
      char __far tmparg[5];
      char symbol[5]="  ";
  
!     laid = (int)strlen(label_atom_id);
!     lat = type_symbol?(int)strlen(type_symbol):0;
      if (lat > 1) {
        if ((type_symbol[lat-1] =='+') || (type_symbol[lat-1] == '-')) {
          if (strchr("0123456789",type_symbol[lat-2])) {
***************
*** 2231,2237
          ReadCIFstr(cif,col_label_alt_id,label_alt_id,1);
          if (label_alt_id[0] == '\0') strcpy(label_alt_id," ");
          ReadCIFstr(cif,col_label_comp_id,label_comp_id,3);
!         if (strlen(label_comp_id)<3) RightJustify(label_comp_id,3);
          ReadCIFstr(cif,col_label_asym_id,label_asym_id,1);
          if (label_asym_id[0] == '\0') {
            strcpy(label_asym_id," ");

--- 2232,2238 -----
          ReadCIFstr(cif,col_label_alt_id,label_alt_id,1);
          if (label_alt_id[0] == '\0') strcpy(label_alt_id," ");
          ReadCIFstr(cif,col_label_comp_id,label_comp_id,3);
!         if (strlen(label_comp_id)<(size_t)3) RightJustify(label_comp_id,3);
          ReadCIFstr(cif,col_label_asym_id,label_asym_id,1);
          if (label_asym_id[0] == '\0') {
            strcpy(label_asym_id," ");
***************
*** 2251,2257
            ReadCIFstr(cif,col_model_id,modelstr,5);
            NMRModel = 0;
            if (modelstr[0]) {
!             NMRModel = strtol(modelstr,
                (char __far * __far *)&endptr, 10);
              if (! (NMRModel == oNMRModel) ) {
                 ConnectAtom = (void __far*)0;

--- 2252,2258 -----
            ReadCIFstr(cif,col_model_id,modelstr,5);
            NMRModel = 0;
            if (modelstr[0]) {
!             NMRModel = (int)strtol(modelstr,
                (char __far * __far *)&endptr, 10);
              if (! (NMRModel == oNMRModel) ) {
                 ConnectAtom = (void __far*)0;
***************
*** 2264,2270
            icode = sicode = ' ';
            if((auth_seq=!ReadCIFstr(cif,col_auth_seq_id,label_seq_id,5))||
  	    (!ReadCIFstr(cif,col_label_seq_id,label_seq_id,5))){
!             seqnum = strtol(label_seq_id, 
                (char __far * __far *)&endptr, 10);
              icode = ' ';
              if (*endptr != '\0') icode = *endptr;

--- 2265,2271 -----
            icode = sicode = ' ';
            if((auth_seq=!ReadCIFstr(cif,col_auth_seq_id,label_seq_id,5))||
  	    (!ReadCIFstr(cif,col_label_seq_id,label_seq_id,5))){
!             seqnum = (int)strtol(label_seq_id, 
                (char __far * __far *)&endptr, 10);
              icode = ' ';
              if (*endptr != '\0') icode = *endptr;
***************
*** 2271,2277
            }
            if (auth_seq &&
  	    (!ReadCIFstr(cif,col_label_seq_id,label_seq_id,5))){
!             sseqnum = strtol(label_seq_id, 
                (char __far * __far *)&endptr, 10);
              sicode = ' ';
              if (*endptr != '\0') sicode = *endptr;

--- 2272,2278 -----
            }
            if (auth_seq &&
  	    (!ReadCIFstr(cif,col_label_seq_id,label_seq_id,5))){
!             sseqnum = (int)strtol(label_seq_id, 
                (char __far * __far *)&endptr, 10);
              sicode = ' ';
              if (*endptr != '\0') sicode = *endptr;
***************
*** 2296,2302
          ptr = CreateAtom();
          {
            char __far * endptr;
!           ptr->serno = strtol(idstr, (char __far * __far *)&endptr,10);
            if (*endptr != '\0') ptr->serno = rownum+1;
  	} 
          ptr->altl = label_alt_id[0];

--- 2297,2303 -----
          ptr = CreateAtom();
          {
            char __far * endptr;
!           ptr->serno = (int)strtol(idstr, (char __far * __far *)&endptr,10);
            if (*endptr != '\0') ptr->serno = rownum+1;
  	} 
          ptr->altl = label_alt_id[0];
***************
*** 2344,2350
            int i, laid, lat;
            char __far tmparg[5];
  
!           lat = strlen(type_symbol);
            if (lat > 1) {
              if ((type_symbol[lat-1] =='+') || (type_symbol[lat-1] == '-')) {
                if (strchr("0123456789",type_symbol[lat-2])) {

--- 2345,2351 -----
            int i, laid, lat;
            char __far tmparg[5];
  
!           lat = (int)strlen(type_symbol);
            if (lat > 1) {
              if ((type_symbol[lat-1] =='+') || (type_symbol[lat-1] == '-')) {
                if (strchr("0123456789",type_symbol[lat-2])) {
***************
*** 2354,2360
                }
              }
            }
!           laid = strlen(label_atom_id);
            for (i = laid; i < 5; i++) label_atom_id[i] = '\0';
            strcpy(tmparg,label_atom_id);
            if ((label_atom_id[0] < '0') || (label_atom_id[0] > '9') ){

--- 2355,2361 -----
                }
              }
            }
!           laid = (int)strlen(label_atom_id);
            for (i = laid; i < 5; i++) label_atom_id[i] = '\0';
            strcpy(tmparg,label_atom_id);
            if ((label_atom_id[0] < '0') || (label_atom_id[0] > '9') ){
***************
*** 2537,2543
            ReadCIFstr(cif,col_ptnr1_auth_atom_id,AtomName1,4);
          if (ReadCIFstr(cif,col_ptnr1_label_comp_id,CompId1,3))
            ReadCIFstr(cif,col_ptnr1_auth_comp_id,CompId1,3);
!         if (CompId1[0] &&strlen(CompId1)<3) RightJustify(CompId1,3);
          ReadCIFstr(cif,col_ptnr1_auth_seq_id,SeqId1,5);
          ReadCIFstr(cif,col_ptnr1_label_model_id,ModelId1,5);
          ReadCIFstr(cif,col_ptnr1_atom_site_id,SiteId1,6);

--- 2538,2544 -----
            ReadCIFstr(cif,col_ptnr1_auth_atom_id,AtomName1,4);
          if (ReadCIFstr(cif,col_ptnr1_label_comp_id,CompId1,3))
            ReadCIFstr(cif,col_ptnr1_auth_comp_id,CompId1,3);
!         if (CompId1[0] &&strlen(CompId1)<(size_t)3) RightJustify(CompId1,3);
          ReadCIFstr(cif,col_ptnr1_auth_seq_id,SeqId1,5);
          ReadCIFstr(cif,col_ptnr1_label_model_id,ModelId1,5);
          ReadCIFstr(cif,col_ptnr1_atom_site_id,SiteId1,6);
***************
*** 2552,2558
            ReadCIFstr(cif,col_ptnr2_auth_atom_id,AtomName2,4);
          if (ReadCIFstr(cif,col_ptnr2_label_comp_id,CompId2,3))
            ReadCIFstr(cif,col_ptnr2_auth_comp_id,CompId2,3);
!         if (CompId2[0] &&strlen(CompId2)<3) RightJustify(CompId2,3);
          ReadCIFstr(cif,col_ptnr2_auth_seq_id,SeqId2,5);
          ReadCIFstr(cif,col_ptnr2_label_model_id,ModelId2,5);
          ReadCIFstr(cif,col_ptnr2_atom_site_id,SiteId2,6);

--- 2553,2559 -----
            ReadCIFstr(cif,col_ptnr2_auth_atom_id,AtomName2,4);
          if (ReadCIFstr(cif,col_ptnr2_label_comp_id,CompId2,3))
            ReadCIFstr(cif,col_ptnr2_auth_comp_id,CompId2,3);
!         if (CompId2[0] &&strlen(CompId2)<(size_t)3) RightJustify(CompId2,3);
          ReadCIFstr(cif,col_ptnr2_auth_seq_id,SeqId2,5);
          ReadCIFstr(cif,col_ptnr2_label_model_id,ModelId2,5);
          ReadCIFstr(cif,col_ptnr2_atom_site_id,SiteId2,6);
***************
*** 2561,2567
          Icode1 = Icode2 = '\0';
          ResNum1 = ResNum2 = -9999;
          if (SeqId1[0]){
!             ResNum1 = strtol(SeqId1, 
                (char __far * __far *)&endptr, 10);
              Icode1 = ' ';
              if (*endptr != '\0') Icode1 = *endptr;

--- 2562,2568 -----
          Icode1 = Icode2 = '\0';
          ResNum1 = ResNum2 = -9999;
          if (SeqId1[0]){
!             ResNum1 = (int)strtol(SeqId1, 
                (char __far * __far *)&endptr, 10);
              Icode1 = ' ';
              if (*endptr != '\0') Icode1 = *endptr;
***************
*** 2567,2573
              if (*endptr != '\0') Icode1 = *endptr;
          }
          if (SeqId2[0]){
!             ResNum2 = strtol(SeqId2, 
                (char __far * __far *)&endptr, 10);
              Icode2 = ' ';
              if (*endptr != '\0') Icode2 = *endptr;

--- 2568,2574 -----
              if (*endptr != '\0') Icode1 = *endptr;
          }
          if (SeqId2[0]){
!             ResNum2 = (int)strtol(SeqId2, 
                (char __far * __far *)&endptr, 10);
              Icode2 = ' ';
              if (*endptr != '\0') Icode2 = *endptr;
***************
*** 2577,2583
          sResNum1 = sResNum2 = -9999;
          if(!ReadCIFstr(cif,col_ptnr1_label_seq_id,SeqId1,5))
          if (SeqId1[0]){
!             sResNum1 = strtol(SeqId1, 
                (char __far * __far *)&endptr, 10);
              sIcode1 = ' ';
              if (*endptr != '\0') sIcode1 = *endptr;

--- 2578,2584 -----
          sResNum1 = sResNum2 = -9999;
          if(!ReadCIFstr(cif,col_ptnr1_label_seq_id,SeqId1,5))
          if (SeqId1[0]){
!             sResNum1 = (int)strtol(SeqId1, 
                (char __far * __far *)&endptr, 10);
              sIcode1 = ' ';
              if (*endptr != '\0') sIcode1 = *endptr;
***************
*** 2584,2590
          }
          if(!ReadCIFstr(cif,col_ptnr2_label_seq_id,SeqId2,5))
          if (SeqId2[0]){
!             sResNum2 = strtol(SeqId2, 
                (char __far * __far *)&endptr, 10);
              sIcode2 = ' ';
              if (*endptr != '\0') sIcode2 = *endptr;

--- 2585,2591 -----
          }
          if(!ReadCIFstr(cif,col_ptnr2_label_seq_id,SeqId2,5))
          if (SeqId2[0]){
!             sResNum2 = (int)strtol(SeqId2, 
                (char __far * __far *)&endptr, 10);
              sIcode2 = ' ';
              if (*endptr != '\0') sIcode2 = *endptr;
***************
*** 2592,2598
  
          Sitenum1 = Sitenum2 =0;
          if (SiteId1[0]) {
!             Sitenum1 = strtol(SiteId1, 
                (char __far * __far *)&endptr, 10);
          }
          if (SiteId2[0]) {

--- 2593,2599 -----
  
          Sitenum1 = Sitenum2 =0;
          if (SiteId1[0]) {
!             Sitenum1 = (int)strtol(SiteId1, 
                (char __far * __far *)&endptr, 10);
          }
          if (SiteId2[0]) {
***************
*** 2596,2602
                (char __far * __far *)&endptr, 10);
          }
          if (SiteId2[0]) {
!             Sitenum2 = strtol(SiteId2, 
                (char __far * __far *)&endptr, 10);
          }
  

--- 2597,2603 -----
                (char __far * __far *)&endptr, 10);
          }
          if (SiteId2[0]) {
!             Sitenum2 = (int)strtol(SiteId2, 
                (char __far * __far *)&endptr, 10);
          }
  
***************
*** 2733,2739
            ReadCIFstr(cif,col_auth_atom_id_1,AtomName1,4);
          if (ReadCIFstr(cif,col_label_comp_id_1,CompId1,3))
            ReadCIFstr(cif,col_auth_comp_id_1,CompId1,3);
!         if (CompId1[0] &&strlen(CompId1)<3) RightJustify(CompId1,3);
          ReadCIFstr(cif,col_auth_seq_id_1,SeqId1,5);
          ReadCIFstr(cif,col_atom_site_id_1,SiteId1,6);
          strncpy(oidstr1,SiteId1,5);

--- 2734,2740 -----
            ReadCIFstr(cif,col_auth_atom_id_1,AtomName1,4);
          if (ReadCIFstr(cif,col_label_comp_id_1,CompId1,3))
            ReadCIFstr(cif,col_auth_comp_id_1,CompId1,3);
!         if (CompId1[0] &&strlen(CompId1)<(size_t)3) RightJustify(CompId1,3);
          ReadCIFstr(cif,col_auth_seq_id_1,SeqId1,5);
          ReadCIFstr(cif,col_atom_site_id_1,SiteId1,6);
          strncpy(oidstr1,SiteId1,5);
***************
*** 2748,2754
            ReadCIFstr(cif,col_auth_atom_id_2,AtomName2,4);
          if (ReadCIFstr(cif,col_label_comp_id_2,CompId2,3))
            ReadCIFstr(cif,col_auth_comp_id_2,CompId2,3);
!         if (CompId1[0] &&strlen(CompId2)<3) RightJustify(CompId2,3);
          ReadCIFstr(cif,col_auth_seq_id_1,SeqId2,5);
          ReadCIFstr(cif,col_atom_site_id_2,SiteId2,6);
          strncpy(oidstr2,SiteId2,5);

--- 2749,2755 -----
            ReadCIFstr(cif,col_auth_atom_id_2,AtomName2,4);
          if (ReadCIFstr(cif,col_label_comp_id_2,CompId2,3))
            ReadCIFstr(cif,col_auth_comp_id_2,CompId2,3);
!         if (CompId1[0] &&strlen(CompId2)<(size_t)3) RightJustify(CompId2,3);
          ReadCIFstr(cif,col_auth_seq_id_1,SeqId2,5);
          ReadCIFstr(cif,col_atom_site_id_2,SiteId2,6);
          strncpy(oidstr2,SiteId2,5);
***************
*** 2760,2766
          Icode1 = Icode2 = '\0';
          ResNum1 = ResNum2 = -9999;
          if (SeqId1[0]){
!             ResNum1 = strtol(SeqId1, 
                (char __far * __far *)&endptr, 10);
              Icode1 = ' ';
              if (*endptr != '\0') Icode1 = *endptr;

--- 2761,2767 -----
          Icode1 = Icode2 = '\0';
          ResNum1 = ResNum2 = -9999;
          if (SeqId1[0]){
!             ResNum1 = (int)strtol(SeqId1, 
                (char __far * __far *)&endptr, 10);
              Icode1 = ' ';
              if (*endptr != '\0') Icode1 = *endptr;
***************
*** 2766,2772
              if (*endptr != '\0') Icode1 = *endptr;
          }
          if (SeqId2[0]){
!             ResNum2 = strtol(SeqId2, 
                (char __far * __far *)&endptr, 10);
              Icode2 = ' ';
              if (*endptr != '\0') Icode2 = *endptr;

--- 2767,2773 -----
              if (*endptr != '\0') Icode1 = *endptr;
          }
          if (SeqId2[0]){
!             ResNum2 = (int)strtol(SeqId2, 
                (char __far * __far *)&endptr, 10);
              Icode2 = ' ';
              if (*endptr != '\0') Icode2 = *endptr;
***************
*** 2776,2782
          sResNum1 = sResNum2 = -9999;
          if(!ReadCIFstr(cif,col_label_seq_id_1,SeqId1,5))
          if (SeqId1[0]){
!             sResNum1 = strtol(SeqId1, 
                (char __far * __far *)&endptr, 10);
              sIcode1 = ' ';
              if (*endptr != '\0') sIcode1 = *endptr;

--- 2777,2783 -----
          sResNum1 = sResNum2 = -9999;
          if(!ReadCIFstr(cif,col_label_seq_id_1,SeqId1,5))
          if (SeqId1[0]){
!             sResNum1 = (int)strtol(SeqId1, 
                (char __far * __far *)&endptr, 10);
              sIcode1 = ' ';
              if (*endptr != '\0') sIcode1 = *endptr;
***************
*** 2783,2789
          }
          if(!ReadCIFstr(cif,col_label_seq_id_1,SeqId2,5))
          if (SeqId2[0]){
!             sResNum2 = strtol(SeqId2, 
                (char __far * __far *)&endptr, 10);
              sIcode2 = ' ';
              if (*endptr != '\0') sIcode2 = *endptr;

--- 2784,2790 -----
          }
          if(!ReadCIFstr(cif,col_label_seq_id_1,SeqId2,5))
          if (SeqId2[0]){
!             sResNum2 = (int)strtol(SeqId2, 
                (char __far * __far *)&endptr, 10);
              sIcode2 = ' ';
              if (*endptr != '\0') sIcode2 = *endptr;
***************
*** 2791,2797
  
          Sitenum1 = Sitenum2 =0;
          if (SiteId1[0]) {
!             Sitenum1 = strtol(SiteId1, 
                (char __far * __far *)&endptr, 10);
          }
          if (SiteId2[0]) {

--- 2792,2798 -----
  
          Sitenum1 = Sitenum2 =0;
          if (SiteId1[0]) {
!             Sitenum1 = (int)strtol(SiteId1, 
                (char __far * __far *)&endptr, 10);
          }
          if (SiteId2[0]) {
***************
*** 2795,2801
                (char __far * __far *)&endptr, 10);
          }
          if (SiteId2[0]) {
!             Sitenum2 = strtol(SiteId2, 
                (char __far * __far *)&endptr, 10);
          }
  

--- 2796,2802 -----
                (char __far * __far *)&endptr, 10);
          }
          if (SiteId2[0]) {
!             Sitenum2 = (int)strtol(SiteId2, 
                (char __far * __far *)&endptr, 10);
          }
  
***************
*** 2909,2915
            ReadCIFstr(cif,col_beg_auth_asym_id,Asym1,1);
          if (ReadCIFstr(cif,col_beg_label_comp_id,CompId1,3))
            ReadCIFstr(cif,col_beg_auth_comp_id,CompId1,3);
!         if (CompId1[0] &&(i=strlen(CompId1))<3) RightJustify(CompId1,3);
          ReadCIFstr(cif,col_beg_auth_seq_id,SeqId1,5);
  
          if (ReadCIFstr(cif,col_end_label_asym_id,Asym2,1))

--- 2910,2916 -----
            ReadCIFstr(cif,col_beg_auth_asym_id,Asym1,1);
          if (ReadCIFstr(cif,col_beg_label_comp_id,CompId1,3))
            ReadCIFstr(cif,col_beg_auth_comp_id,CompId1,3);
!         if (CompId1[0] &&(i=(int)strlen(CompId1))<3) RightJustify(CompId1,3);
          ReadCIFstr(cif,col_beg_auth_seq_id,SeqId1,5);
  
          if (ReadCIFstr(cif,col_end_label_asym_id,Asym2,1))
***************
*** 2916,2922
            ReadCIFstr(cif,col_end_auth_asym_id,Asym2,1);
          if (ReadCIFstr(cif,col_end_label_comp_id,CompId2,3))
            ReadCIFstr(cif,col_end_auth_comp_id,CompId2,3);
!         if (CompId2[0] &&(i=strlen(CompId2))<3) RightJustify(CompId2,3);
          ReadCIFstr(cif,col_end_auth_seq_id,SeqId2,5);
  
          Icode1 = Icode2 = '\0';

--- 2917,2923 -----
            ReadCIFstr(cif,col_end_auth_asym_id,Asym2,1);
          if (ReadCIFstr(cif,col_end_label_comp_id,CompId2,3))
            ReadCIFstr(cif,col_end_auth_comp_id,CompId2,3);
!         if (CompId2[0] &&(i=(int)strlen(CompId2))<3) RightJustify(CompId2,3);
          ReadCIFstr(cif,col_end_auth_seq_id,SeqId2,5);
  
          Icode1 = Icode2 = '\0';
***************
*** 2922,2928
          Icode1 = Icode2 = '\0';
          ResNum1 = ResNum2 = -9999;
          if (SeqId1[0]){
!             ResNum1 = strtol(SeqId1, 
                (char __far * __far *)&endptr, 10);
              Icode1 = ' ';
              if (*endptr != '\0') Icode1 = *endptr;

--- 2923,2929 -----
          Icode1 = Icode2 = '\0';
          ResNum1 = ResNum2 = -9999;
          if (SeqId1[0]){
!             ResNum1 = (int)strtol(SeqId1, 
                (char __far * __far *)&endptr, 10);
              Icode1 = ' ';
              if (*endptr != '\0') Icode1 = *endptr;
***************
*** 2928,2934
              if (*endptr != '\0') Icode1 = *endptr;
          }
          if (SeqId2[0]){
!             ResNum2 = strtol(SeqId2, 
                (char __far * __far *)&endptr, 10);
              Icode2 = ' ';
              if (*endptr != '\0') Icode2 = *endptr;

--- 2929,2935 -----
              if (*endptr != '\0') Icode1 = *endptr;
          }
          if (SeqId2[0]){
!             ResNum2 = (int)strtol(SeqId2, 
                (char __far * __far *)&endptr, 10);
              Icode2 = ' ';
              if (*endptr != '\0') Icode2 = *endptr;
***************
*** 2938,2944
          sResNum1 = sResNum2 = -9999;
          if(!ReadCIFstr(cif,col_beg_label_seq_id,SeqId1,5))
          if (SeqId1[0]){
!             sResNum1 = strtol(SeqId1, 
                (char __far * __far *)&endptr, 10);
              sIcode1 = ' ';
              if (*endptr != '\0') sIcode1 = *endptr;

--- 2939,2945 -----
          sResNum1 = sResNum2 = -9999;
          if(!ReadCIFstr(cif,col_beg_label_seq_id,SeqId1,5))
          if (SeqId1[0]){
!             sResNum1 = (int)strtol(SeqId1, 
                (char __far * __far *)&endptr, 10);
              sIcode1 = ' ';
              if (*endptr != '\0') sIcode1 = *endptr;
***************
*** 2945,2951
          }
          if(!ReadCIFstr(cif,col_end_label_seq_id,SeqId2,5))
          if (SeqId2[0]){
!             sResNum2 = strtol(SeqId2, 
                (char __far * __far *)&endptr, 10);
              sIcode2 = ' ';
              if (*endptr != '\0') sIcode2 = *endptr;

--- 2946,2952 -----
          }
          if(!ReadCIFstr(cif,col_end_label_seq_id,SeqId2,5))
          if (SeqId2[0]){
!             sResNum2 = (int)strtol(SeqId2, 
                (char __far * __far *)&endptr, 10);
              sIcode2 = ' ';
              if (*endptr != '\0') sIcode2 = *endptr;