subroutine fitsq(rms,x,y,nn,t,b,non_conv)
- implicit real*8 (a-h,o-z)
+ include 'DIMENSIONS'
include 'COMMON.IOUNITS'
c x and y are the vectors of coordinates (dimensioned (3,n)) of the two
c structures to be superimposed. nn is 3*n, where n is the number of