How to get job-name from VUMAT 1

[fehrich]

thread799-269244

Hi there,
I am currently working on a VUMAT for a material degradation law. To obtain better results, I want to bypass the characteristic length from Abaqus and want to get the element coordinates.

I managed to get the nodal coordinates into my routine. however, for this I need the job-name/inp-file-name to be able to access the inp-file. Does anyone here has an idea how to find out the name of the current job/inp-file?

I have seen a similar thing in

http://www.eng-tips.com/viewthread.cfm?qid=269244

However, there it is not clear how the name of the input file is obtained.

Knd regards,
Fabian

 

[akabarten]

Hello Fabian,

To obtain current job name you can use routine GETJOBNAME and VGETJOBNAME for Abaqus/Standart and Abaqus/EXPLICIT respectively.
Detail information how to use them You will find in abaqus documentation:
Abaqus User Subroutines Reference Manual, 2.1.2 Obtaining the Abaqus job name

To obtain current job directory you have routines GETOUTDIR and VGETOUTDIR.
Both routines are described in documentation:
Abaqus User Subroutines Reference Manual, 2.1.2 Obtaining the Abaqus job name

And here is simple example how to use it:

! declaration section
…
logical :: fileOpen = .FALSE.
integer myJobNameLen
integer myDirLen
character*256 myJobName
character*256 myDirectory
character*256 myJobPath
...
! statement section
…
! do it only once
if (.not. fileOpen) then
! call routines to get directory & job name
  call GETOUTDIR(myDirectory, myDirLen)
  call GETJOBNAME(myJobName, myJobNameLen)
! set full path
  myJobPath = myDirectory(1:myDirLen)//’/’//myJobName(1:myDirLen)//’/’//’.inp’
! open file to read
  open(unit=1005, file=myJobPath, status=’OLD’, action=’READ’)
! change file flag
  fileOpen = .TRUE.
end if
…

Regards,
Bartosz

 

[akabarten]

Small update, myJobPath shold be:

myJobPath = myDirectory(1:myDirLen)//'/'//myJobName(1:myJobName)//'/'//'.inp'

Bartosz

 

[fehrich]

Hi Bartosz,
Thank you very much for your post. That was great help!

Many thanks!
Fabian