关于变压器代码，高手必看？

xuyufufzu

#IF Tap
#STORAGE STOR:26
' Q7 L+ x( P7 \/ V5 m% P #IF SAT==TAP
6 P6 e' ^% D( z+ J  #LOCAL REAL RVD1_1
      RVD1_1 = $TapI
      IF (RVD1_1 .LT. 1.0E-8) RVD1_1 = 1.0
- t& W& f2 E( s; D #ENDIF
4 B- U0 w( O7 x#ELSE
% M+ d, N/ z+ B! @8 A4 R+ B #STORAGE STOR:21
#ENDIF
0 g5 v4 ]* V) O4 ]7 T+ P4 K, c  m5 x" M!  TRANSFORMER SATURATION SUBROUTINE
* t: Q6 J% f( m( S; X  C# m#SUBROUTINE TSAT21 Transformer Saturation Subroutine
8 s& O- O. B! z$ G#LOCAL REAL X_KNEE
7 x# b) E4 f* Z4 b# T% M#IF Txk>0
      IF (TIME.GT.$Txk) THEN
' ~0 j9 R7 U# \8 O# M: A         X_KNEE = $Xknee
/ ]3 K! b# F9 h( c: b      ELSE
: J' X5 G1 c/ N) x( G+ c; f         X_KNEE = -$Xknee
      ENDIF
#ELSE
      X_KNEE = $Xknee
#ENDIF
#LOCAL REAL TURNS_V
% Y: m! {% p: w$ m#IF SAT==1
      TURNS_V = $V1
#ELSE
5 h: ~- z0 a( Y      TURNS_V = $V2
* Q8 c9 H: a+ G* F: R+ h' K' \#ENDIF
! M- P. q, `! E, {2 r* u#IF SAT==TAP
3 h8 \$ e; Q+ n: Q     + * RVD1_1
#ENDIF
  Z( `1 C- m; H" O#IF SAT==1
#IF CuL>0.0
  Q! p* h$ g; X9 J5 d/ E      CALL TSAT21($X1,$B1,
#ELSE
      CALL TSAT21($A1,$B1,
0 ?9 D; R) j  V6 P$ `2 W6 v- n# u: } #ENDIF
#ELSE
3 s+ L7 d. z" v #IF CuL>0.0
) n1 z! @4 H0 `5 |  F      CALL TSAT21($X2,$B2,
#ELSE
      CALL TSAT21($A2,$B2,
#ENDIF
% T3 D$ p1 P, S8 X+ b+ p9 S#ENDIF
% _& o* V1 n4 ~% B' Y     + 0,0, 0,0, $SS,$Tmva,TURNS_V,$Xair,X_KNEE,$f,$Tdc,$I_m1, 0.0, $Enab)
#OUTPUT REAL IMAG {-STOR(NEXC-21+17)}
#OUTPUT REAL FLUX {STOR(NEXC-21+11)}
#IF Tap
/ ?: z$ m; y, Y% q# ?" Y$ i      CALL TRTAP5($#[1], $Tap, $SS, $TapI)
#ENDIF
+ B& _/ B" Y) t% X" Q5 [; k: j!

风残冷月

俺也是低手，过来学习一下

drzyx

看不懂，不过还是顶一下。

suner1986

什么意思啊，看不懂fortran

sgkevin

完全看不懂。。

小小鸟儿

这是什么程序里面的?

huafeinaojin

看英文help里的内容，可能会有帮助

buddam

要学习学习了

gpbaby199

这个是变压器里面script里面DSDYN的饱和子程序吧？