Добрый день, уважаемые Фортран-программисты! Столкнулся со следующей задачей: необходимо автоматизировать запуск программы на фортране (f90) с помощью скрипта, изменяя параметры вызова с помощью аргументов командной строки. Сама фортрановская программа должна была быть чёрным ящиком, в код которой не нужно заглядывать, т.к. автор давно уже неизвестно где. Но, как оказалось, программа устроена так, что требуется:
1. Запуск программы из консоли
2. Нажатие Enter
3. Ввод параметров (4 штуки через пробел)
4. Нажатие Enter
Для автоматического скрипта это неприемлемо, да и неудобно. Поэтому прошу, переделайте, пожалуйста, участок кода, отвечающий за это. Прошу не тыкать мануалами и учебниками, все варианты, которые в нете просмотрел (а их, на удивление, немного), по тем или иным причинам (далеко не всегда понятным), не подошли. Изучать синтаксис, какие-то функции и прочее фортрановское не хочется, да и времени на это нет, т.к. программа исключительно вспомогательная, но необходимая для одной конкретной задачи.
| Код |
module param
real*8 hr,hz,hr2,hrinv,hzinv,hrsq,hzsq,ht,ht2,r1,zl,eps,j0,d,rst,sigd0,siga0,hd,h,my
real*8 zsig,rsig,betsr,betsz,tend,phi0,rs,betc,cf,sum0,sum1
real*8,allocatable :: rstfl(:),zfl(:),zstfl(:),j0fl(:),gam(:),bet(:)
integer nr,nz,nr1,nz1,itend,npr,nrzmax,nst,nq
contains
subroutine rnd()
character (50) filename
open(99,file='param.dat')
open(101,file='param1.dat')
read(99,*,iostat=ios)eps,r1,nr,zl,nz,ht,tend,siga0,hd,h,my,zsig,rsig,betsr, &
betsz,cf,nq,phi0,rs,betc
close(99)
allocate (rstfl(nq),zfl(nq),zstfl(nq),j0fl(nq),gam(nq),bet(nq))
do il=1,nq
read(101,*,iostat=ios)rstfl(il),j0fl(il),gam(il),bet(il)
enddo
close(101)
! Как я понимаю, это именно оно и это именно те параметры
read *,sigd0,zstfl(1),zfl(1),filename
open(77,file=filename)
hr=r1/float(nr)
hz=zl/float(nz)
hrinv=1.d0/(hr)
hzinv=1.d0/(hz)
ht2=ht*0.5d0
nr1=nr+1
nz1=nz+1
endsubroutine rnd
endmodule
|
Спасибо! |
)