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:                end if
  
             elseif (index(Line,'!')==1) then
                 write(*,*) 'Ignored comment: '//trim(Line)
             else
                  ! Ignore unsupported lines
  !                write(*,*) 'Ignored line: '//trim(Line)
             endif
         enddo
         close( UnIn )
  
negative.code:         Failed =  ErrStat >= AbortErrLev
          if(Failed) call cleanup()
      end function Failed
      !> 
      subroutine cleanup()
          close( UnIn )
          if (allocated(TmpAry)) deallocate(TmpAry)
      end subroutine cleanup
  
     !> Reads a FLEX ASCII file for Guyan or CraigBampton reductions
     SUBROUTINE ReadFlexASCII()
  