SIGINI Subroutine in ABAQUS

Dear ABAQUS Users,

I am trying to assign the initial stresses for a region in my model using the SIGINI subroutine. I learned some fortran programming skills the last week and I managed to open the file where the stresses that I retrieve from an Abaqus analysis and assign these stresses in Array using fortran commands.

Now I am stuck with the writing of the SIGINI subroutine where I have the corresponding stresses that I store in my Array to the corresponding NOEL and NPT.