anchor.diff:                                 "(N)      ","(N)      ","(N)      ","(Nm)     ","(Nm)     ","(Nm)     ","(m)      "/)
      INTEGER(IntKi), PARAMETER :: ParamIndxAry(7) =  (/ &                            ! This lists the index into AllOuts(:) of the allowed parameters ValidParamAry(:)
                                 ID_PtfFx, ID_PtfFy, ID_PtfFz, ID_PtfMx, ID_PtfMy, ID_PtfMz, ID_WaveElev /)
  +   ErrStat = ErrID_None
  +   ErrMsg  = ""
      
      p%NumOuts = NumOuts_in
      allocate(p%OutParam(0:p%NumOuts) , stat=ErrStat )
  
positive.code:    CHARACTER(30)                :: OutPFmt                                         ! Format to print list of selected output channels to summary file
     CHARACTER(ChanLen),PARAMETER :: TitleStr(2) = (/ 'Parameter', 'Units    ' /)
     CHARACTER(ChanLen),PARAMETER :: TitleStrLines(2) = (/ '---------------', '---------------' /)
  
     ! Open the summary file and give it a heading.
     
     CALL GetNewUnit(UnSu, ErrStat, ErrMsg);
     CALL OpenFOutFile(UnSu, TRIM( RootName )//'.sum', ErrStat, ErrMsg)
     IF ( ErrStat /= ErrID_None ) RETURN
  
negative.code:    call cleanup()
  
     ! --- Reading Reduced file
     call ReadReducedFile(InputFileData%RedFile, p, InputFileData%FileFormat, ErrStat, ErrMsg); if(Failed()) return;
     ! Checking that everyting was correctly read and set
     call CheckAllInputsRead(p, ErrStat, ErrMsg);  if(Failed()) return
  
  