CISKZ
<br />program CISKZ !程序名
DIMENSION W(5),H(5),H8(5),CISKO(5) !声明数组
DATA W/-1.,-.5,.1,1.5,11./ !给变量赋初值
DATA H/.01,.02,.03,.04,.05/
DATA H8/.8,.9,.95,.98,1./
DO 01 I=1,5 !1为初值,5为终值,由于没给出减量,那么采用默认的增量1
ELO=W(I)
HUM3=H(I)
HUM8=H8(I)
CALL WCISK(ELO,
原创
2010-10-29 14:54:00 ·
590 阅读 ·
0 评论