Topic: run time error in Support

I have run the executable file ifircp~5.exe and result in the following run time error:

Runtime error from program:c:\progra_1\salfor1\ftn95\ifircp~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

Supramaniam