1. subroutine vumat(
2. C Read only (unmodifiable)variables -
3. 1 nblock, ndir, nshr, nstatev, nfieldv, nprops,
lanneal,
4. 2 stepTime, totalTime, dt, cmname, coordMp,
charLength,
5. 3 props, density, strainInc, relSpinInc,
6. 4 tempOld, strainOld, defgradOld, fieldOld,
7. 5 stressOld, stateOld, enerInternOld,
enerInelasOld,
8. 6 tempNew, stretchNew, defgradNew, fieldNew,
9. C Write only (modifiable) variables -
10. 7 stressNew, stateNew, enerInternNew,
enerInelasNew )
11.C
12. include 'vaba_param.inc'
13.C
14. dimension props(nprops), density(nblock),
coordMp(nblock,*),
15. 1 charLength(*), strainInc(nblock,ndir+nshr),
16. 2 relSpinInc(nblock,nshr), tempOld(nblock),
17. 3 strainOld(nblock,ndir+nshr),
18. 4 defgradOld(nblock,ndir+nshr+nshr),
19. 5 fieldOld(nblock,nfieldv),
stressOld(nblock,ndir+nshr),
20. 6 stateOld(nblock,nstatev),
enerInternOld(nblock),
21. 7 enerInelasOld(nblock), tempNew(*),
22. 8 strainNew(nblock,ndir+nshr),
23. 8 defgradNew(nblock,ndir+nshr+nshr),