Help with data type error when compiling

[forgall]

Hello,

I need to compile a fortran source (it's the EACD3D96 software for the finite element analysis of a dam) but I always get this kind of errors:

sec1_96.f:433.47:

IF(IDI(I).EQ.1) COOR(I,3)=COOR(I,2)*DSIN(TH)
1
Error: Type of argument 'x' in call to 'dsin' at (1) should be REAL(8), not REAL(4)

The errpr is always in lines with the TH variable.
I'm not a fortran expert, I just know a little bit of programming, so I'm having troubles with this.
I tried to declare REAL*8 :: TH at the beginning of the source, but it doesn't work, I get the same error.
I tried to compile both with Compaq Visual Fortran on a PC and gfortran on a Mac, always the same result.
I really need this software to be compiled, please can anybody hekp me?
Thanks a lot!

 

[xwb]

You need to declare TH as REAL*8 at the start of every routine that uses it: not just at the beginning of the source.