Fortran code A4EA for elastic-plastic single-lap joints 2

[SingleLapJoints]

thread2-342388
Hi,

I am trying to read the Fortran code A4EA from the paper Adhesive-Boded single-lap joints (1973) . Since the paper was scanned, the quality is very poor.
Does anyone have the Fortran code A4EA? Or a better quality of Paper?

Thank you very much in advance for your answer

 

[WKTaylor]

SingleLapJoints...

Suggest re-posting this question to the FORTRAN Forum...

http://www.eng-tips.com/threadminder.cfm?pid=545

Regards, Wil Taylor

o Trust - But Verify!
o We believe to be true what we prefer to be true.
o For those who believe, no proof is required; for those who cannot believe, no proof is possible.
o Unfortunately, in science what You 'believe' is irrelevant. ["Orion"]
o Learn the rules like a pro, so you can break them like an artist. [Picasso]

 

[SWComposites]

Where are you located and what company do you work for?

 

[IRstuff]

It's not really a Fortran question, it's about deciphering a VERY bad scan. I've seen the scan and it's pretty bad.

Nevertheless, the big question ought to be why the OP is using a program that was written over 40 yrs ago. This is a link the document, if anyone wants to have a go at it:

http://ntrs.nasa.gov/archive/nasa/casi.ntrs.nasa.gov/19740005083.pdf

TTFN
faq731-376

Need help writing a question or understanding a reply? forum1529


Of course I can. I can do anything. I can do absolutely anything. I'm an expert!
There is a homework forum hosted by engineering.com:

http://www.engineering.com/AskForum/aff/32.aspx

 

[SingleLapJoints]

Thank you for your feedback.
I am doctoral student in the Department of Mechanical Engineering at the University of Darmstadt in Germany. I'm trying to familiarize myself with closed analytical solutions for elasto-plastic adhesive joints.
I understand the derivation of the equations of Hart-Smith but I do not understand the iterative procedure, for the solution of the equations. Which is explained in the paper unfortunately very scarce. So I want to understand the iterative approach and implement it for me in Mathematica.
I thought, maybe I can understand it from the code. But the code can not read from the scanned version.

 

[IRstuff]

Have you looked at

https://www.esdu.com/cgi-bin/ps.pl?sess=unlicensed_1150323131517nwy&t=doc&p=esdu_92041a

or

http://ntrs.nasa.gov/archive/nasa/casi.ntrs.nasa.gov/19740005084.pdf

or

http://www.cs.odu.edu/~mln/ltrs-pdfs/NASA-73-cr112235.pdf

The latter two are also by Hart-Smith and seem to form a set of programs. The former appears to have an actual digital code set in Fortran

TTFN
faq731-376

Need help writing a question or understanding a reply? forum1529


Of course I can. I can do anything. I can do absolutely anything. I'm an expert!
There is a homework forum hosted by engineering.com:

http://www.engineering.com/AskForum/aff/32.aspx