anchor.diff:        if ( present(verts) ) then
            do i=1,M%Nnodes
               do j=1,NumberOfPoints
  -               WRITE(Un,VTK_AryFmt) M%Position(:,i) + M%TranslationDisp(:,i) + MATMUL(M%Orientation(:,:,i),verts(:,j))
  +               WRITE(Un,VTK_AryFmt) M%Position(:,i) + M%TranslationDisp(:,i) + MATMUL(verts(:,j),M%Orientation(:,:,i))
               end do    
            end do
            
  
positive.code:                   angle = TwoPi*(k-1.0_ReKi)/NumSegments1
                    xyz(1) = r*COS(angle)
                    xyz(2) = r*SIN(angle)
                    WRITE(Un,VTK_AryFmt) M%Position(:,i) + M%TranslationDisp(:,i) + MATMUL(M%Orientation(:,:,i),xyz)
                    !WRITE(Un,VTK_AryFmt) M%Position(:,i) + M%TranslationDisp(:,i) + xyz
                 END DO            
              END DO
  
negative.code:    INTEGER(IntKi)                        :: i,j           ! loop counters
     CHARACTER(1024)                       :: FileName
     REAL(SiKi)                            :: angle
     REAL(SiKi)                            :: xyz(3)
  
     INTEGER(IntKi)                        :: firstPntEnd, firstPntStart, secondPntStart, secondPntEnd  ! node indices for forming rectangle 
     INTEGER(IntKi)                        :: NumSegments1
  