Received: by 10.68.211.136 with SMTP id nc8mr10920722pbc.6.1335712228823;
        Sun, 29 Apr 2012 08:10:28 -0700 (PDT)
Path: r9ni112393pbh.0!nntp.google.com!news1.google.com!postnews.google.com!f5g2000vby.googlegroups.com!not-for-mail
From: "eng_mohamedrama...@yahoo.com" <eng_mohamedrama...@yahoo.com>
Newsgroups: comp.lang.fortran
Subject: Re: fortran
Date: Sun, 29 Apr 2012 08:03:05 -0700 (PDT)
Organization: http://groups.google.com
Lines: 36
Message-ID: <2d93f4d9-018b-4364-b189-477f4209c1fa@f5g2000vby.googlegroups.com>
References: <6c62174c-bf4f-4f7e-ad44-3a036cbabb97@c28g2000vbu.googlegroups.com>
 <cp_mr.6281$v14.2984@viwinnwfe02.internal.bigpond.com> <jni1v2$8it$1@speranza.aioe.org>
 <176de066-a350-4cd9-b5eb-84e089963516@l3g2000vbv.googlegroups.com>
 <jnjds5$ck8$1@speranza.aioe.org> <ed1e843d-6df4-415f-902e-f0856a89dd98@q13g2000vbd.googlegroups.com>
 <jnji9r$p55$1@speranza.aioe.org>
NNTP-Posting-Host: 87.223.94.208
Mime-Version: 1.0
X-Trace: posting.google.com 1335712228 16851 127.0.0.1 (29 Apr 2012 15:10:28 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Sun, 29 Apr 2012 15:10:28 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: f5g2000vby.googlegroups.com; posting-host=87.223.94.208; posting-account=nW7GyQoAAADAlYTIG3w40M2P836d-A3Z
User-Agent: G2/1.0
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
Content-Transfer-Encoding: quoted-printable

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:
 Tau =3Dm*k*SQRT(1.0-EXP((-Sigma*Mu)/(m*K))**n)
Where,
=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.
Thank You,