TA的每日心情 | 擦汗 2017-10-23 23:12 |
---|
签到天数: 17 天 连续签到: 1 天 [LV.4]偶尔看看III 累计签到:17 天 连续签到:1 天
|
楼主 |
发表于 2017-10-14 22:56:03
|
显示全部楼层
我编的fortran程序如下:#STORAGE REAL:15 ! -------------------------------------------------- ! -------------------------------------------------- ! PSCAD/EMTDC - MATLAB INTERFACE ! Module: $Name #LOCAL INTEGER I_CNT IF($Enabl.GT.0.9) THEN ! -------------------------------------------------- ! Transfer EMTDC Input Variables to Matlab Interface ! -------------------------------------------------- ! ! First Input Array (REAL(2)) I_CNT = 1 DO WHILE ( I_CNT .LE. 8 ) STORF(NSTORF+I_CNT-1) = $INPUT(I_CNT) I_CNT = I_CNT + 1 END DO ! ! -------------------------------------------------- ! Call PSCAD/EMTDC Matlab Interface: ! CALL MLAB_INT("MFILEPATH","MFILENAME","Input Format","Output Format") ! -------------------------------------------------- CALL MLAB_INT("%:Dir\$Path", "$Name", "R(8)" , "R(7)" ) ! ! -------------------------------------------------- ! Transfer Matlab Output Variables from Matlab Interface ! -------------------------------------------------- ! ! First Output Array (REAL(1)) $OUTPUT(1) = STORF(NSTORF+8) $OUTPUT(2) = STORF(NSTORF+9) $OUTPUT(3) = STORF(NSTORF+10) $OUTPUT(4) = STORF(NSTORF+11) $OUTPUT(5) = STORF(NSTORF+12) $OUTPUT(6) = STORF(NSTORF+13) $OUTPUT(7) = STORF(NSTORF+14) ENDIF ! Update STORx Pointers NSTORF = NSTORF + 15 ! -------------------------------------------------- ! -------------------------------------------------- |
|