anchor.diff:              CALL CleanUp
               RETURN
            ENDIF
  -         Data4D%LoadComponents(INT(TmpRealArr(I))) = .TRUE.
  +         Data4D%LoadComponents(NINT(TmpRealArr(I))) = .TRUE.
         ENDDO
   
   
  
positive.code:          ENDIF
  
              ! Find which force component this belongs to
           TmpCoord(4) = INT(RawData3D(I,4))  !bjj: nint???
  
  
              !> The data from the WAMIT file is non-dimensional, so we need to dimensionalize it here.  This
  
negative.code:          ! load component direction must be between 1 and 6 (translational: 1,2,3; rotational: 4,5,6).
        Data4D%LoadComponents = .FALSE.
        DO I=1,K
           IF ( NINT(TmpRealArr(I)) < 1 .OR. NINT(TmpRealArr(K)) > 6 ) THEN
              CALL SetErrStat( ErrID_Fatal, ' Load components listed in column 4 of '//TRIM(Filename4D)// &
                    ' must be between 1 and 6.', ErrStat,ErrMsg,'Read_DataFile4D')
              IF (ALLOCATED(RawData4D))        DEALLOCATE(RawData4D,STAT=ErrStatTmp)
  