anchor.diff:        TRUELEN = 0
         END
   
  -C *** Convert FORTRAN string STRING into NULL terminated C string ISTRING
  +!> Convert FORTRAN string STRING into NULL terminated C string ISTRING
  +!<
         SUBROUTINE EXTRACT_STRING(ISTRING, LENMAX, STRING)
         CHARACTER*(*) STRING
         INTEGER I,ILEN,TRUELEN,LENMAX
  
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:      +  'buffer needs to be > ', I4)
        END
  
  !> Wrapper routines for NXAPI interface
  !<
        INTEGER FUNCTION NXOPEN(FILENAME, ACCESS_METHOD, FILEID)
        CHARACTER*(*) FILENAME
        INTEGER*1 IFILENAME(256)
  