REAL*4 X(3),W(3),RM(3,3),A,B
	INTEGER I,J,K,I1,I2,I3,IRES,IATM
	CHARACTER*40 FNAME,matname
	CHARACTER*4 ATOM RES
	CHARACTER*1 CHAIN
	character*80 astring
	
	CHAIN=' '
 40    FORMAT (A40)

49	format (a80)
c	DO 47 I=1,3
c47	read(5,49) astring
	write(6,*)'REMARK occupancy and B collumns contain AAREA and CAREA fr surface'
C KEY INDEX IC IF ATM  RES NUM   X       Y       Z    VDW  COV  AAREA CAREA FRCT
C12345678901234567890123456789012345678901234567890123456789012345678901234567890
C  0  1466  0  1 OD1 ASP  190 -13.958 170.695  98.851 1.40 0.66  21.8   5.4 0.00
50 	format (3x,I6,7x,A4,A3,I5,3f8.3,2F5.2,2F6.1)
55	read(5,50,END=501) IATM, ATOM, RES, IRES, (x(i),i=1,3),I1,I2,A,B
c 	write(6,*) IATM, ATOM, RES, IRES, (x(i),i=1,3),I1,I2,A,B


c12345678901234567890123456789012345678901234567890123456789012345678901234567890
cATOM    478  N   ALA C   6      -9.539   4.454  64.244  1.00 26.78      1ZAA 538
51 	format ('ATOM',I7,2x,A4,A4,A1,I4,4x,3f8.3,2f6.2)
	write(6,51) IATM,ATOM,RES,CHAIN,IRES,(x(i),i=1,3),a,b
	goto 55
501	CONTINUE
	END