Alice_1222
Mechanical
- May 24, 2020
- 1
Hi
I am working ABAQUS subroutine USDFLD. I need to assign strength to elements, the strength and elements are saved in text, respectively.
I have two questions now:
1. I wrote a short one to see whether FORTRAN can read it, with command line"$ ifort -o Weibull Weibull.for", and it shows
'$' is not recognized as an internal or external command, operable program or batch file.
Anything is wrong with the command line?
2. I tried to assign element strength like below, two text files are read firstly, then strength are applied to elements,in the end strength of each element is defined as parameter. My idea is that each element has its strength, and the element fails when the element stress is larger than the strength. However, this code does not work. I am now struggling of the question. If you have any solution could you please share your ideas? Thank you!
INTEGER Elem_array(33)
REAL TS_array(33)
open (12, file="TS_array.txt")
read (12, '(F10.5)') TS_array
close(12)
open (12, file="Elem_array.txt")
read (12, '(I8)') Elem_array
close(12)
C
do NOEL =1,33
TS = TS_array(NOEL)
enddo
C MATERIAL AND STRENGTH PARAMETERS
PARAMETER (TS = TS_array(NOEL))
I am working ABAQUS subroutine USDFLD. I need to assign strength to elements, the strength and elements are saved in text, respectively.
I have two questions now:
1. I wrote a short one to see whether FORTRAN can read it, with command line"$ ifort -o Weibull Weibull.for", and it shows
'$' is not recognized as an internal or external command, operable program or batch file.
Anything is wrong with the command line?
2. I tried to assign element strength like below, two text files are read firstly, then strength are applied to elements,in the end strength of each element is defined as parameter. My idea is that each element has its strength, and the element fails when the element stress is larger than the strength. However, this code does not work. I am now struggling of the question. If you have any solution could you please share your ideas? Thank you!
INTEGER Elem_array(33)
REAL TS_array(33)
open (12, file="TS_array.txt")
read (12, '(F10.5)') TS_array
close(12)
open (12, file="Elem_array.txt")
read (12, '(I8)') Elem_array
close(12)
C
do NOEL =1,33
TS = TS_array(NOEL)
enddo
C MATERIAL AND STRENGTH PARAMETERS
PARAMETER (TS = TS_array(NOEL))