Abaqus subroutine debug

[yunlin]

I am writing a Dflux subroutine for heat transfer problem. I am only on the testing stage. Heat flux is assigned as simple as flux(1) = sol*10
However I want to use write command to debug. so I added
common xys(1)
xys(1) = 1/296
write(7,*)"the value of xys(1) is:", xys(1)
(I just want to see if the equations are functioning well)

Subroutine went through with abaqus no problem.
But it seems like if the value of xys is less than 1, it would be displayed as "0". Always 0. Why?

Maybe the output format is wrong?

 

[IceBreakerSours]

Fortran syntax issue! Use xys(1) = 0.0036d0.

http://www.eng-tips.com/faqs.cfm?fid=376

 

[yunlin]

I have to use the equation like 1/(273+sol) and hopefully display it. is there a way to make it happen? also, can you explain 0.0036d0? I am very new to fortran.

 

[IceBreakerSours]

Simple solution: Learn how to use Fortran before actually using Fortran

http://www.eng-tips.com/faqs.cfm?fid=376

 

[yunlin]

Thanks for the help. I appreciate any detail if any one.

 

[MechIrl]

Try 'xys(1) = 1./296.'. You need to make sure you use reals not integers to avoid rounding problems.