STORAGECALL REAL RVD1_1
#LOCAL REAL RVD1_3
#IFPI_BY180
#ELSE
RVD1_1 = $THOFF
#ENDIF
COMPONENT_ID(ICALL_NO,$#Component)
#IFCALL#IFBY180_PI
CALL#IF#IFPI_BY3
($ThetaD(1).GE.TWO_PI) $ThetaD(1)=$ThetaD(1)-#ELSE
+ - 0.5*IFTWO_PI
CALL#ENDIF
TVPULN($PMode,$Theta)
#ENDIF

#OUTPUT#
OUTPUT REAL Err {RVD1_3}
Oct 06, 2018 - 01:39 AM
EMTDC FORTRAN, EMTDC FORTRAN

#STORAGE REAL:2 RTCF:2
#BEGIN
CALL TVEKA1_CFG($Vbas,$Fbas)
#ENDBEGIN
#LOCAL REAL RVD1_1
#LOCAL REAL RVD1_2
#LOCAL REAL RVD1_3
#IF PMode==1
RVD1_1 = $THOFF*PI_BY180
#ELSE
RVD1_1 = $THOFF
#ENDIF
CALL COMPONENT_ID(ICALL_NO,$#Component)
#IF Mode==0
CALL TVEKA1_EXE($Va,$Vb,$Vc,$Gp,$Gi,RVD1_1,$TREL,$HiLimit,$LoLimit,$Theta,RVD1_3,RVD1_2)
#IF PMode==1
$Theta = $Theta*BY180_PI
#ENDIF
#ELSE
CALL TVEKA1_EXE($Va,$Vb,$Vc,$Gp,$Gi,RVD1_1,$TREL,$HiLimit,$LoLimit,$Theta(1),RVD1_3,RVD1_2)
#IF Mode==2
$ThetaD(1)= $Theta(1)
#IF dlead==1
+ + 0.5*PI_BY3
IF($ThetaD(1).GE.TWO_PI) $ThetaD(1)=$ThetaD(1)-TWO_PI
#ELSE
+ - 0.5*PI_BY3
IF($ThetaD(1).LT.0.0) $ThetaD(1)=$ThetaD(1)+TWO_PI
#ENDIF
CALL TVPULN($Pmode,$ThetaD)
#ENDIF
CALL TVPULN($PMode,$Theta)
#ENDIF
#OUTPUT REAL FName {RVD1_2}
#OUTPUT REAL Err {RVD1_3}
!

楼主知道怎么找了吗？我现在也在学习

有人知道这个问题吗？CALL后面的函数怎么找

Call的函数你找不到，除非有f源文件，系统自带模块的call函数，封装的，你也看不到