38 	common /matrix/ matrix, postrn, coords  local
39 	real*4		matrix(3,3), postrn(3), coords(3)  variable
211 	SPAM(1,IATM) = SPAM(1,IATM) + postrn(1)
212 	SPAM(2,IATM) = SPAM(2,IATM) + postrn(2)
213 	SPAM(3,IATM) = SPAM(3,IATM) + postrn(3)
236 	common /matrix/ matrix, postrn, coords  local
237 	real*4		matrix(3,3), postrn(3), coords(3)  local
244 	postrn(1) = 0.
245 	postrn(2) = 0.
246 	postrn(3) = 0.
271 		read (3,*,err=101,end=101) postrn(1), postrn(2), postrn(3)
275 		write (noise,4) postrn(1), postrn(2), postrn(3)