CalculiX  2.13
A Free Software Three-Dimensional Structural Finite Element Program
Functions/Subroutines
skip.f File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine skip (nset, nalset, nload, nbody, nforc, nboun, nk, ne, nkon, mi, nmpc, memmpc_, nmat, ntmat_, npmat_, ncmat_, norien, ntrans, nam, nprint, nlabel, ncs_, ne1d, ne2d, infree, nmethod, iperturb, nener, ithermal, nstate_, iprestr, mcs, ntie, nslavs, nprop, mortar, ifacecount, nintpoint)
 

Function/Subroutine Documentation

◆ skip()

subroutine skip ( integer  nset,
integer  nalset,
integer  nload,
integer  nbody,
integer  nforc,
integer  nboun,
integer  nk,
integer  ne,
integer  nkon,
integer, dimension(*)  mi,
integer  nmpc,
integer  memmpc_,
integer  nmat,
integer  ntmat_,
integer  npmat_,
integer  ncmat_,
integer  norien,
integer  ntrans,
integer  nam,
integer  nprint,
integer  nlabel,
integer  ncs_,
integer  ne1d,
integer  ne2d,
integer, dimension(4)  infree,
integer  nmethod,
integer, dimension(*)  iperturb,
integer  nener,
integer  ithermal,
integer  nstate_,
integer  iprestr,
integer  mcs,
integer  ntie,
integer  nslavs,
integer  nprop,
integer  mortar,
integer  ifacecount,
integer  nintpoint 
)
25 !
26  implicit none
27 !
28  integer nset,nalset,nload,nforc,nboun,nk,ne,nkon,mi(*),
29  & nmpc,memmpc_,nmat,ntmat_,npmat_,ncmat_,norien,ntrans,nam,
30  & nprint,nlabel,ncs_,ne1d,ne2d,infree(4),i,mt,nprop,mortar,
31  & nmethod,iperturb(*),nener,ithermal,nstate_,iprestr,i4,
32  & maxamta,mcs,ntie,nbody,nslavs,nintpoint,ifacecount
33 !
34  character*1 c1
35  character*3 c3
36  character*6 c6
37  character*8 c8
38  character*20 c20
39  character*80 c80
40  character*81 c81
41  character*87 c87
42 !
43  real*8 r8
44 !
45  mt=mi(2)+1
46 !
47 ! skipping the next entries
48 !
49 !
50 ! sets
51 !
52  read(15)(c81,i=1,nset)
53  read(15)(i4,i=1,nset)
54  read(15)(i4,i=1,nset)
55  do i=1,nalset
56  read(15)i4
57  enddo
58 !
59 ! mesh
60 !
61  read(15)(r8,i=1,3*nk)
62  read(15)(i4,i=1,nkon)
63  read(15)(i4,i=1,ne)
64  read(15)(c8,i=1,ne)
65 !
66 ! single point constraints
67 !
68  read(15)(i4,i=1,nboun)
69  read(15)(i4,i=1,nboun)
70  read(15)(c1,i=1,nboun)
71  read(15)(r8,i=1,nboun)
72  read(15)(i4,i=1,nboun)
73  read(15)(i4,i=1,nboun)
74  if(nam.gt.0) read(15)(i4,i=1,nboun)
75  read(15)(i4,i=1,nboun)
76  read(15)(i4,i=1,nboun)
77  read(15)(r8,i=1,nboun)
78 !
79 ! multiple point constraints
80 !
81  read(15)(i4,i=1,nmpc)
82  read(15)(c20,i=1,nmpc)
83  read(15)(i4,i=1,nmpc)
84  read(15)(i4,i=1,nmpc)
85  read(15)(r8,i=1,nmpc)
86  read(15)(i4,i=1,3*memmpc_)
87  read(15)(r8,i=1,memmpc_)
88 !
89 ! point forces
90 !
91  read(15)(i4,i=1,2*nforc)
92  read(15)(i4,i=1,nforc)
93  read(15)(r8,i=1,nforc)
94  read(15)(i4,i=1,nforc)
95  read(15)(i4,i=1,nforc)
96  if(nam.gt.0) read(15)(i4,i=1,nforc)
97  read(15)(r8,i=1,nforc)
98 !
99 ! distributed loads
100 !
101  read(15)(i4,i=1,2*nload)
102  read(15)(c20,i=1,nload)
103  read(15)(r8,i=1,2*nload)
104  if(nam.gt.0) read(15)(i4,i=1,2*nload)
105  read(15)(r8,i=1,2*nload)
106  read(15)(c81,i=1,nbody)
107  read(15)(i4,i=1,3*nbody)
108  read(15)(r8,i=1,7*nbody)
109  read(15)(r8,i=1,7*nbody)
110 !
111 ! prestress
112 !
113  if(iprestr.gt.0) read(15) (r8,i=1,6*mi(1)*ne)
114 !
115 ! labels
116 !
117  read(15)(c6,i=1,nprint)
118  read(15)(c81,i=1,nprint)
119  read(15)(c87,i=1,nlabel)
120 !
121 ! elastic constants
122 !
123  read(15)(r8,i=1,(ncmat_+1)*ntmat_*nmat)
124  read(15)(i4,i=1,2*nmat)
125 !
126 ! density
127 !
128  read(15)(r8,i=1,2*ntmat_*nmat)
129  read(15)(i4,i=1,nmat)
130 !
131 ! specific heat
132 !
133  read(15)(r8,i=1,4*ntmat_*nmat)
134  read(15)(i4,i=1,nmat)
135 !
136 ! conductivity
137 !
138  read(15)(r8,i=1,7*ntmat_*nmat)
139  read(15)(i4,i=1,2*nmat)
140 !
141 ! expansion coefficients
142 !
143  read(15)(r8,i=1,7*ntmat_*nmat)
144  read(15)(i4,i=1,2*nmat)
145  read(15)(r8,i=1,nmat)
146 !
147 ! physical constants
148 !
149  read(15)(r8,i=1,10)
150 !
151 ! plastic data
152 !
153  if(npmat_.ne.0)then
154  read(15)(r8,i=1,(2*npmat_+1)*ntmat_*nmat)
155  read(15)(i4,i=1,(ntmat_+1)*nmat)
156  read(15)(r8,i=1,(2*npmat_+1)*ntmat_*nmat)
157  read(15)(i4,i=1,(ntmat_+1)*nmat)
158  endif
159 !
160 ! material orientation
161 !
162  if(norien.ne.0)then
163  read(15)(c80,i=1,norien)
164  read(15)(r8,i=1,7*norien)
165  read(15)(i4,i=1,mi(3)*ne)
166  endif
167 !
168 ! fluid section properties
169 !
170  if(nprop.ne.0) then
171  read(15)(i4,i=1,ne)
172  read(15)(r8,i=1,nprop)
173  endif
174 !
175 ! transformations
176 !
177  if(ntrans.ne.0)then
178  read(15)(r8,i=1,7*ntrans)
179  read(15)(i4,i=1,2*nk)
180  endif
181 !
182 ! amplitudes
183 !
184  if(nam.gt.0)then
185  read(15)(c80,i=1,nam)
186  read(15)(i4,i=1,3*nam-1)
187  maxamta=2*i4
188  read(15)i4
189  read(15)(r8,i=1,maxamta)
190  endif
191 !
192 ! temperatures
193 !
194  if(ithermal.gt.0)then
195  read(15)(r8,i=1,nk)
196  read(15)(r8,i=1,nk)
197  if((ne1d.gt.0).or.(ne2d.gt.0))then
198  read(15)(r8,i=1,2*nk)
199  read(15)(r8,i=1,2*nk)
200  endif
201  if(nam.gt.0) read(15)(i4,i=1,nk)
202  read(15)(r8,i=1,nk)
203  endif
204 !
205 ! materials
206 !
207  read(15)(c80,i=1,nmat)
208  read(15)(i4,i=1,mi(3)*ne)
209 !
210 ! temperature, displacement, static pressure, velocity and acceleration
211 !
212  read(15)(r8,i=1,mt*nk)
213  if((nmethod.eq.4).or.((nmethod.eq.1).and.(iperturb(1).ge.2)))
214  & then
215  read(15)(r8,i=1,mt*nk)
216  endif
217 !
218 ! 1d and 2d elements
219 !
220  if((ne1d.gt.0).or.(ne2d.gt.0))then
221  read(15)(i4,i=1,2*nkon)
222  read(15)(r8,i=1,infree(1))
223  read(15)(i4,i=1,infree(2))
224  read(15)(r8,i=1,mi(3)*nkon)
225  read(15)(r8,i=1,2*ne)
226  read(15)(i4,i=1,infree(4))
227  read(15)(i4,i=1,3*(infree(3)-1))
228  read(15)(i4,i=1,infree(4))
229  endif
230 !
231 ! tie constraints
232 !
233  if(ntie.gt.0) then
234  read(15)(c81,i=1,3*ntie)
235  read(15)(r8,i=1,3*ntie)
236  endif
237 !
238 ! cyclic symmetry
239 !
240  if(ncs_.gt.0)then
241  read(15)(i4,i=1,ncs_)
242  endif
243  if(mcs.gt.0) then
244  read(15)(r8,i=1,17*mcs)
245  endif
246 !
247 ! integration point variables
248 !
249  read(15)(r8,i=1,6*mi(1)*ne)
250  read(15)(r8,i=1,6*mi(1)*ne)
251  if(nener.eq.1) read(15)(r8,i=1,mi(1)*ne)
252  if(nstate_.gt.0) then
253  if(mortar.eq.0) then
254  read(15)(r8,i=1,nstate_*mi(1)*(ne+nslavs))
255  elseif(mortar.eq.1) then
256  read(15)(r8,i=1,nstate_*mi(1)*(ne+nintpoint))
257  endif
258  endif
259 !
260 ! face-to-face penalty contact variables
261 !
262  if(mortar.eq.1) then
263  read(15) (i4,i=1,2*ifacecount+2)
264  read(15) (r8,i=1,3*nintpoint)
265  read(15) (r8,i=1,3*9*ifacecount)
266  endif
267 !
268 ! control parameters
269 !
270  read(15) (r8,i=1,39)
271  read(15) (r8,i=1,2)
272  read(15) c3
273  read(15) r8
274 !
275  return
c1
static double * c1
Definition: mafillvcompmain.c:30
Hosted by OpenAircraft.com, (Michigan UAV, LLC)