Hello, i am getting the following error when trying to complied my program.
Here is my code:
The error messages you report don't match what's in the code you show. Please attach a complete source rather than typing it in.
As a side comment, your value of PI is wrong (last digit should be 6 if correctly rounded), not that it matters much since PI is implicitly single precision (as is your constant), so the extra digits won't be used.
Is this an Abaqus user subroutine? The routine name and later message indicate this is a user subroutine for an Abaqus finite element analysis. Have you also tried compiling the routine outside of Abaqus, perhaps from the Intel Fortran initialized command line? It can also be worthwhile to create a small main program that can call the subroutine and pass in values to test that it is working as expected before including in the Abaqus FEA.
This looks like it should be a fixed-form file (the extension ".for", the "C" in column 1). Please make sure that you are following all the fixed-form rules and that your assignment statements start at column 7 or later.
Also, follow Greg's suggestion above, so that you can confirm that your subroutine works as expected.