BJSFM Fortran code

[PatrickAero]

I am looking for a working Fortran code (without bugs or issues) for the BJSFM solution.

I have read through this thread:

https://www.eng-tips.com/viewthread.cfm?qid=278615#post

If anyone out there has fixed the legacy code attached in the thread above, I was hoping if you could share it with me. Or at least point out to me the errors in the code.

Currently I have a Fortran code that is running but the output that I am getting from it is not matching the results posted in AFWAL-TR-81-3041, volume 3.

Any help is greatly appreciated.

Thanks and regards,
Prathik

 

[PatrickAero]

Just to update.

I have fixed the many bugs/errors in the original FORTRAN 77 code that I acquired from the thread above.

Now the code output values matches exactly with AFWAL-TR-81-3041-VOL-III.

However, hopefully the original programmer didn't make any mistakes.

If anyone is interested in getting the code from me, do feel free to get in touch with me.

Regards.

 

[WKTaylor]

PatrickAero... FYI...

There was some discussion on this topic, in a thread from August 2010, thus...

"How to get BJSFM, A4EI, A4EJ, etc?"...

https://www.eng-tips.com/viewthread.cfm?qid=278615

Regards, Wil Taylor

o Trust - But Verify!
o We believe to be true what we prefer to be true. [Unknown]
o For those who believe, no proof is required; for those who cannot believe, no proof is possible. [variation,Stuart Chase]
o Unfortunately, in science what You 'believe' is irrelevant. ["Orion", Homebuiltairplanes.com forum]

 

[ESPcomposites]

PatrickAero,

Please send me an email from my contact page. I have went through this process as well for the eBJSFM code I developed, but it would be good to double check it and see what you came up with.



Brian

http://www.espcomposites.com

 

[PatrickAero]

WKTaylor,

Thanks for alerting me regarding that thread.

ESPcomposites,

Sure will do. That sounds great, thanks. I am currently converting the F77 code to VB and I am checking the equations as I do that. I will share the VB code publicly when I am done.

Thanks and regards,
Pat

 

[PatrickAero]

ESPcomposites,

I have sent you an e-mail. Hope you have received it.

Regards,
Pat