-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathVDFLUX-Subroutine-Abaqus-Welding.for
More file actions
59 lines (51 loc) · 2.08 KB
/
Copy pathVDFLUX-Subroutine-Abaqus-Welding.for
File metadata and controls
59 lines (51 loc) · 2.08 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
C # This is just a demo to show how the code is structured. For the full, working version, please visit our website.#
C ######################################################################
C ################# CAE Assistant Company ################
C ############## www CAEassistant com #############
C ########### Copy right by CAE Assistant Company ###############
C ######################################################################
C ONLY the BUYER of this package has permission to use its codes.
C Any distribution of this subroutine is illegal and will be prosecuted
C ######################################################################
C ######################################################################
C CAE Assisitant Services:
C Toturial Packages,Consultancy,Articles,Q&A,Video Gallery,Online Course
C ######################################################################
C Need help with your project?
C You can get initial free consultation from (Support CAEassistant com)
C ######################################################################
SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,
1 JLTYP,TEMP,PRESS,SNAME)
include 'ABA_PARAM.INC'
DIMENSION FLUX(2),TIME(2),COORDS(3)
CHARACTER*80 SNAME
*code
REAL SOL,TEMP,PRESS
INTEGER JSTEP,JINC,NOEL,NPT,JLTYP
REAL t,dt,x,y,z
REAL FLUX1,FLUX2,FLUX3
INTEGER flag,kstep
Real Q,a,b,cf,cr,pi,m,n
*times
t=time(1)
pi = 3.14159265359
ff=(2*cf)/
$ ! Hidden Lines
! Hidden Lines
*start point parameters
FLUX(1) = 0
! Hidden Lines
C FORM HEAT FLUX FROM SAMPLING POINTS
if(kstep.EQ.3) then
Q = 0.5*10*90
! Hidden Lines
m=exp(-3*
$ ! Hidden Lines
if(y1 .ge. 0.d0)then
c
! Hidden Lines
FLUX(1)= heat*fr
end if
end if
return
end