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