anchor.diff:  
      RETURN
      END SUBROUTINE WrFileNR ! ( Unit, Str )
  -!=======================================================================  
  +!=======================================================================
      SUBROUTINE WrMatrix1R4( A, Un, ReFmt, MatName )
      
         ! This routine writes all the values of a 1-dimensional matrix, A, 
  
positive.code:       CHARACTER(*), OPTIONAL, INTENT(IN) :: MatName
  
        INTEGER                            :: ErrStat
        INTEGER                            :: nr, nc  ! size (rows and columns) of A
        INTEGER                            :: i       ! indices into A
        CHARACTER(256)                     :: Fmt
     
     
        nr = SIZE(A,1)
        nc = SIZE(A,2)
  
  
negative.code:          IF ( Arg(1:1) == SwChar )  THEN
  
              CALL NWTC_DisplaySyntax( InputFile, ProgName )
  
              IF ( INDEX( 'Hh?', Arg(2:2)  ) > 0 )  THEN
                 IF ( PRESENT(ErrStat) ) THEN
                    ErrStat = ErrID_Info !bjj? do we want to check if an input file was specified later?
  