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