?????????????? ?????? ? ????????? ?????????? ??????? ?????

!нумерация узлов
k=1;m=0
do i=1,kv
nameyz=symnp1(i)
do j=1,kv
if (np1(j)==0.and.nameyz==symnp1(j)) then
np1(j)=k;m=1; endif
if (np2(j)==0.and.nameyz==symnp2(j)) then
np2(j)=k;m=1; endif
end do
if (m==1) then; m=0;k=k+1; endif
end do
do i=1,kv
nameyz=symnp2(i)
do j=1,kv
if (np2(j)==0.and.nameyz==symnp2(j)) then
np2(j)=k;m=1; endif
end do
if (m==1) then; m=0;k=k+1; endif
end do
!maxyz=k-1
!контрольный вывод введенных ветвей
write(*, *) 'Число ветвей kv =', kv
do j = 1, kv
write(*, *) namv(j),' от ',trim(symnp1(j)),np1(j),' до ', &
& trim(symnp2(j)), np2(j), ' ',zv(j,j),' ',ev(j),' ',jv(j)
end do
CALL CPU_TIME (rt2)
!******* 5. Формирование топологической матрицы ******************
m1=maxval(np1);m2=maxval(np2);KP=max(m1,m2)
call derevo(KP, kv, np1, np2, Csoed(1:kv,1:kv), Asoed(1:kv,1:kv))
!******* 6. Расчет напряжений и токов в ветвях ********************
er(1:kv)=matmul(transpose(csoed(1:kv,1:kv)),ev(1:kv))
Jr(1:kv)=matmul(transpose(Asoed(1:kv,1:kv)),jv(1:kv))
Zr(1:kv,1:kv)=matmul(matmul(transpose(csoed(1:kv,1:kv)),zv(1:kv,1:kv)),csoed(1:kv,1:kv));
Yr(kp:kv,kp:kv)=Zr(kp:kv,kp:kv)
call inverse4(Yr(kp:kv,kp:kv),kv-kp+1)
iv(kp:kv)=matmul(Yr(kp:kv,kp:kv),er(kp:kv))- & ! расчет контурных токов
& matmul(Yr(kp:kv,kp:kv),matmul(Zr(kp:kv,1:kp-1),Jr(1:kp-1)))-Jr(kp:kv)
iv(1:kv)=matmul(Csoed(1:kv,kp:kv),iv(kp:kv)) ! токи в ветвях
Uv(1:kv)=- ev(1:kv)+matmul(zv(1:kv,1:kv),iv(1:kv))+matmul(zv(1:kv,1:kv),jv(1:kv))
CALL CPU_TIME (rt3)
print*, 'time1 = ',rt2-rt1,'time2 = ',rt3-rt2
!********* 7. Вывод результатов расчета в файл ****************************
write (units,*)'результаты расчета'
! do i=1,kv ! можно вывести в файл контурную матрицу
! write (units,*)(Csoed(i,j),j=1,kv)
! end do
do i=1,kv !вывод токов и напряжений
write (units,*)'ветвь ',namv(i),' ток = ',iv(i), ' напряжение = ',Uv(i)
end do
close(units)
!***** окончание расчета, запрос на новый расчет****************
CALL DWGBUT ('повторить расчет?', ipovtor)
end do osnov
90