anchor.diff:           ! This MUST be done before calling ReadComFile.
   
         CurrFile => FirstFile
  +      File     =  0
         DO
            IF ( .NOT. ASSOCIATED( CurrFile ) )  EXIT
            File = File + 1
  
positive.code:       ELSE
           ErrMsg = ' Error allocating '//TRIM(Num2LStr(AryDim*BYTES_IN_QuKi))//' bytes of memory for the '//TRIM( Descr )//' array.'
        END IF
           
     ELSE
        ErrStat = ErrID_None
        ErrMsg  = ''
  
negative.code:       ELSE
           ErrMsg = ' Error allocating '//TRIM(Num2LStr(AryDim1*AryDim2*BYTES_IN_SiKi))//&
                    ' bytes of memory for the '//TRIM( Descr )//' array.'
        END IF
     ELSE
        ErrStat = ErrID_None
        ErrMsg  = ''
  