anchor.diff:        ! Useful for debugging and/or writing summary files.
      
         REAL(R8Ki),             INTENT(IN) :: A(:)
  -      INTEGER,                INTENT(IN) :: Un
  -      CHARACTER(*),           INTENT(IN) :: ReFmt   ! Format for printing ReKi numbers  
  +      INTEGER,        INTENT(IN) :: Un
  +      CHARACTER(*),   INTENT(IN) :: ReFmt   ! Format for printing ReKi numbers
         CHARACTER(*), OPTIONAL, INTENT(IN) :: MatName
  -      
  -      INTEGER                            :: ErrStat
  +
  +      INTEGER        :: ErrStat
         INTEGER                            :: nr  ! size (rows and columns) of A
         CHARACTER(256)                     :: Fmt
      
  
positive.code:          WRITE( Un, '(A,": ",A," x ",A)', IOSTAT=ErrStat ) TRIM(MatName), TRIM(Num2LStr(nr)), TRIM(Num2LStr(nc))
        END IF
        
        Fmt = "(2x, "//TRIM(Num2LStr(nc))//"(1x,"//ReFmt//"))"   
  
        DO i=1,nr
           WRITE( Un, Fmt, IOSTAT=ErrStat ) A(i,:)
  
negative.code:       ELSE
           ErrMsg = ' Error allocating '//TRIM(Num2LStr(AryDim1*AryDim2*BYTES_IN_R8Ki))//&
                    ' bytes of memory for the '//TRIM( Descr )//' array.'
        END IF
     ELSE
        ErrStat = ErrID_None
        ErrMsg  = ''
  