Welcome to Adams/Solver Subroutines - Kxcad.net

FORTRAN - Prototype
Welcome to Adams/Solver Subroutines
A sample structure for the SPLINE_READ subroutine follows next. The comments explain the activities
that the subroutine performs.
SUBROUTINE SPLINE_READ (ID, FILE_NAME, BLOCK_NAME, STATUS)
C
C === Type and dimension statements ===================
C
C Note: For machines with 60 or more bits per word,
C substitute "REAL" for "DOUBLE PRECISION".
C
C - External variable definitions ---------
C
INTEGERID
CHARACTER*132FILE_NAME
CHARACTER*132BLOCK_NAME
LOGICALSTATUS
C
C IDIdentifier of calling SPLINE statement
C FILE_NAMEName of file containing data to define spline
C BLOCK_NAMEName of named block within the file to be
C used for this spline
C STATUS Error status flag
C
C - Local variable definitions -----------
C
...
C
C === Executable code =================================
C
C open file, check validity, type... and read data into local
variables
C
...
CALL PUT_SPLINE(ID,NX,NZ,X,Y,Z,ERRFLG)
C
C check ERRFLG, clean-up (release memory if necessary, close
file...), and set STATUS
C
...
C
RETURN
END
C Style - Prototype
typedef void adams_c_SPLINE_READ(const struct sAdamsSpline* spline,
int* IERR);
/*
* SPLINE -------------------------------------------------
----------------
*/
struct sAdamsSpline
207