|
本帖最后由 aliouying 于 2014-10-8 16:06 编辑
大体上按照你的意思是这个样子,但是我不知道如何控制你的参数运行情况,实在不懂你们专业的东西。
请根据代码自行修改。
[Fortran] 纯文本查看 复制代码 005 | Real ( 8 ) , External :: F |
024 | write ( * , * ) '第' , iDo , '次循环的第' , i , '个参数计算结果为:' , y |
027 | End Program www_fcode_cn |
031 | real ( 8 ) , Intent ( in ) :: X ( 4 ) |
032 | real ( 8 ) :: XX , YY , ZZ , TT |
033 | real ( 8 ) :: QF , QR , AF , AR , B , C , X 0 , Y 0 , Z 0 , VY , AY |
036 | Real ( 8 ) :: XD , YD , ZD , SA , CA , A 1 , A 2 , XL , YL , ZL , F , V 1 , V 2 , V 3 , QC , AC , COND |
099 | IF ( VY .EQ. 0 . ) COND = YL |
102 | IF ( COND .GT. 0 . ) QC = QF |
103 | IF ( COND .GT. 0 . ) AC = AF |
|
评分
-
查看全部评分
|