anchor.diff:  !............................................
   CONTAINS
      SUBROUTINE Cleanup()
  +
  +      IF (COH_OUT .AND. UC > 0)  CLOSE( UC )
   
         IF ( ALLOCATED( Dist      ) ) DEALLOCATE( Dist      )
         IF ( ALLOCATED( DistU     ) ) DEALLOCATE( DistU     )
  
positive.code: 
              ENDDO ! I
           ENDDO ! J
        
  
           ! -----------------------------------------------
           ! Now transform coherence to H matrix and then
  
negative.code:    
     ! Internal variables
  
  INTEGER                      :: UC              ! I/O unit for Coherence debugging file.
  LOGICAL,    PARAMETER        :: COH_OUT = .FALSE.                       ! This parameter has been added to replace the NON-STANDARD compiler directive previously used
  
  REAL(ReKi), ALLOCATABLE       :: Dist(:)        ! The distance between points
  REAL(ReKi), ALLOCATABLE       :: DistU(:)
  REAL(ReKi), ALLOCATABLE       :: DistZMExp(:)
  