!#!Info  Example:       Elastic coupling of volumetric regions
!#!Info  Keyword:       Elastic interface ; Coupling
!#!Info  Program:       SOFIMSHA
!#!Info  Version:       SOFiSTiK 2016

+PROG AQUA urs:1
HEAD Materials

MAT 1
MAT 2
MAT 3
MAT 4
MAT 5

END

+PROG SOFIMSHA urs:2
HEAD Mesh
SYST 3D GDIV 10000 GDIR NEGZ

NODE NO  X  Y  Z
      1  0  5  5
      2  5  5  5
      3  5  0  5
      4 10 10  5
      5  0 10  5
      6 10  0  5

NODE MESH 1 2 DIV 5
     MESH 2 3 DIV 5
     MESH 2 4 DIV 5 FIX PZ
     MESH 5 4 DIV 5
     MESH 6 4 DIV 5

EDGE 1 FIT 1 2
     2 FIT 2 3
     3 FIT 2 4
     4 FIT 5 4
     5 FIT 6 4

GRP 11 REF 111
QUAD PROP MNO 1 T 0
EXTR EDGE 1 PATH EDGE 2

GRP 12 REF 112
QUAD PROP MNO 1 T 0
LOFT EDGE IDSC 1 IDTG 4

GRP 13 REF 113
QUAD PROP MNO 1 T 0
! EDGE 2 AND 5 DEFINED WITH OPPOSITE DIRECTIONS
! PROVIDE REFERECE POINTS
LOFT EDGE IDSC 2 IDTG 5 REFS 2 REFT 4

GRP 2 REF 12
QUAD PROP MNO 2 T 0
EXTR EDGE 1 PATH DIR  0  0  5 DIV 5

GRP 3 REF 13
QUAD PROP MNO 3 T 0
EXTR EDGE 2 PATH DIR  0  0  5 DIV 5

GRP 4 REF 14
QUAD PROP MNO 4 T 0
EXTR EDGE 3 PATH DIR  0  0  5 DIV 5
EXTR FIX FROM EDGE 3 PATH DIR  0  0  5 DIV 5

GRP 5
BRIC PROP MNO 5
EXTR QUAD FROM GRP 11,12,13 PATH DIR  0  0  5 DIV 5
EXTR QUAD FROM GRP 11,12,13 PATH DIR  0  0 -5 DIV 5

MOD NODE ZMIN -0.01 ZMAX 0.01 FIX PP

END

+PROG SOFIMSHA urs:3
HEAD Interfaces
SYST REST

INTF          TYPE SPRI REFT SAR NO -12 D 0.5 CP 1 CT 1
INTF OPT CONT TYPE SPRI REFT SAR NO -13 D 0.5 CP 1 CT 1
INTF OPT CONT TYPE SPRI REFT SAR NO +111 D 0.5 CP 1 CT 1

INTF          TYPE SPRI REFT QREF NO +12 D 0.5 CP 1 CT 1
INTF OPT CONT TYPE SPRI REFT QREF NO +14 D 0.5 CP 1 CT 1

INTF          TYPE SPRI REFT QGRP NO +3 D 0.5 CP 1 CT 1
INTF OPT CONT TYPE SPRI REFT QGRP NO -4 D 0.5 CP 1 CT 1

END