tecio.f90

      INTERFACE


      SUBROUTINE tecforeign112 &
       (OutputForeignByteOrder)
        !MS$ATTRIBUTES STDCALL :: tecforeign112
        !MS$ATTRIBUTES REFERENCE :: OutputForeignByteOrder
        INTEGER(4) OutputForeignByteOrder
      END SUBROUTINE tecforeign112

      INTEGER(4) FUNCTION tecini112 &
       (Title, &
        Variables, &
        FName, &
        ScratchDir, &
        FileType, &
        Debug, &
        VIsDouble)
        !MS$ATTRIBUTES STDCALL :: tecini112
        !MS$ATTRIBUTES REFERENCE :: Title,Variables,FName,ScratchDir
        !MS$ATTRIBUTES REFERENCE :: FileType,Debug,VIsDouble
        CHARACTER(LEN=*) Title
        CHARACTER(LEN=*) Variables
        CHARACTER(LEN=*) FName
        CHARACTER(LEN=*) ScratchDir
        INTEGER(4)       FileType
        INTEGER(4)       Debug
        INTEGER(4)       VIsDouble
      END FUNCTION tecini112

      INTEGER(4) FUNCTION teczne112 &
       (ZoneTitle, &
        ZoneType, &
        IMxOrNumPts, &
        JMxOrNumElements, &
        KMxOrNumFaces, &
        ICellMax, &
        JCellMax, &
        KCellMax, &
        SolutionTime, &
        StrandID, &
        ParentZone, &
        IsBlock, &
        NumFaceConnections, &
        FaceNeighborMode, &
        TotalNumFaceNodes, &
        NumConnectedBoundaryFaces, &
        TotalNumBoundaryConnections, &
        PassiveVarList, &
        ValueLocation, &
        ShareVarFromZone, &
        ShareConnectivityFromZone)
        !MS$ATTRIBUTES STDCALL :: teczne112
        !MS$ATTRIBUTES REFERENCE :: ZoneTitle,ZoneType,IMxOrNumPts
        !MS$ATTRIBUTES REFERENCE :: JMxOrNumElements,KMxOrNumFaces
        !MS$ATTRIBUTES REFERENCE :: ICellMax,JCellMax,KCellMax
        !MS$ATTRIBUTES REFERENCE :: SolutionTime,StrandID,ParentZone
        !MS$ATTRIBUTES REFERENCE :: IsBlock,PassiveVarList
        !MS$ATTRIBUTES REFERENCE :: NumFaceConnections,FaceNeighborMode
        !MS$ATTRIBUTES REFERENCE :: TotalNumFaceNodes
        !MS$ATTRIBUTES REFERENCE :: NumConnectedBoundaryFaces
        !MS$ATTRIBUTES REFERENCE :: TotalNumBoundaryConnections
        !MS$ATTRIBUTES REFERENCE :: ValueLocation,ShareVarFromZone
        !MS$ATTRIBUTES REFERENCE :: ShareConnectivityFromZone
        CHARACTER(LEN=*) ZoneTitle
        INTEGER(4)       ZoneType
        INTEGER(4)       IMxOrNumPts
        INTEGER(4)       JMxOrNumElements
        INTEGER(4)       KMxOrNumFaces
        INTEGER(4)       ICellMax
        INTEGER(4)       JCellMax
        INTEGER(4)       KCellMax
        REAL(8)          SolutionTime
        INTEGER(4)       StrandID
        INTEGER(4)       ParentZone
        INTEGER(4)       IsBlock
        INTEGER(4)       NumFaceConnections
        INTEGER(4)       FaceNeighborMode
        INTEGER(4)       TotalNumFaceNodes
        INTEGER(4)       NumConnectedBoundaryFaces
        INTEGER(4)       TotalNumBoundaryConnections
        INTEGER(4)       PassiveVarList(*)
        INTEGER(4)       ValueLocation(*)
        INTEGER(4)       ShareVarFromZone(*)
        INTEGER(4)       ShareConnectivityFromZone
      END FUNCTION teczne112

      INTEGER(4) FUNCTION tecdat112 &
       (N, &
        FieldData, &
        IsDouble)
        !MS$ATTRIBUTES STDCALL :: tecdat112
        !MS$ATTRIBUTES REFERENCE :: N,FieldData,IsDouble
        INTEGER(4)  N
        REAL(4)     FieldData(*)
        INTEGER(4)  IsDouble
      END FUNCTION tecdat112

      INTEGER(4) FUNCTION tecnod112 &
       (NData)
        !MS$ATTRIBUTES STDCALL :: tecnod112
        !MS$ATTRIBUTES REFERENCE :: NData
        INTEGER(4)  NData(*)
      END FUNCTION tecnod112

      INTEGER(4) FUNCTION tecgeo112 &
       (XPos, &
        YPos, &
        ZPos, &
        PosCoordMode, &
        AttachToZone, &
        Zone, &
        Color, &
        FillColor, &
        IsFilled, &
        GeomType, &
        LinePattern, &
        PatternLength, &
        LineThickness, &
        NumEllipsePts, &
        ArrowheadStyle, &
        ArrowheadAttachment, &
        ArrowheadSize, &
        ArrowheadAngle, &
        Scope, &
        Clipping, &
        NumSegments, &
        NumSegPts, &
        XGeomData, &
        YGeomData, &
        ZGeomData, &
        mfc)
        !MS$ATTRIBUTES STDCALL :: tecgeo112
        !MS$ATTRIBUTES REFERENCE :: XPos,YPos,ZPos,PosCoordMode
        !MS$ATTRIBUTES REFERENCE :: AttachToZone,Zone,Color,FillColor
        !MS$ATTRIBUTES REFERENCE :: IsFilled,GeomType,LinePattern
        !MS$ATTRIBUTES REFERENCE :: PatternLength,LineThickness
        !MS$ATTRIBUTES REFERENCE :: NumEllipsePts,ArrowheadStyle
        !MS$ATTRIBUTES REFERENCE :: ArrowheadAttachment,ArrowheadSize
        !MS$ATTRIBUTES REFERENCE :: ArrowheadAngle,Scope,Clipping
        !MS$ATTRIBUTES REFERENCE :: NumSegments,NumSegPts
        !MS$ATTRIBUTES REFERENCE :: XGeomData,YGeomData
        !MS$ATTRIBUTES REFERENCE :: ZGeomData,mfc
        REAL(8)        XPos
        REAL(8)        YPos
        REAL(8)        ZPos
        INTEGER(4)     PosCoordMode
        INTEGER(4)     AttachToZone
        INTEGER(4)     Zone
        INTEGER(4)     Color
        INTEGER(4)     FillColor
        INTEGER(4)     IsFilled
        INTEGER(4)     GeomType
        INTEGER(4)     LinePattern
        REAL(8)        PatternLength
        REAL(8)        LineThickness
        INTEGER(4)     NumEllipsePts
        INTEGER(4)     ArrowheadStyle
        INTEGER(4)     ArrowheadAttachment
        REAL(8)        ArrowheadSize
        REAL(8)        ArrowheadAngle
        INTEGER(4)     Scope
        INTEGER(4)     Clipping
        INTEGER(4)     NumSegments
        INTEGER(4)     NumSegPts(*)
        REAL(4)        XGeomData(*)
        REAL(4)        YGeomData(*)
        REAL(4)        ZGeomData(*)
        character(len=*) mfc
      END FUNCTION tecgeo112

      INTEGER(4) FUNCTION tectxt112 &
       (XOrThetaPos, &
        YOrRPos, &
        ZOrUnusedPos, &
        PosCoordMode, &
        AttachToZone, &
        Zone, &
        Font, &
        FontHeightUnits, &
        FontHeight, &
        BoxType, &
        BoxMargin, &
        BoxLineThickness, &
        BoxColor, &
        BoxFillColor, &
        Angle, &
        Anchor, &
        LineSpacing, &
        TextColor, &
        Scope, &
        Clipping, &
        Text, &
        mfc)
        !MS$ATTRIBUTES STDCALL :: tectxt112
        !MS$ATTRIBUTES REFERENCE :: XOrThetaPos,YOrRPos
        !MS$ATTRIBUTES REFERENCE :: ZOrUnusedPos,PosCoordMode
        !MS$ATTRIBUTES REFERENCE :: AttachToZone,Zone,Font
        !MS$ATTRIBUTES REFERENCE :: FontHeightUnits
        !MS$ATTRIBUTES REFERENCE :: FontHeight,BoxType,BoxMargin
        !MS$ATTRIBUTES REFERENCE :: BoxLineThickness,BoxColor
        !MS$ATTRIBUTES REFERENCE :: BoxFillColor,Angle,Anchor
        !MS$ATTRIBUTES REFERENCE :: LineSpacing,TextColor,Scope,Clipping
        !MS$ATTRIBUTES REFERENCE :: Text,mfc
        REAL(8)          XOrThetaPos
        REAL(8)          YOrRPos
        REAL(8)          ZOrUnusedPos
        INTEGER(4)       PosCoordMode
        INTEGER(4)       AttachToZone
        INTEGER(4)       Zone
        INTEGER(4)       Font
        INTEGER(4)       FontHeightUnits
        REAL(8)          FontHeight
        INTEGER(4)       BoxType
        REAL(8)          BoxMargin
        REAL(8)          BoxLineThickness
        INTEGER(4)       BoxColor
        INTEGER(4)       BoxFillColor
        REAL(8)          Angle
        INTEGER(4)       Anchor
        REAL(8)          LineSpacing
        INTEGER(4)       TextColor
        INTEGER(4)       Scope
        INTEGER(4)       Clipping
        CHARACTER(LEN=*) Text
        CHARACTER(LEN=*) mfc
      END FUNCTION tectxt112

      INTEGER(4) FUNCTION teclab112 &
       (S)
        !MS$ATTRIBUTES STDCALL :: teclab112
        !MS$ATTRIBUTES REFERENCE :: S
        character(len=*) S
      END FUNCTION teclab112

      INTEGER(4) FUNCTION tecfil112 &
       (F)
        !MS$ATTRIBUTES STDCALL :: tecfil112
        !MS$ATTRIBUTES REFERENCE :: F
        INTEGER(4)  F
      END FUNCTION tecfil112

      INTEGER(4) FUNCTION tecend112()
        !MS$ATTRIBUTES STDCALL :: tecend112
      END FUNCTION tecend112

      INTEGER(4) FUNCTION tecusr112 &
       (S)
        !MS$ATTRIBUTES STDCALL :: tecusr112
        !MS$ATTRIBUTES REFERENCE :: S
        character(len=*) S
      END FUNCTION tecusr112

      INTEGER(4) FUNCTION tecauxstr112 &
       (Name, &
        Value)
        !MS$ATTRIBUTES STDCALL :: tecauxstr112
        !MS$ATTRIBUTES REFERENCE :: Name, Value
        CHARACTER(LEN=*) Name 
        CHARACTER(LEN=*) Value
      END FUNCTION tecauxstr112

      INTEGER(4) FUNCTION teczauxstr112 &
       (Name, &
        Value)
        !MS$ATTRIBUTES STDCALL :: teczauxstr112
        !MS$ATTRIBUTES REFERENCE :: Name, Value
        CHARACTER(LEN=*) Name 
        CHARACTER(LEN=*) Value
      END FUNCTION teczauxstr112

      INTEGER(4) FUNCTION tecvauxstr112 &
       (Name, &
        Value)
        !MS$ATTRIBUTES STDCALL :: tecvauxstr112
        !MS$ATTRIBUTES REFERENCE :: Name, Value
        CHARACTER(LEN=*) Name 
        CHARACTER(LEN=*) Value
      END FUNCTION tecvauxstr112

      INTEGER(4) FUNCTION tecface112 &
       (FaceConnections)
        !MS$ATTRIBUTES STDCALL :: tecface112
        !MS$ATTRIBUTES REFERENCE :: FaceConnections
        INTEGER(4) FaceConnections(*)
      END FUNCTION tecface112

      INTEGER(4) FUNCTION tecpoly112 &
       (FaceNodeCounts, &
        FaceNodes, &
        FaceLeftElems, &
        FaceRightElems, &
        FaceBndryConnectionCounts, &
        FaceBndryConnectionElems, &
        FaceBndryConnectionZones)
        !MS$ATTRIBUTES STDCALL   :: tecpoly112
        !MS$ATTRIBUTES REFERENCE :: FaceNodes
        !MS$ATTRIBUTES REFERENCE :: FaceLeftElems
        !MS$ATTRIBUTES REFERENCE :: FaceRightElems
        !MS$ATTRIBUTES REFERENCE :: FaceBndryConnectionCounts
        !MS$ATTRIBUTES REFERENCE :: FaceBndryConnectionElems
        !MS$ATTRIBUTES REFERENCE :: FaceBndryConnectionZones
        INTEGER(4) FaceNodeCounts(*)
        INTEGER(4) FaceNodes(*)
        INTEGER(4) FaceLeftElems(*)
        INTEGER(4) FaceRightElems(*)
        INTEGER(4) FaceBndryConnectionCounts(*)
        INTEGER(4) FaceBndryConnectionElems(*)
        INTEGER(2) FaceBndryConnectionZones(*)
      END FUNCTION tecpoly112


      END INTERFACE