Hello All,

I was looking at .f file of a hydraulic fracture example in Abaqus Manual. In the following subroutine I am not able to understand the relation and values used to define "f". Please suggest!

subroutine dload(f,kstep,kinc,time,noel,npt,layer,kspt, \\\$ coords,jltyp,sname)

C include 'aba_param.inc'

C dimension time(2),coords(3) character*80 sname

if (coords(3).ge.-2110.d0)

then f = 2750.d0 - (16.25d0*coords(3))

else if (coords(3).ge.-2132)

then f = 1750.d0 - (16.25d0*coords(3))

else f = 2250.d0 - (16.25d0*coords(3))

end if

C return end

Thanks,

Aditya