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 air_valve(node1,node2,nodem,nelem,lakon,kon,ipkon, 20 & nactdog,identity,ielprop,prop,iflag,v,xflow,f, 21 & nodef,idirf,df,cp,r,physcon,dvi,numf,set,co,vold,mi, 22 & ttime,time,iaxial,iplausi) 23! 24! proprietary 25! 26 implicit none 27! 28 logical identity 29 character*8 lakon(*) 30 character*81 set(*) 31! 32 integer node1,node2,nodem,nelem,kon(*),ipkon(*),nactdog(0:3,*), 33 & ielprop(*),iflag,nodef(5),idirf(5),numf,mi(*),iaxial, 34 & iplausi 35! 36 real*8 prop(*),v(0:mi(2),*),xflow,f,df(5),cp,r,physcon(*),dvi, 37 & ttime,time,co(3,*),vold(0:mi(2),*) 38! 39! 40! 41 return 42 end 43 44 45 46 47 48 49 50 51