anchor.diff:           ENDIF
   
               ! Find which force component this belongs to
  -         TmpCoord(4) = INT(RawData3D(I,4))  !bjj: nint???
  +         TmpCoord(4) = NINT(RawData3D(I,4))
   
   
               !> The data from the WAMIT file is non-dimensional, so we need to dimensionalize it here.  This
  
positive.code:                  .NOT. EqualRealNos(AIMAG(Data4D%DataSet( TmpCoord(1), TmpCoord(2), TmpCoord(3), TmpCoord(4), TmpCoord(5) )), &
                          InitInp%RhoXg * InitInp%WAMITULEN**K * RawData4D(I,9)))  THEN
                 CALL SetErrStat( ErrID_Fatal, ' Line '//TRIM(Num2Lstr(NumHeaderLines+I))//'of '//TRIM(Filename4D)// &
                          ' contains different values for the real and imaginary part (columns 7 and 8) than was '// &
                          'given earlier in the file for the same values of wave frequency and wave direction.', &
                          ErrStat, ErrMsg, 'Read_DataFile4D' )
                 IF (ALLOCATED(RawData4D))        DEALLOCATE(RawData4D,STAT=ErrStatTmp)
  
negative.code:          ENDIF
  
              ! Find which force component this belongs to
           TmpCoord(5) = NINT(RawData4D(I,5))
  
  
              !> The data from the WAMIT file is non-dimensional, so we need to dimensionalize it here.  This
  