Changeset 1705 for trunk/bindings

Timestamp:

22/10/11 22:10:47 (7 months ago)

Author:

Peter Peterson

Message:

refs #293

File:

• trunk/bindings/f77/napif.f (modified) (3 diffs)

trunk/bindings/f77/napif.f

@@ -76 +76 @@
       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
@@ -96 +97 @@
       END
 
-C *** Convert NULL terminated C string ISTRING to FORTRAN string STRING
+!> Convert NULL terminated C string ISTRING to FORTRAN string STRING
+!<
       SUBROUTINE REPLACE_STRING(STRING, ISTRING)
       INTEGER*1 ISTRING(*)
@@ -112 +114 @@
       END
 
-C *** Wrapper routines for NXAPI interface
+!> Wrapper routines for NXAPI interface
+!<
       INTEGER FUNCTION NXOPEN(FILENAME, ACCESS_METHOD, FILEID)
       CHARACTER*(*) FILENAME