remit
Aerospace
- Jun 10, 2015
- 6
Hi everyone,
I have to use an hysteretic friction model. I am trying to code this in Abaqus by using the FRIC subroutine. The language is Fortran 77.
I am testing my code on a very simple model : two plates sliding on eachother. I apply a 1 cycle sinus displacement at the end of one plate and a apply some boundaries at the other side.
My hysteresis loop starts ok, the function I entered in the subroutine is respected, but when the curve has to reverse to the unloading function, Abaqus does not seem to understand which way it has to go. I am new to Fortran and to Subroutines so it surely comes from my code.
I have attached the Fortran file, which can be read in any text editor.
Any help would be very appreciated ! Thanks in advance
Rémi
I have to use an hysteretic friction model. I am trying to code this in Abaqus by using the FRIC subroutine. The language is Fortran 77.
I am testing my code on a very simple model : two plates sliding on eachother. I apply a 1 cycle sinus displacement at the end of one plate and a apply some boundaries at the other side.
My hysteresis loop starts ok, the function I entered in the subroutine is respected, but when the curve has to reverse to the unloading function, Abaqus does not seem to understand which way it has to go. I am new to Fortran and to Subroutines so it surely comes from my code.
I have attached the Fortran file, which can be read in any text editor.
Any help would be very appreciated ! Thanks in advance
Rémi