22a23
>       include 'ortep.inc'
24,39d24
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       CHARACTER*8 CHEM
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       INTEGER*2 IDENT           
<       COMMON /PARMS/ CHEM(505),EV(3,505),P(3,505),PA(3,3,505)        
<      1 ,IDENT(2,505),MAXATM
<       COMMON /QUEUE/ NED,NQUE,NEXT,NBACK,INQ,QUE(96),hque(96)
<       CHARACTER*73 INQ,QUE,hque
97c82
<       IF(NQUE.LT.96) GO TO 2005
---
>       IF(NQUE.LT.XQUE) GO TO 2005
108c93
<     8 DO 10 J=1,140
---
>     8 DO 10 J=1,XAIN
262c247
<       DO 420 I=1,500
---
>       DO 420 I=1,XATOM
365,378c350
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       CHARACTER*8 CHEM
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       INTEGER*2 IDENT
<       COMMON /PARMS/ CHEM(505),EV(3,505),P(3,505),PA(3,3,505)        
<      1 ,IDENT(2,505),MAXATM
---
>       include 'ortep.inc'
516,529c488
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       CHARACTER*8 CHEM
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       INTEGER*2 IDENT           
<       COMMON /PARMS/ CHEM(505),EV(3,505),P(3,505),PA(3,3,505)        
<      1 ,IDENT(2,505),MAXATM
---
>       include 'ortep.inc'
903,912c862
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
939,953c889
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       CHARACTER*8 CHEM
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       INTEGER*2 IDENT           
<       COMMON /PARMS/ CHEM(505),EV(3,505),P(3,505),PA(3,3,505)        
<      1 ,IDENT(2,505),MAXATM
<       COMMON /QUEUE/ NED,NQUE,NEXT,NBACK,INQ,QUE(96),hque(96)
---
>       include 'ortep.inc'
955c891
<       CHARACTER*73 INQ,QUE,hque,tline
---
>       CHARACTER*73 tline
1079c1015
<       IF(NQUE+1 .GT. 96) GO TO 115
---
>       IF(NQUE+1 .GT. XQUE) GO TO 115
1271,1280c1207
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
1309,1318c1236
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
1359,1368c1277
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
1419,1432c1328
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       CHARACTER*8 CHEM
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       INTEGER*2 IDENT           
<       COMMON /PARMS/ CHEM(505),EV(3,505),P(3,505),PA(3,3,505)        
<      1 ,IDENT(2,505),MAXATM
---
>       include 'ortep.inc'
1451c1347
<       IF(140-II)499,405,405
---
>       IF(XAIN-II)499,405,405
1463c1359
<       IF(140-JJ)435,430,430
---
>       IF(XAIN-JJ)435,430,430
1523,1536c1419
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       INTEGER*2 IDENT           
<       CHARACTER*8 CHEM
<       COMMON /PARMS/ CHEM(505),EV(3,505),P(3,505),PA(3,3,505)        
<      1 ,IDENT(2,505),MAXATM
---
>       include 'ortep.inc'
1574c1457
<       DO 517 L=1,139,2
---
>       DO 517 L=1,XAIN-1,2
1713,1722c1596
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
1849,1862c1723
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       CHARACTER*8 CHEM
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       INTEGER*2 IDENT           
<       COMMON /PARMS/ CHEM(505),EV(3,505),P(3,505),PA(3,3,505)        
<      1 ,IDENT(2,505),MAXATM
---
>       include 'ortep.inc'
2164,2179c2025
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       CHARACTER*8 CHEM
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       INTEGER*2 IDENT
<       COMMON /PARMS/ CHEM(505),EV(3,505),P(3,505),PA(3,3,505)        
<      1 ,IDENT(2,505),MAXATM
<       COMMON/OLAP/CONIC(7,500),COVER(6,20),KC(20),KQ(30),NCONIC,NCOVER,
<      1 NQOVER,NQUAD,OVMRGN,QOVER(3,4,30),QUAD(9,600),SEGM(50,2)
---
>       include 'ortep.inc'
2196c2042
<       IF(140-II)980,980,820
---
>       IF(XAIN-II)980,980,820
2370,2383c2216
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       CHARACTER*8 CHEM
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       INTEGER*2 IDENT           
<       COMMON /PARMS/ CHEM(505),EV(3,505),P(3,505),PA(3,3,505)        
<      1 ,IDENT(2,505),MAXATM
---
>       include 'ortep.inc'
2578,2589c2411
<       COMMON/OLAP/CONIC(7,500),COVER(6,20),KC(20),KQ(30),NCONIC,NCOVER,
<      1 NQOVER,NQUAD,OVMRGN,QOVER(3,4,30),QUAD(9,600),SEGM(50,2)
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
2781,2792c2603
<       COMMON/OLAP/CONIC(7,500),COVER(6,20),KC(20),KQ(30),NCONIC,NCOVER,
<      1 NQOVER,NQUAD,OVMRGN,QOVER(3,4,30),QUAD(9,600),SEGM(50,2)
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
2915c2726
<       IF(NCOVER-20)410,405,405
---
>       IF(NCOVER-XCOVER)410,405,405
2952c2763
<       IF(NQOVER-30)465,470,470
---
>       IF(NQOVER-XQOVER)465,470,470
2961,2972c2772
<       COMMON/OLAP/CONIC(7,500),COVER(6,20),KC(20),KQ(30),NCONIC,NCOVER,
<      1 NQOVER,NQUAD,OVMRGN,QOVER(3,4,30),QUAD(9,600),SEGM(50,2)
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
2980c2780
<   205 IF(NQUAD-599)215,210,210
---
>   205 IF(NQUAD-XQUAD+1)215,210,210
3041c2841
<       IF(NCOVER-20)305,310,310
---
>       IF(NCOVER-XCOVER)305,310,310
3156c2956
<   475 IF(NQOVER-30)485,480,480
---
>   475 IF(NQOVER-XQOVER)485,480,480
3173,3174d2972
<       COMMON/OLAP/CONIC(7,500),COVER(6,20),KC(20),KQ(30),NCONIC,NCOVER,
<      1 NQOVER,NQUAD,OVMRGN,QOVER(3,4,30),QUAD(9,600),SEGM(50,2)
3176,3185c2974
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
3301c3090
<   390 IF(NCOVER-20)400,395,395
---
>   390 IF(NCOVER-XCOVER)400,395,395
3314c3103
<   410 IF(NQOVER-30)420,415,415
---
>   410 IF(NQOVER-XQOVER)420,415,415
3350,3361c3139
<       COMMON/OLAP/CONIC(7,500),COVER(6,20),KC(20),KQ(30),NCONIC,NCOVER,
<      1 NQOVER,NQUAD,OVMRGN,QOVER(3,4,30),QUAD(9,600),SEGM(50,2)
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
3636,3645c3414
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
3690,3703c3459
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       CHARACTER*8 CHEM
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       INTEGER*2 IDENT           
<       COMMON /PARMS/ CHEM(505),EV(3,505),P(3,505),PA(3,3,505)        
<      1 ,IDENT(2,505),MAXATM
---
>       include 'ortep.inc'
3751,3760c3507
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
3792,3807c3539
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       CHARACTER*8 CHEM
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       INTEGER*2 IDENT           
<       COMMON /PARMS/ CHEM(505),EV(3,505),P(3,505),PA(3,3,505)        
<      1 ,IDENT(2,505),MAXATM
<       COMMON /QUEUE/ NED,NQUE,NEXT,NBACK,INQ,QUE(96),hque(96)
<       CHARACTER*73 INQ,QUE,hque
---
>       include 'ortep.inc'
4200,4213c3932
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       CHARACTER*8 CHEM
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       INTEGER*2 IDENT           
<       COMMON /PARMS/ CHEM(505),EV(3,505),P(3,505),PA(3,3,505)        
<      1 ,IDENT(2,505),MAXATM
---
>       include 'ortep.inc'
4223c3942
<       MAXATM=505
---
>       MAXATM=XATM
4234,4237c3953,3959
<       DO 3005 I=1,3
<       SYMB(I,I)=1.
<       SYMB(I+1,1)=0.
<  3005 SYMB(I+5,1)=0.
---
>       DO 3006 I=1,3
>         DO 3005 J=1,3
>           SYMB(I,J)=0.
>  3005   CONTINUE
>  3006 CONTINUE
>       DO 3007 I=1,3
>  3007 SYMB(I,I)=1.
4269,4278c3991
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
4340,4351c4053
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       COMMON /QUEUE/ NED,NQUE,NEXT,NBACK,INQ,QUE(96),hque(96)
<       CHARACTER*73 INQ,QUE,hque
---
>       include 'ortep.inc'
4365c4067
<       DO 580 I=1,500
---
>       DO 580 I=1,XATOM
4395,4408c4097
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       CHARACTER*8 CHEM
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
<       INTEGER*2 IDENT           
<       COMMON /PARMS/ CHEM(505),EV(3,505),P(3,505),PA(3,3,505)        
<      1 ,IDENT(2,505),MAXATM
---
>       include 'ortep.inc'
4977,4986c4666
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
4988c4668
<   450 IF(500-LATM)455,455,460
---
>   450 IF(XATOM-LATM)455,455,460
5007c4687
<   482 IF(499-LATM)490,483,485
---
>   482 IF(XATOM-1-LATM)490,483,485
5019,5028c4699
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
5309,5318c4980
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
5371,5380c5033
<       REAL*8 AIN,ATOMID 
<       CHARACTER*4 TITLE,TITLE2
<       COMMON NG,A(9),AA(3,3),AAREV(3,3),AAWRK(3,3),AID(3,3)
<      1 ,AIN(140),ATOMID(500),ATOMS(3,500),BB(3,3),BRDR,CD(8,20)
<      2 ,CONT(5),D(3,130),DA(3,3),DP(2,130),DISP,EDGE,FORE,FS(3,3,96)
<      3 ,IN,ITILT,KD(5,20),LATM,NATOM,NCD,NJ,NJ2,NOUT,NSR,NSYM
<      4 ,ORGN(3),PAC(3,5),PAT(3,3),Q(3,3),REFV(3,3),RES(4),RMS(5),SCAL1
<      5 ,SCAL2,SCL,SYMB(3,3),TAPER,THETA,TITLE(18),TITLE2(18),TS(3,96)
<      6 ,VIEW,VT(3,4),V1(4),V2(3),V3(3),V4(3),V5(3),V6(3),WRKV(3,3)
<      7 ,XLNG(3),XO(3),XT(3)
---
>       include 'ortep.inc'
5821c5474
< 
---
>       
5823a5477,5478
>       fx = (x + xtrans) * 1000.
>       fy = (y + ytrans) * 1000.
5825,5828c5480,5483
<       if (ipen.eq.2) write (npf,101) ix,iy
<   101 format(i6,1x,i6,1x,'l')
<       if (ipen.eq.3) write (npf,102) ix,iy
<   102 format('stroke'/i6,1x,i6,1x,'m')
---
>       if (ipen.eq.2) write (npf,101) fx,fy
>   101 format(f8.1,1x,f8.1,1x,'l')
>       if (ipen.eq.3) write (npf,102) fx,fy
>   102 format('stroke'/f8.1,1x,f8.1,1x,'m')
5831,5834c5486,5489
<       if (ix.lt.ixmin) ixmin=ix
<       if (ix.gt.ixmax) ixmax=ix
<       if (iy.lt.iymin) iymin=iy
<       if (iy.gt.iymax) iymax=iy
---
>       if (ix.lt.ixmin) ixmin=ix-1
>       if (ix.gt.ixmax) ixmax=ix+1
>       if (iy.lt.iymin) iymin=iy-1
>       if (iy.gt.iymax) iymax=iy+1
