anchor.diff:       +  'buffer needs to be > ', I4)
         END
   
  -C *** Wrapper routines for NXAPI interface
  +!> Wrapper routines for NXAPI interface
  +!<
         INTEGER FUNCTION NXOPEN(FILENAME, ACCESS_METHOD, FILEID)
         CHARACTER*(*) FILENAME
         INTEGER*1 IFILENAME(256)
  
positive.code:      +       'buffer needs increasing from ', i4,' to at least ',i4)
        END
  
  C *** Convert NULL terminated C string ISTRING to FORTRAN string STRING
        SUBROUTINE REPLACE_STRING(STRING, ISTRING)
        INTEGER*1 ISTRING(*)
        CHARACTER*(*) STRING
  
negative.code:       TRUELEN = 0
        END
  
  !> Convert FORTRAN string STRING into NULL terminated C string ISTRING
  !<
        SUBROUTINE EXTRACT_STRING(ISTRING, LENMAX, STRING)
        CHARACTER*(*) STRING
        INTEGER I,ILEN,TRUELEN,LENMAX
  