anchor.diff:           m%LastOutTime  = 0.0_DbKi
            m%Decimate     = 0
            p%OutDec       = 1             !TODO: Remove this once the parameter has been added to the HD input file GJH 7/8/2014
  -         
  -         !IF (ALLOCATED( p%WAMIT(1)%OutParam ) .AND. p%WAMIT(1)%NumOuts > 0) THEN
  -         !   hasWAMITOuts = .TRUE.
  -         !   p%NumTotalOuts = p%NumTotalOuts + p%WAMIT(1)%NumOuts  * p%nWAMITObj     
  -         !END IF
  +
            IF (ALLOCATED( p%WAMIT2%OutParam ) .AND. p%WAMIT2%NumOuts > 0) THEN
               hasWAMIT2Outs = .TRUE.
               p%NumTotalOuts = p%NumTotalOuts + p%WAMIT2%NumOuts       
  
positive.code:             
           J = p%NumOuts + 1
           
           !IF ( hasWAMITOuts ) THEN
           !   do iWAMIT = 1, p%nWAMITObj
           !      DO I=1, p%WAMIT(iWAMIT)%NumOuts
           !         InitOut%WriteOutputHdr(J) = InitOut%WAMIT(iWAMIT)%WriteOutputHdr(I)
           !         InitOut%WriteOutputUnt(J) = InitOut%WAMIT(iWAMIT)%WriteOutputUnt(I)
           !         J = J + 1
           !      END DO
           !   end do
           !END IF
           
           IF ( hasWaves2Outs ) THEN
              DO I=1, p%Waves2%NumOuts
                 InitOut%WriteOutputHdr(J) = InitOut%Waves2%WriteOutputHdr(I)
  
negative.code:          Frmt = '('//TRIM(Int2LStr(p%NumOuts))//'(:,A,'//TRIM( p%OutSFmt )//'))'
           WRITE(p%UnOutFile,Frmt,ADVANCE='no')   ( p%Delim, TRIM( InitOut%WriteOutputUnt(I)   ), I=1,p%NumOuts )
        END IF
  
        IF (ALLOCATED( p%WAMIT2%OutParam ) .AND. p%WAMIT2%NumOuts > 0) THEN
           Frmt = '('//TRIM(Int2LStr(p%WAMIT2%NumOuts))//'(:,A,'//TRIM( p%OutSFmt )//'))'
           WRITE(p%UnOutFile,Frmt,ADVANCE='no')   ( p%Delim, TRIM( InitOut%WAMIT2%WriteOutputUnt(I)   ), I=1,p%WAMIT2%NumOuts )
  