抱歉问这么简单的问题。我正在编写一些FOTRAN77代码,并试图从Python调用它。但是,我发现从一个函数返回两个或多个值时存在一些问题。在
下面是代码。它有四个输入(APPRAT、APPNUM、APSPAC、KOC),我想返回存储在GENEEC3中的三个参数值(APPTOT、KD、TDEGF)。当只返回一个参数时,我编译的代码工作得很好,但是当我请求它返回三个参数时,就不能工作了。在
所以请给我一些建议,谢谢大家的帮助!在Function GENEEC3 (APPRAT,APPNUM,APSPAC,KOC)
REAL GENEEC3(3)
CHARACTER*1 METHOD,AGAIN,WETTED,ADSORP,AIRFLG,GRNFLG,ORCFLG,GRSIZE
Cf2py intent(in) APPRAT,APPNUM,APSPAC,KOC,METHAF,WETTED,METHOD,AIRFLG
Cf2py intent(in) YLOCEN,GRNFLG,ORCFLG,INCORP,SOL,METHAP,HYDHAP,FOTHAP
Cf2py intent(out) GENEEC3(3)
C
APPTOT=APPRAT*APPNUM
TDEGF = APPNUM * APSPAC
KD = 0.0116 * KOC
C
GENEEC3(1)=APPTOT
GENEEC3(2)=KD
GENEEC3(3)=TDEGF
C
RETURN
END Function GENEEC3