You are here
Abaqus DISP Subroutine
I am a student studying in Hamburg University of Technology. I am currently doing my thesis and want some help in finishing it. I am finding it a bit difficult to do subroutine in Fortran as I am new to it. I have tried learning from Abaqus Documentation but I didn't get answer to my needs.
I already have a text file that contains Nodes, X,Y,Z coordinates and the displacement values to be assigned.
For Example: Nodes X_coord Y_coord Z_coord U
1 0.23 1 .94 2.36+i.45
62 .... ... .... ....
538 .... .... .... ....
It a basically a 304 x 5 matrix. I just need to assign the values of the displacements to these nodes using a subroutine.
A = OPEN(UNIT = 1, FILE ="Pressure_SAVAN_100Hz.txt", FORM = "FORMATTED", STATUS = "OLD", ACTION = "READ")
DO I = 1, 304
IF (NODE.EQ.A(I,1)) THEN
U(1) = A(I,5)
Please do notify me where I have gone wrong! Your help is much appreciated