Subroutine UIPHYS

      SUBROUTINE UIPHYS(IWHAT,INDEX,NAME,ISTYPE,
     1                  LREAL,RDATA,LINTG,IDATA,LPTR,IPTR,
     2                  IERROR)
C                                                         U I P H Y S
C                                                         ===========
C********************************************************************
C
C --- PURPOSE : INTERFACE TO PHYSICAL PROP ENTITY IN FEMGEN DATA BASE
C
C --- IN      : IWHAT  : ACTION REQUESTED ON ENTITY
C                      : 1 : CREATE
C                      : 2 : FIND
C                      : 3 : REPLACE
C                      : 4 : READ
C                      : 5 : DELETE
C
C --- IN/OUT  : INDEX  : POINTER TO INSTANCE
C             : NAME   : INSTANCE NAME
C             : ISTYPE : ENTITY SUB-TYPE
C             : LREAL  : NUMBER OF REALS
C             : RDATA  : REAL DATA
C             : LINTG  : NUMBER OF INTEGERS
C             : IDATA  : INTEGER DATA
C             : LPTR   : NUMBER OF POINTERS
C             : IPTR   : POINTER DATA
C             
C --- OUT     : IERROR : 0 : OK
C                      : 1 : AN ERROR HAS OCCURRED
C
C********************************************************************
C
C --- METHOD  : THE DATA PASSED TO OR OUTPUT FROM THIS ROUTINE IS
C               DEPENDENT ON THE PHYSICAL PROPERTY DEFINITION.
C
C   ISTYPE = 1 : PHYSICAL PROPERTY VARIANT
C              : LINTG           = 3
C              : IDATA(1)        = NUMBER OF PROPERTY VALUES
C              : IDATA(2)        = ORIENTATION FLAG
C              : IDATA(3)        = OFFSET FLAG
C              : LREAL           = 9 + NUMBER OF PROPERTY VALUES
C              : RDATA(1:3)      = ORIENTATION VECTOR
C              : RDATA(4:9)      = END OFFSETS
C              : RDATA(10:LREAL) = VALUES
C              : LPTR            = 1
C              : IPTR(1)         = PHYSICAL PROPERTY DEFINITION
C
C********************************************************************
C
      REAL      RDATA(*)
      INTEGER   IWHAT,INDEX,ISTYPE,LREAL,LINTG,LPTR,IERROR
      INTEGER   IDATA(*),IPTR(*)
      CHARACTER*(*) NAME
C
C********************************************************************
C