1!
2!     CalculiX - A 3-dimensional finite element program
3!              Copyright (C) 1998-2021 Guido Dhondt
4!
5!     This program is free software; you can redistribute it and/or
6!     modify it under the terms of the GNU General Public License as
7!     published by the Free Software Foundation(version 2);
8!
9!
10!     This program is distributed in the hope that it will be useful,
11!     but WITHOUT ANY WARRANTY; without even the implied warranty of
12!     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13!     GNU General Public License for more details.
14!
15!     You should have received a copy of the GNU General Public License
16!     along with this program; if not, write to the Free Software
17!     Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18!
19      subroutine gapcon(ak,d,flowm,temp,predef,time,ciname,slname,
20     &   msname,coords,noel,node,npred,kstep,kinc,area)
21!
22!     user subroutine gapcon
23!
24!
25!     INPUT:
26!
27!     d(1)               separation between the surfaces
28!     d(2)               pressure transmitted across the surfaces
29!     flowm              not used
30!     temp(1)            temperature at the slave node (node-to-face
31!                        contact) or at the slave integration point
32!                        (face-to-face contact)
33!     temp(2)            temperature at the corresponding master
34!                        position
35!     predef             not used
36!     time(1)            step time at the end of the increment
37!     time(2)            total time at the end of the increment
38!     ciname             surface interaction name
39!     slname             not used
40!     msname             not used
41!     coords(1..3)       coordinates of the slave node (node-to-face
42!                        contact) or of the slave integration point
43!                        (face-to-face contact)
44!     noel               element number of the contact spring element
45!     node               slave node number; zero for face-to-face contact
46!     npred              not used
47!     kstep              step number
48!     kinc               increment number
49!     area               slave area corresponding to the contact spring
50!                        element
51!
52!     OUTPUT:
53!
54!     ak(1)              gap conductance
55!     ak(2..5)           not used
56!
57      implicit none
58!
59      character*80 ciname,slname,msname
60!
61      integer noel,node,npred,kstep,kinc
62!
63      real*8 ak(5),d(2),flowm(2),temp(2),predef(2,*),time(*),coords(3),
64     &  area
65!
66!
67!
68!     insert code here
69!
70      return
71      end
72
73