driesf
Structural
- Mar 14, 2012
- 3
I have a txt-file with nodal tempereatures which looks like this:
25.99 25.98 25.99 ...
26.03 26.05 26.04
26.13 26.20 26.09
...
There are 16 culumns that represent the nodes. Every row is a 1-second time increment. The purpose is to put these temperatures as a predefined field in certain nodes in the abaqus-model.
The code below gives an error in Abaqus because of the read command. Without that command the subroutine works. Can anyone help me to read this kind of file into a utemp subroutine?
subroutine utemp (temp,nsecpt,kstep,kinc,time,node,coords)
C
include 'aba_param.inc'
dimension temp(nsecpt),time(2),coords(3)
C
real, dimension(31,16) :: x
C
OPEN(UNIT=101,FILE='tempdata.txt',status='OLD',IOSTAT=IOS)
read(101,*) x
CLOSE(101)
C
RETURN
END
25.99 25.98 25.99 ...
26.03 26.05 26.04
26.13 26.20 26.09
...
There are 16 culumns that represent the nodes. Every row is a 1-second time increment. The purpose is to put these temperatures as a predefined field in certain nodes in the abaqus-model.
The code below gives an error in Abaqus because of the read command. Without that command the subroutine works. Can anyone help me to read this kind of file into a utemp subroutine?
subroutine utemp (temp,nsecpt,kstep,kinc,time,node,coords)
C
include 'aba_param.inc'
dimension temp(nsecpt),time(2),coords(3)
C
real, dimension(31,16) :: x
C
OPEN(UNIT=101,FILE='tempdata.txt',status='OLD',IOSTAT=IOS)
read(101,*) x
CLOSE(101)
C
RETURN
END