update ast 8.6.2

1 files changed, 70 insertions, 0 deletions

diff --git a/ast/object.f b/ast/object.f
new file mode 100644
index 0000000..34f92b2
--- /dev/null
+++ b/ast/object.f
@@ -0,0 +1,70 @@
+      CHARACTER * ( * ) FUNCTION AST_GETC( THIS, ATTRIB )
+*+
+* Name:
+*    AST_GETC
+
+*  Purpose:
+*     Wrap up the C ast_getc_a function.
+
+*  Language:
+*     Fortran 77
+
+*  Invocation:
+*     RESULT = AST_GETC( THIS, ATTRIB )
+
+*  Description:
+*     This function is a wrap-up of the C ast_getc_a function. It will
+*     rarely need to be used, but is provided for use on platforms
+*     where the normal mechanism for returning character strings as
+*     function results from C to Fortran (as defined in the f77.h
+*     include file) doesn't work.
+*
+*     If this problem is encountered, the C macro NO_CHAR_FUNCTION
+*     should be defined (in CFLAGS) during C compilation. This will
+*     cause the function ast_getc_a to be built (instead of ast_getc)
+*     and this returns its the result via an additional initial
+*     argument. This Fortran function is then used simply to transfer
+*     the argument value to the function result.
+
+*  Arguments:
+*     As for the C version of the Fortran-callable function ast_getc.
+
+*  Returned Value:
+*     AST_GETC = CHARACTER * ( * )
+*        The character return value required.
+
+*  Notes:
+*     - The length of the returned result is limited to 200 characters
+*     by a local buffer. This length can be increased if necessary.
+
+*  Authors:
+*     RFWS: R.F. Warren-Smith (STARLINK, RAL)
+*     {enter_new_authors_here}
+
+*  History:
+*     3-JUL-1996 (RFWS):
+*        Original version.
+*     {enter_changes_here}
+
+*  Bugs:
+*     {note_any_bugs_here}
+
+*-
+
+*  Type Definitions:
+      IMPLICIT NONE              ! No implicit typing
+
+*  Arguments Given:
+      INTEGER THIS
+      CHARACTER * ( * ) ATTRIB
+
+*  Local Variables:
+      CHARACTER * ( 200 ) BUFF   ! Local buffer for result
+*.
+
+*  Invoke the C function (with the additional argument).
+      CALL AST_GETC_A( BUFF, THIS, ATTRIB )
+
+*  Return the argument value as the function result.
+      AST_GETC = BUFF
+      END