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.