Message from discussion fortran
Received: by 10.68.211.136 with SMTP id nc8mr10920722pbc.6.1335712228823;
Sun, 29 Apr 2012 08:10:28 -0700 (PDT)
From: "eng_mohamedrama...@yahoo.com" <eng_mohamedrama...@yahoo.com>
Subject: Re: fortran
Date: Sun, 29 Apr 2012 08:03:05 -0700 (PDT)
X-Trace: posting.google.com 1335712228 16851 127.0.0.1 (29 Apr 2012 15:10:28 GMT)
NNTP-Posting-Date: Sun, 29 Apr 2012 15:10:28 +0000 (UTC)
Injection-Info: f5g2000vby.googlegroups.com; posting-host=184.108.40.206; posting-account=nW7GyQoAAADAlYTIG3w40M2P836d-A3Z
X-HTTP-UserAgent: Mozilla/5.0 (Windows NT 6.1) AppleWebKit/535.19 (KHTML, like
Gecko) Chrome/18.0.1025.162 Safari/535.19,gzip(gfe)
Content-Type: text/plain; charset=ISO-8859-7
On Apr 29, 3:13=A0pm, dpb <n...@non.net> wrote:
> On 4/29/2012 8:50 AM, eng_mohamedrama...@yahoo.com wrote:
> > I only need to obtain the equation and defining that n ranging from 1
> > to 3 and m will be> =A0than zero and lower than 1
> I'd deal w/ that by ensuring the calling routine only calls the
> SUBROUTINE w/ the proper values, _NOT_ by adding a condition in the
> SUBROUTINE itself (unless the correlation is known to be bounded by
> those ranges; then it would make some sense to include that).
> Still, the syntax has to match a valid Fortran construct; you can't just
> use a relational expression on its own.
> You've given no hint as to the compiler you're using, but it's bound to
> have at a minimum a language reference manual and hopefully a
> programmers' guide or somesuch to go with it.
> If you don't know where to find same, it's highly likely there's
> somebody here that will know where they are if you give the information.
I want to obtain the fortran code of Friction equation as
subroutine.The equation as follow:
=A0=F4 =A0: frictional stress
=F3 =A0: noramal stress
m : friction factor, =A00<m<1
=A0=EC : friction coefficient
k : shear flow stress
n : friction law exponent, ranging between 1 and about 3
Only I want to obtain the fortran code for the equation in order to
implement it into DEFORM Program.