Programmazione Fortran90

subroutine sep_2 (isub,itera,delta,hmean2,as,ActiveSum,ns,hb,w,sep,sep1,sep2)
    implicit none
    integer::ns,i,isub,itera
    logical,dimension(ns)::ActiveSum
    real*8,dimension(ns)::hb,w,as,sep
    real*8,dimension(itera)::sep2,sep1
    real*8::summa,hmean2,delta
    summa=0.0
    do i=1,ns
        if (ActiveSum(i) .and. as(i)==0.0) then
            sep(i)=abs(hb(i)-w(i))
            summa=summa+sep(i)
        end if
    end do
    sep2(isub)=summa/ns
    sep1(isub)=hmean2-delta*float(isub)
        return
    end subroutine sep_2     

Salve a tutti, ho un problema con questa file. Il programma viene compilato, ma quando provo ad avviarlo, mi segnala errore alla riga "sep(i)=abs(hb(i)-w(i))".
Si tratta di una subroutine di una programma. Questa subroutine viene richiamata col comando call nella subroutine principale, chiamata main.f90
Se qualcuno può aiutarmi ne sarei grato.