anchor.diff:        CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
         IF ( PathIsRelative( InputFileData%BldFile ) ) InputFileData%BldFile = TRIM(PriPath)//TRIM(InputFileData%BldFile)
   
  -   END SUBROUTINE BD_ReadPrimaryFile
  +   call cleanup()
  +   return
  +      
  +contains
  +   subroutine cleanup() 
  +      close(UnIn)
  +      return
  +   end subroutine cleanup         
  +END SUBROUTINE BD_ReadPrimaryFile
   
      SUBROUTINE BD_ReadBladeFile(BldFile,BladeInputFileData,UnEc,ErrStat,ErrMsg)
   
  
positive.code: !WRITE(*,*) ai
  
         IF(i==niter) THEN
             WRITE(*,*) "Solution does not converge after the maximum number of iterations"
             STOP
         ENDIF
     ENDDO
  
  
negative.code:                                   ,INode   = temp_id      &
                                    ,Pos     = TmpPos       &
                                    ,ErrStat = ErrStat2      &
                                    ,ErrMess = ErrMsg2       &
                                    , Orient = ??? ) !bjj: add orient=DCM ! Orientation (direction cosine matrix) of node; identity by default
              CALL SetErrStat( ErrStat2, ErrMsg2, ErrStat, ErrMsg, RoutineName )
         ENDDO
     ENDDO
  