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

else if (wbegin == 0) then ! Обнаружено начало слова
wbegin = j; wend = j
else
wend = wend + 1 ! Перемещение по текущему слову
endif
end do
if (wbegin > 0) call addword(words, st, wbegin, wend, neww)
!*** 4. Обработка слов строки, перевод данных во внутренний формат массивов ***
if (neww==0) cycle !если слов нет, то игнорировать обработку
kv=kv+1 ! новая строка
if (kv>nv) then
write(name0,*)nv
call DWGMSG('Слишком много ветвей: > '//name0)
stop
endif
namv(kv)=words(1) ! запись имени ветви
read(words(2),*)symnp1(kv) ! запись 1-го узла
read(words(3),*)symnp2(kv) ! запись 2-го узла
! запись величин
if (words(1)(1:1)=='v' .or. words(1)(1:1)=='V') then
read(words(4),*)ev(kv) ! запись источника напряж
zv(kv,kv)=0 ! запись внутр. сопрот. по умолч.
if (neww>4) then
k=index(st,'=')
name1=trim(st(k+1:))
read(name1,*)zv(kv,kv) ! запись введенного сопротивления
endif
elseif (words(1)(1:1)=='i' .or. words(1)(1:1)=='I') then
read(words(4),*)jv(kv) ! запись источника тока
zv(kv,kv)=1.0e10 ! запись внутр. сопрот. по умолч.
if (neww>4) then
k=index(st,'=')
name1=trim(st(k+1:))
read(name1,*)zv(kv,kv) ! запись введенного сопрот.
endif
elseif (words(1)(1:1)=='r' .or. words(1)(1:1)=='R') then
read(words(4),*)zv(kv,kv) ! запись сопротивления
if (neww>4) then
do j=5,neww
k=index(words(j),'i')
if (k/=0 .or. index(st,'I')/=0 ) then
name1=trim(words(j)(3:))
read(name1,*)jv(kv)
endif
k=index(words(j),'v')
if (k/=0 .or. index(st,'V')/=0 ) then
name1=trim(words(j)(3:))
read(name1,*)ev(kv)
endif
end do
endif
else
write(*,*) 'не могу распознать тип ветви ',trim(words(1)),' !?'
stop
endif
10 if (ios/=0) exit
end do
89