supramaniam
Joined: 30 Aug 2005 Posts: 11
|
Posted: Mon Sep 19, 2005 6:27 pm Post subject: run time error |
|
|
I have run the executable file ifircp~5.exe and result in the following run time error:
Runtime error from program:c:progra~1salfor~1ftn95ifircp~5.exe
Run-time Error
*** Error 112, Reference to undefined variable, array element or function result (/UNDEF)
SFREQ - in file ifircpfrm5.f at line 5245 [+0084] COS1 - in file ifircpfrm5.f at line 4123 [+03d9] FIR1D - in file ifircpfrm5.f at line 4405
[ +11eb] FIR - in file ifircpfrm5.f at line 4589 [+01cc] main - in file ifircpfrm5.f at line 61 [+07e0]
The following is the subroutine:
C ==========================================================
C
C SUBROUTINE SFREQ
C
C _____________________________________________________________________________
C
SUBROUTINE SFREQ( W , SF )
IMPLICIT REAL*8 (A-H,O-Z)
common / ycz / g11(100),g12(100),
+cm1,cm2,nd1,
+mfd,ng11,ng12,
+id1
C
cps1=1.
if ( nd1 .eq. 0 ) then ------------------ line no 5245 as referred
call valh0(w,ng11,cps1,g11,x11)
call valh0(w,ng12,cps1,g12,x12)
elseif ( nd1 .eq. 1 ) then
call valh1(w,ng11,cps1,g11,x11)
call valh1(w,ng12,cps1,g12,x12)
end if
if (mfd .eq. 1 .and. id1 .eq. 2) then
cp1 = dcos(w*0.5*cm2)**2
cp2 = dcos(w*cm2)*(dcos(w*cm2) - 0.5)
cp3 = dcos(2*w*cm2)*dsin(1.5*w*cm2)
cp4 = dsin(2.5*w*cm2)*dsin(3.5*w*cm2)
cp5 = dsin(0.5*cm2*w)**3
cp6 =(cp1*cp2*cp3*cp4)/cp5
SF = cp6*(x11 -x12)
else
SF=1.0
end if
C
C
END SUBROUTINE SFREQ
However, line 5245 does not have an undefined variable . The variable nd1 has
been properly defined as an integer by virtue of the implicit statement.
Please advise.
Thanks
C
Supramaniam |
|