anchor.diff:                  XYZ2=Init%Nodes(Init%Members(i,3),2:4)
              ENDIF
          ENDDO    
  -       CALL GetDirCos(XYZ1(1:3), XYZ2(1:3), DirCos, mlength, ErrStat, ErrMsg)
  +       CALL GetDirCos(XYZ1(1:3), XYZ2(1:3), DirCos, mLength, ErrStat, ErrMsg)
          DirCos=TRANSPOSE(DirCos) !This is now global to local
          WRITE(UnSum, '(I9,9(E15.6))') Init%Members(i,1), ((DirCos(k,j),j=1,3),k=1,3)
      ENDDO
  
positive.code: 
     WRITE(UnSum, '()') 
     WRITE(UnSum, '(A,I6)')  'Number of elements (NElems):',Init%NElem
     WRITE(UnSum, '(A10,5(A10))')  'Elem No.',    'Node_I',     'Node_J',   'Type',    'Prop_I',      'Prop_J'
     WRITE(UnSum, '(6(I10))') ((p%Elems(i, j), j = 1, MembersCol), i = 1, Init%NElem)
     
     WRITE(UnSum, '()') 
  
negative.code:     CALL Eye( outputMesh%Orientation, ErrStat, ErrMsg )         
          
  END SUBROUTINE CreateY2Meshes
  
  
  !---------------------------------------------------------------------------
  