Слияние кода завершено, страница обновится автоматически
subroutine getdata(t,p,n1,n)
implicit none
integer n1,i,n,j
real(8) p(2*n-1),pi,u0
real t(n1)
pi=3.1415926
u0=4.e-7*pi
open(111,file='data.txt')
do i=1,2*n-1
read(111,*)p(i)
enddo
! print*,'**********************************'
! print*,p
! pause
do j=1,n1
read(111,*)t(j)
end do
close(111)
print*,t
do i=1,n1
t(i)=t(i)*0.00001
enddo
! print*,'**********************************'
print*,t
pause
endsubroutine
Вы можете оставить комментарий после Вход в систему
Неприемлемый контент может быть отображен здесь и не будет показан на странице. Вы можете проверить и изменить его с помощью соответствующей функции редактирования.
Если вы подтверждаете, что содержание не содержит непристойной лексики/перенаправления на рекламу/насилия/вульгарной порнографии/нарушений/пиратства/ложного/незначительного или незаконного контента, связанного с национальными законами и предписаниями, вы можете нажать «Отправить» для подачи апелляции, и мы обработаем ее как можно скорее.
Опубликовать ( 0 )