Next: Subroutine UIBODY Up: FEMGEN Geometry User Routines Previous: FEMGEN Geometry User Routines
Next: Subroutine UIBODY
Up: FEMGEN Geometry User Routines
Previous: FEMGEN Geometry User Routines
SUBROUTINE FGVINI(IWORK,IWLENG,IERROR)
C F G V I N I
C ===========
C********************************************************************
C ---
C --- PURPOSE : TO INITIALISE FEMGV
C --- CALLED BY STAND-ALONE CAD TO FEMGEN INTERFACES.
C ---
C --- IN : IWORK : INTEGER WORK ARRAY
C --- : IWLENG : LENGTH OF WORK ARRAY IABUF
C ---
C --- OUT : IERROR : 0 : OK
C --- : <> 0 : AN ERROR HAS OCCURRED
C --- : -1 : LICENCING ERROR
C --- : 1 : IWLENG TOO SMALL
C --- : 6 : UNABLE TO SET UP COMMAND PROCESSOR
C ---
C********************************************************************
C
INTEGER IWORK(*), IWLENG, IERROR
C
C********************************************************************
C