About SAWSMaterial FORTRAN SUBROUTINE(HYSTR)

[shiro]

I posted something I would like to ask.

In the SAWSMaterial.cpp file, it says that it was migrated from FORTRAN to C++.

I'm new to C++, so I'd like to study the original FORTRAN code.
Is the FORTRAN code published somewhere?

I've heard that OpenSees are related to DRAIN-DX(2D・3D).
I bought it in 2008 and it was the FORTRAN source code.

Are HYSTR subroutines included in DRAIN-DX(2D・3D) ?
I searched for it, but there was no such subroutine file.

I would appreciate your advice.


・SAWSMaterial.cpp


// The following has been converted from SAWS (originally written in
// FORTRAN by Bryan Folz), converted by Patxi Uriz 6/12/2006
/* -----------------------------------------------------------------------
* SUBROUTINE HYSTR CALCULATES THE FORCE-DISPLACEMENT RESPONSE
* BASED ON A MODIFIED STEWART HYSTERETIC MODEL. IN THIS MODEL THE
* ENVELOPE CURVE IS THE FOSCHI EXPONENTIAL CURVE WITH A LINEAR
* SOFTENING BRANCH. FORCE AND STIFFNESS ARE RETURNED FOR AN
* INPUTTED DISPLACEMENT.
*-----------------------------------------------------------------------
*/

Code Developed by: Patxi Uriz, Exponent (Converted from FORTRAN code originally written by Bryan Folz)


https://opensees.berkeley.edu/wiki/inde ... S_Material