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

xuyufufzu

#IF Tap
8 ?$ S5 }' X7 f6 t0 G7 @ #STORAGE STOR:26
#IF SAT==TAP
  #LOCAL REAL RVD1_1
) z( |  B3 C5 @( i/ E. V& P      RVD1_1 = $TapI
, R5 r" Y- k5 v: F      IF (RVD1_1 .LT. 1.0E-8) RVD1_1 = 1.0
; m. V; E1 [& q( W- ]5 H #ENDIF
#ELSE
#STORAGE STOR:21
#ENDIF
!  TRANSFORMER SATURATION SUBROUTINE
#SUBROUTINE TSAT21 Transformer Saturation Subroutine
. S! o$ L2 m) c( B& q9 A+ U2 M#LOCAL REAL X_KNEE
+ ~* H6 y, g4 E- o: N4 d; M#IF Txk>0
2 G( f9 P7 U( q* Y5 x' |* A      IF (TIME.GT.$Txk) THEN
' B+ m4 m: }3 u         X_KNEE = $Xknee
. h& ?; m! \7 n1 `" T2 i      ELSE
         X_KNEE = -$Xknee
      ENDIF
7 G0 ]; [( @& n' B) k2 Q7 D#ELSE
7 o4 s9 L6 {% ]: C! Y9 ~. U9 X% d      X_KNEE = $Xknee
#ENDIF
#LOCAL REAL TURNS_V
3 B9 L7 P# X# d  g$ a1 _$ Z#IF SAT==1
      TURNS_V = $V1
#ELSE
1 \- s/ g# ]0 |4 H3 L3 u6 \      TURNS_V = $V2
#ENDIF
0 F  e7 v' }$ B9 H' G2 y0 W) p#IF SAT==TAP
     + * RVD1_1
) X. x! H+ M- \7 c6 T#ENDIF
! {! l% D; ?7 S6 I# A#IF SAT==1
#IF CuL>0.0
) Q, ^, G! H4 F9 ?" o      CALL TSAT21($X1,$B1,
/ ]/ {! ?- p. N #ELSE
      CALL TSAT21($A1,$B1,
#ENDIF
" b6 h1 ~+ W8 j3 M. |#ELSE
#IF CuL>0.0
9 r- h/ l  i$ U3 w6 J      CALL TSAT21($X2,$B2,
1 D& l  C0 X# W) |- p #ELSE
      CALL TSAT21($A2,$B2,
#ENDIF
- m, \, n) }/ r$ M% r2 ^. F#ENDIF
     + 0,0, 0,0, $SS,$Tmva,TURNS_V,$Xair,X_KNEE,$f,$Tdc,$I_m1, 0.0, $Enab)
# E( o8 }1 @9 ~1 v#OUTPUT REAL IMAG {-STOR(NEXC-21+17)}
( @4 Z0 w( ]& Q2 [% _/ R#OUTPUT REAL FLUX {STOR(NEXC-21+11)}
4 U) T1 R8 W( J1 n4 _! e- b2 [#IF Tap
      CALL TRTAP5($#[1], $Tap, $SS, $TapI)
- H' }& e; n3 g5 [: Q! i) m#ENDIF
!

风残冷月

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

drzyx

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

suner1986

什么意思啊，看不懂fortran

sgkevin

完全看不懂。。

小小鸟儿

这是什么程序里面的?

huafeinaojin

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

buddam

要学习学习了

gpbaby199

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