2

我在一家使用一堆旧 Fortran 代码的公司工作。我已经非常精通 bash 脚本，因此我可以及时运行所有这些程序。

目前，我必须运行 ~ 13 个不同的 Fortran 程序才能获得 11 个扇区中的一个结果。因此，一个完整的结果需要 143 个程序。我希望能够及时使用程序中的不同输入创建 8 或 9 个完整的结果。

一个理想的情况是在一个 GUI 中进行设置，您可以在单独的选项卡上填写输入表单，然后在填写完所有表单后，您只需单击一个按钮即可获得结果。返回并更改表单中的一些变量，然后单击，弹出另一个结果。

我正处于十字路口，因为我已经有一个几乎可以做到这一点的 bash 脚本。但是，我想不出一种将它与“独立”GUI 混合的方法。我没有 Fortran 背景，但假设我可能必须学会让它工作。不过，我确实有一点 VBA 知识。

所以我要问的是最好的方法是什么？使用VBA编写shell脚本并执行？有某种组合 Fortran GUI 界面，可以将一堆变量传递给程序吗？

这些程序设置为从用户和先前程序创建的文件中获取输入。到目前为止，这里是 shell 脚本和程序提示的设置方式：

 #This file is a combination of NEWlen to bbdist as of now 4/5/2012
 #M. Conley

 ####################################################################################
 ##################### Please input all of your back break      #####################
 ##################### parameters in the block bellow!          #####################
 ####################################################################################
 project="Cobre Panama, Botija -2012"

 #Example of format
 #sec1="lwmin lwmax rwmin rwmax numberofcells"
 #----------------------------
 #| S |M |Max|Max| M| N |S
 #| e |i |Lft|Pln| a| u |e
 #| c |n |Wed|   | x| m |c
 #| t |  |   |   |  | b |t
 #| o |L |or |or | R| e |o
 #| r |e |   |   | i| r |r
 #|   |f |Min|Min| g|   |
 #|   |t |PS |Rgt| h| o |
 #| v |  |   |Wed| t| f |D
 #| a |W |   |   |  |   |D
 #| r |e |   |   | W| c |R
 #|   |d |   |   | e| e |
 #|   |  |   |   | d| ls|
 #---------------------------
 sec1="96 166 206 276 20 186"
 sec2="127 197 237 307 20 217"
 sec3="178 248 288 358 12 268"
 sec4="225 295 335 45 21 315"
 sec5="258 328 368 78 14 348"
 sec6="297 7 47 117 31 27"
 sec7="315 25 65 135 32 45"
 sec8="342 52 92 162 18 72"
 sec9="12 82 122 192 12 102"
 sec10="30 100 140 210 18 120"
 sec11="45 115 155 225 22 135"

 numofsec=2
 cmaxdip=90
 cmindip=0

 smaxdip=90
 smindip=20

 den=165.0

 l1r1prob=0.2000
 p1prob=0.2000
 jslf=001.00

 cellwidth=30
 ####################################################################################
 ##################### Start of Automation Loop. All Parameters #####################
 ##################### Have already been defined above!         #####################
 ##################### DO NOT WRITE BELOW THIS POINT!!!!!!!!    #####################
 ####################################################################################

 ########## Check for celdisx in directory #######
 if [ ! -e celdisx ]; then
 echo -e "\a""\x1b[31;01m""You are missing the CNI celdisx program from your directory!"
 echo -e "\a""\x1b[32;01m""Terminating Script - No results calculated."
 tput sgr0
     exit 0
 fi

 ########### Get Length and Spacing ###########
 echo "Please enter desired Mean Joint Lenght in meters, use 2 decimal places (#.##)"
 read jlen
 echo "Please enter desired Joint Spacing in meters, use 2 decimal places (#.##)"
 read jspace
 temp=$jlen
 jlen=$(echo "$temp" | awk '{ printf "%6s", $1}')
 temp=$jspace
 jspace=$(echo "$temp" | awk '{ printf "%5s", $1}')
 replace=$jlen$jspace
 #####

 ########### Get and Make new directory ##########
 echo "Please type the name of the new folder you wish to create to place this"
 echo "iteration of back break into."
 echo "No spaces please. Use _ or - in place of spaces."
 read dirname
 if [ -d $dirname ]; then
 rm -r $dirname
 fi
 mkdir $dirname
 cd $dirname
 for (( id = 1 ; id <= $numofsec ; id++ ))
 do
 if [ -d sec_$id ]; then
 rm -r sec_$id
 fi
 mkdir sec_$id
 done
 cd ..

 ########### Copy origional .dgl files into sec dir ####
 for (( id = 1 ; id <= $numofsec ; id ++ ))
 do
 cp s${id}.gld ${dirname}/sec_$id
 cp celdisx ${dirname}/sec_$id
 cp KNRST ${dirname}/sec_$id
 done

 ####################################################################################
 ##################### Start of Back break Programs. All Dir &  #####################
 ##################### Root .gld  have been placed.             #####################
 ####################################################################################
 cd $dirname


 for (( id = 1 ; id <= ${numofsec} ; id++ ))
 do

 #### Change into iteration and sector dir ###
 cd sec_$id

 #### change 1 to 01 bb prog very specific about 6 char strings wtf #####
 ida=${id}
 if [ ${#id} -eq 1 ]; then
 ida=0${id}
 fi


 ########## Check for celdisx in directory #######
 if [ ! -e celdisx ]; then
 echo -e "\a""\x1b[31;01m""You are missing the CNI celdisx program from your directory!"
 echo -e "\a""\x1b[32;01m""Terminating Script - No results calculated."
 tput sgr0
     exit 0
 fi

 #Creates Length File w/ user input Length & Spacing
 sed -r "2,$ s/^(.{73})(.{11})/\1$replace/" <s${id}.gld >s${ida}LeN


 ################### Runs Cell programs #######
 secid=sec${id}
 set ${!secid}

 celsrt<<xxxxx
 s${ida}LeN

 sec_${ida}.srt
 sec_${ida}.f
 Y

 TEST sec_${ida}
 3
 1
 ${2},${1},${cmaxdip},${cmindip}
 N

 2
 ${3},${2},${cmaxdip},${cmindip}
 N

 3
 ${4},${3},${cmaxdip},${cmindip}
 N

 sec_${ida}mv.met

 xxxxx
 met2acad <<xxxxx
 sec_${ida}mv.met
 e
 1

 xxxxx
 celdisx<<xxxxx
 sec_${ida}.srt
 sec_${ida}.dis
 m
 sec_${ida}.tbl
 ${5}




 xxxxx


 ############# run bbstdi ################
 rm -f s${ida}sdi

 bbstdi<<xxxxx
 1
 s${ida}sdi
 y
 ${id}sdi.rpt
 sec_${ida}.dis

 xxxxx



 ########### Run bbhst #######
 var=sec${id}
 set ${!var}

 bbhst<<xxxxx
 ${prjt} - ${area} - Sector ${ida}
 99
 99
 1
 s${ida}LeN
 ${3},${2}
 ${smaxdip},${smindip}
 s${ida}P1h
 Sec${ida}_hist.met
 xxxxx
 met2acad<<xxxxx
 Sec${ida}_hist.met
 e
 1

 xxxxx


 ######### Getting the DIST! ##########
 echo "Processing Sector ${ida}!!!"
 bbdist<<xxxxx
 s${ida}P1h
 s${ida}P1d

 xxxxx


 ########## Get set Numbers and run bbrsco ########

 lw1setn=$(sed -n "1p" s${ida}sdi | cut -c 11-14)
 ps1setn=$(sed -n "2p" s${ida}sdi | cut -c 11-14)
 rw1setn=$(sed -n "3p" s${ida}sdi | cut -c 11-14)

 #echo -e "$lw1setn\n$ps1setn\n$rw1setn"

 bbrsco<<xxxxx
 s${ida}rs ${ida}
 QUIT ,0.0
 GRD,${lw1setn} 100
 GRD,${ps1setn} 100
 GRD,${rw1setn} 100
 END
 xxxxx

 ############ Run bbpldc, create plan shear In ####
 var=sec${id}
 set ${!var}

 bbpldc<<xxxxx
 s${ida}rs
 ${ida},${6}
 s${ida}sdi,s${ida}P1d
 2,${den}
 1
 090.
 s${ida}P1c,$ps1setn
 STOP
 NO
 xxxxx

 ########### Calc Plane Shear bbplaf #######

 bbplaf<<xxxxx
 s${ida}P1c,s${ida}P1f,${ps1setn}
 R,090.,090.,001.
 R,009.,018.,009.
 T
 N
 xxxxx

 ######### Compute wedges ##################
 var=sec${id}
 set ${!var}

 bbwedc<<xxxxx
 s${ida}rs
 ${ida},${6}
 s${ida}sdi
 2,${den}
 1
 009.
 L1R1wc,${lw1setn},${rw1setn}
 ${2},${1},${smaxdip},${smindip}
 ${4},${3},${smaxdip},${smindip}
 STOP
 NO
 xxxxx

 for infile in L{1..1}R{1..1}wc
 do
 oufile=$(echo $infile | sed "s/c/f/g")

 bbwedf<<xxxxx
 ${infile},${oufile},4657,1500
 R,090.,090.,001.
 R,009.,018.,009.
 T
 M,M
 xxxxx

 done

 ######### combine Plane & Wedge Failures ####

 bf7com<<xxxxx
 YES
 ${ida}theo
 D,${ida}pred,${jslf}
 W,L1R1wf,${l1r1prob}
 P,s${ida}P1f,${p1prob}

 ${cellwidth}


 xxxxx

 ######## Plot the Curve ############
 var=sec${id}
 set ${!var}

 bfaplt<<xxxxx
 ${ida}theo
 1
 18
 DRY
 ${project} - Backbreak Results
 Sector ${ida} Wall Orientation DDR ${6}
 Joint Set Lenght Factor ${jslf}
 April 2012
 Trial Runs
 ${ida}bfa.met
 ${ida}theo
 9
 ${ida}pred
 18
 ${ida}pred
 9


 xxxxx
 met2acad <<xxxxx
 ${ida}bfa.met
 e
 1

 xxxxx

 ######## Make Table ####

 #### Change out of sector name

 cd ..

 #END LOOP
 done

 cd ..

任何帮助或指示将不胜感激！！！！！！！！！

4

2 回答 2

3

我理解你的困惑，但如果不是不可能的话，在这一点上用可用的数据给出任何明确的建议是非常困难的。

首先，你的环境；您提到了bash 脚本（甚至给出了一个示例），它指向一个*nix 框，但随后您提到了通常与Windows 系统相关联的VBA。您是否在 Windows 机器上，并在 cygwin 等环境中使用 bash 或？

其次，你的 fortran 程序的“性质”——它们是做什么的？它们的结构如何等等...... Fortran 确实可以与 GUI 界面混合 - 这甚至不是 fortran 问题，而是选择兼容版本的 fortran 编译器和其他环境的更多问题（MATLAB via.mex文件，Excel 通过 .dll 文件，...），然后将它们混合起来。它本身就是一个区域。
可以做到，而且做到了，但我再说一遍，这都是一般的谈话。

还有一些界面，例如DISLIN、GINO或Winteracter（您可以搜索名称以获取更多信息），它们可以创建“Fortran GUI”。我没有与两者中的任何一个合作过，但听说过关于两者的好消息。

您的 fortran 程序，取决于它们现在的结构，可能需要稍作修改（重新组织）。这是否会出现问题取决于它们最初是如何编写/构造的。你可能需要学习一些关于语言的知识才能完成这部分。

这样分开，都是可以解决的问题。如果您通过 SO 搜索处理类似问题的问题，并尝试查看哪种方法最适合您，那将是明智的。在那之后，在你选择了要走的路之后，也许可以细化这个问题。

如果其中任何一个有意义或没有意义，请在评论中给我打电话。

于 2012-04-13T18:32:42.767 回答
1

如果您使用的是 bash，为什么不尝试 zenity。它可以用来弹出一个可以填写的表格，结果将直接返回到 bash，然后您可以使用其余的 bash 脚本。

另一种选择是使用curses，或者如果你对Fortran没问题，用VT100序列编写你自己的。

如果您在 Windows 环境中运行，请尝试将其编写为超文本应用程序 (HTA)。这基本上是一个带有一点 javascript/vbscript 的网页（无论你喜欢哪个）。从这里开始http://msdn.microsoft.com/en-us/library/ms536496(v=vs.85).aspx

于 2012-04-15T07:08:32.453 回答