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

xuyufufzu

#IF Tap
8 b1 M$ x" ~9 _( h" { #STORAGE STOR:26
#IF SAT==TAP
  #LOCAL REAL RVD1_1
2 ^2 Z+ [* u9 @, p. G! Y- V      RVD1_1 = $TapI
1 s! z! P9 l9 S! L      IF (RVD1_1 .LT. 1.0E-8) RVD1_1 = 1.0
#ENDIF
#ELSE
5 L1 b8 f4 j) f* I #STORAGE STOR:21
#ENDIF
* a, P! \0 p- J+ i( b!  TRANSFORMER SATURATION SUBROUTINE
. k1 c1 F( O7 ]; }9 ]' N: S#SUBROUTINE TSAT21 Transformer Saturation Subroutine
#LOCAL REAL X_KNEE
- y& C2 h" ~" U#IF Txk>0
8 i1 ^6 f9 Z: w% V5 _( E      IF (TIME.GT.$Txk) THEN
: j. Z% i' L% U: s: F         X_KNEE = $Xknee
      ELSE
         X_KNEE = -$Xknee
      ENDIF
#ELSE
      X_KNEE = $Xknee
0 |# C3 _' b. t" c, V  d! {9 m: O, {( v#ENDIF
#LOCAL REAL TURNS_V
#IF SAT==1
+ K5 K7 _" [+ J      TURNS_V = $V1
  L) Y$ R/ S8 W) M  i% v#ELSE
; ]5 c* M- O7 e$ Y/ J2 O      TURNS_V = $V2
#ENDIF
9 x, _. Y" S) {+ [. w#IF SAT==TAP
     + * RVD1_1
. L0 K. L5 @4 f1 i$ _#ENDIF
; O6 Z2 [+ R- F& \#IF SAT==1
#IF CuL>0.0
& Z; D8 ]1 \: Q( D  B      CALL TSAT21($X1,$B1,
#ELSE
      CALL TSAT21($A1,$B1,
- a" R1 F0 t& ~7 `/ n #ENDIF
#ELSE
' J- q: n6 r, P #IF CuL>0.0
      CALL TSAT21($X2,$B2,
#ELSE
( R$ d* u$ L$ L- K      CALL TSAT21($A2,$B2,
#ENDIF
- w# u1 V( l( E#ENDIF
     + 0,0, 0,0, $SS,$Tmva,TURNS_V,$Xair,X_KNEE,$f,$Tdc,$I_m1, 0.0, $Enab)
6 Q  v1 L1 O( r$ f- H: V4 D#OUTPUT REAL IMAG {-STOR(NEXC-21+17)}
#OUTPUT REAL FLUX {STOR(NEXC-21+11)}
, M3 _  U6 y; ?; S$ z8 W3 {8 J#IF Tap
      CALL TRTAP5($#[1], $Tap, $SS, $TapI)
#ENDIF
# ^3 ^: Z0 i. C' u7 Z" t* t7 ~!

风残冷月

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

drzyx

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

suner1986

什么意思啊，看不懂fortran

sgkevin

完全看不懂。。

小小鸟儿

这是什么程序里面的?

huafeinaojin

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

buddam

要学习学习了

gpbaby199

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