Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TugboatEng on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

sfilm subroutine

Status
Not open for further replies.

marecare02

Mechanical
Joined
Mar 19, 2010
Messages
6
Location
SI
Hi!

I want to know if it's possible to write subroutine of 3 different time dependent surface film conditions at same time, with differnet h1, h2 and h3? they aren't temperature dependent. I wrote subroutine for one, but i am no sure if i can write for 3 sfilms. (i want to simulate 3 different intakes of energy, simultaneous, independent).

can you help me please. here is my code for one...

SUBROUTINE FILM(H,SINK,TEMP,KSTEP,KINC,TIME,NOEL,NPT,
1 COORDS,JLTYP,FIELD,NFIELD,SNAME,NODE,AREA)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION H(2),TIME(2),COORDS(3), FIELD(NFIELD)
CHARACTER*80 SNAME
C
SINK=1000
C
x=coords(1)
y=coords(2)
C
t2=time(2)
C
C
b=4
a=3
C
H(1)=100*exp(-(((y-t2)/a)**4+((x)/b)**4))/4*a*b
C
return
end
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top