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:          WRITE(p%UnOutFile,Frmt,ADVANCE='no')   ( p%Delim, TRIM( InitOut%WriteOutputHdr(I)   ), I=1,p%NumOuts )
        END IF
        
        IF (ALLOCATED( p%WAMIT(1)%OutParam ) .AND. p%WAMIT(1)%NumOuts > 0) THEN
           do iWAMIT = 1, p%nWAMITObj
              Frmt = '('//TRIM(Int2LStr(p%WAMIT(iWAMIT)%NumOuts))//'(:,A,'//TRIM( p%OutSFmt )//'))'
              WRITE(p%UnOutFile,Frmt,ADVANCE='no')   ( p%Delim, TRIM( InitOut%WAMIT(iWAMIT)%WriteOutputHdr(I)   ), I=1,p%WAMIT(iWAMIT)%NumOuts )
           end do
        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%WriteOutputHdr(I)   ), I=1,p%WAMIT2%NumOuts )
  
negative.code:    
     CALL HDOUT_ChkOutLst( InitInp%OutList(1:p%NumOuts), y, p, ErrStat, ErrMsg )
     IF ( ErrStat /= 0 ) RETURN
  
           ! Aggregate the sub-module initialization outputs for the glue code
  
           hasWAMIT2Outs  = .FALSE.
           hasWaves2Outs  = .FALSE.
           hasMorisonOuts = .FALSE.
  