📄 110.f90
字号:
READ(*,*)(q11_y(I),I=1,24)
WRITE(*,113)
113 FORMAT(//1X,'输入无罩设备24小时的显热(W)：'/1X,&
'(没有该类型设备输入0)')
READ(*,*)(q11_w(I),I=1,24)
CALL OUT(q11_w,Ccl_sw)
CALL OUT(q11_y,Ccl_sz)
ENDIF
!!****************************************************************
IF(K.EQ.3.0) THEN
WRITE(*,80)
80 FORMAT(//1X,'选择空调设备工作时间:'//1X,&
'[1]-空调设备工作时间24h'//1X,&
'[2]-空调设备工作时间16-23h'//1X,&
'[3]-空调设备工作时间小于16h'//)
READ(*,*) K11
IF(K11.EQ.1.0) THEN
TIME=24
WRITE(*,114)
114 FORMAT(//'输入明装荧光灯24小时的显热(W)：'/1X,&
'(没有该类型灯具或者是白炽灯输入0)')
READ(*,*)(q11_y(I),I=1,TIME)
WRITE(*,115)
115 FORMAT(//'输入暗装荧光灯/白炽灯24小时的显热(W)：'/1X,&
'(没有该类型灯具输入0)')
READ(*,*)(q11_w(I),I=1,TIME)
CALL OUT(q11_y,Ccl_dm_24)
CALL OUT(q11_w,Ccl_dan_24)
ELSEIF(K11.EQ.2.0) THEN
TIME=16
WRITE(*,116)
116 FORMAT(//'输入明装荧光灯16小时的显热(W)：'/1X,&
'(没有该类型灯具或者是白炽灯输入0)')
READ(*,*)(q11_y(I),I=1,TIME)
WRITE(*,117)
117 FORMAT(//'输入暗装荧光灯/白炽灯16小时的显热(W)：'/1X,&
'(没有该类型灯具输入0)')
READ(*,*)(q11_w(I),I=1,TIME)
CALL OUT(q11_y,Ccl_dm_16)
CALL OUT(q11_w,Ccl_dan_16)
ELSEIF(K11.EQ.3.0) THEN
TIME=12
WRITE(*,118)
118 FORMAT(//'输入明装荧光灯12小时的显热(W)：'/1X,&
'(没有该类型灯具或者是白炽灯输入0)')
READ(*,*)(q11_y(I),I=1,TIME)
WRITE(*,119)
119 FORMAT(//'输入暗装荧光灯/白炽灯12小时的显热(W)：'/1X,&
'(没有该类型灯具输入0)')
READ(*,*)(q11_w(I),I=1,TIME)
CALL OUT(q11_y,Ccl_dm_12)
CALL OUT(q11_w,Ccl_dan_12)
ENDIF
ENDIF
!!$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
!!$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
DATA Ccl_r/0.49,0.49,0.50,0.51,0.53,0.55,0.58,0.62,0.66,&
0.58,0.59,0.60,0.61,0.62,0.64,0.66,0.70,0.74,&
0.17,0.66,0.67,0.67,0.69,0.70,0.72,0.75,0.79,&
0.13,0.13,0.71,0.72,0.74,0.75,0.77,0.79,0.82,&
!!****************************************************************
0.10,0.27,0.76,0.76,0.77,0.79,0.80,0.82,0.85,&
0.08,0.21,0.79,0.80,0.80,0.81,0.83,0.85,0.87,&
0.07,0.16,0.34,0.82,0.83,0.84,0.85,0.87,0.89,&
0.06,0.14,0.26,0.84,0.85,0.86,0.87,0.88,0.90,&
!!****************************************************************
0.05,0.11,0.21,0.38,0.87,0.88,0.89,0.90,0.92,&
0.04,0.10,0.18,0.30,0.89,0.89,0.90,0.91,0.93,&
0.04,0.08,0.15,0.25,0.42,0.91,0.91,0.92,0.94,&
0.03,0.07,0.13,0.21,0.34,0.92,0.92,0.93,0.94,&
!!****************************************************************
0.03,0.06,0.11,0.18,0.28,0.45,0.93,0.94,0.95,&
0.02,0.06,0.10,0.15,0.23,0.36,0.94,0.95,0.96,&
0.02,0.05,0.08,0.13,0.20,0.30,0.47,0.95,0.96,&
0.02,0.04,0.07,0.12,0.17,0.25,0.38,0.96,0.97,&
!!****************************************************************
0.02,0.04,0.06,0.10,0.15,0.21,0.31,0.49,0.97,&
0.01,0.03,0.06,0.09,0.13,0.19,0.26,0.39,0.97,&
0.01,0.03,0.05,0.08,0.11,0.16,0.23,0.33,0.50,&
0.01,0.03,0.04,0.07,0.10,0.14,0.20,0.28,0.40,&
!!****************************************************************
0.01,0.02,0.04,0.06,0.09,0.12,0.17,0.24,0.33,&
0.01,0.02,0.03,0.05,0.08,0.11,0.15,0.20,0.28,&
0.01,0.02,0.03,0.05,0.07,0.09,0.13,0.18,0.24,&
0.01,0.01,0.03,0.04,0.06,0.08,0.11,0.16,0.21/
!!****************************************************************
DATA Ccl_sz/0.27,0.28,0.29,0.31,0.33,0.36,0.40,0.45,0.52,&
0.40,0.41,0.42,0.44,0.46,0.49,0.52,0.57,0.63,&
0.25,0.51,0.52,0.54,0.55,0.58,0.61,0.65,0.70,&
0.18,0.59,0.59,0.61,0.62,0.64,0.67,0.70,0.75,&
!!****************************************************************
0.14,0.39,0.65,0.66,0.68,0.69,0.72,0.75,0.79,&
0.11,0.30,0.70,0.71,0.72,0.74,0.76,0.78,0.82,&
0.09,0.24,0.48,0.75,0.76,0.77,0.79,0.81,0.84,&
0.08,0.19,0.37,0.78,0.79,0.80,0.82,0.84,0.86,&
!!****************************************************************
0.07,0.16,0.30,0.55,0.81,0.82,0.84,0.86,0.88,&
0.06,0.14,0.25,0.43,0.84,0.85,0.86,0.87,0.89,&
0.05,0.12,0.21,0.35,0.60,0.87,0.88,0.89,0.91,&
0.04,0.10,0.18,0.30,0.48,0.88,0.89,0.90,0.92,&
!!****************************************************************
0.04,0.09,0.16,0.25,0.39,0.64,0.91,0.92,0.93,&
0.03,0.08,0.14,0.22,0.33,0.51,0.92,0.93,0.94,&
0.03,0.07,0.12,0.19,0.28,0.42,0.67,0.94,0.95,&
0.03,0.06,0.11,0.16,0.24,0.36,0.54,0.94,0.95,&
!!****************************************************************
0.02,0.05,0.09,0.14,0.21,0.31,0.45,0.69,0.96,&
0.02,0.05,0.08,0.13,0.18,0.26,0.38,0.56,0.56,&
0.02,0.04,0.07,0.11,0.16,0.23,0.32,0.46,0.71,&
0.02,0.04,0.06,0.10,0.14,0.20,0.28,0.39,0.58,&
!!****************************************************************
0.01,0.03,0.05,0.08,0.12,0.18,0.24,0.34,0.48,&
0.01,0.03,0.05,0.07,0.11,0.15,0.21,0.29,0.41,&
0.01,0.02,0.04,0.06,0.09,0.13,0.19,0.25,0.35,&
0.01,0.02,0.04,0.06,0.08,0.12,0.16,0.22,0.30/
!!****************************************************************
DATA Ccl_sw/0.56,0.57,0.57,0.58,0.60,0.62,0.64,0.67,0.71,&
0.64,0.65,0.65,0.66,0.68,0.69,0.71,0.74,0.78,&
0.15,0.71,0.71,0.72,0.73,0.75,0.76,0.79,0.82,&
0.11,0.75,0.76,0.76,0.77,0.79,0.80,0.82,0.85,&
!!****************************************************************
0.08,0.23,0.79,0.80,0.81,0.82,0.83,0.85,0.87,&
0.07,0.18,0.82,0.82,0.83,0.84,0.85,0.87,0.89,&
0.06,0.14,0.29,0.85,0.85,0.86,0.87,0.89,0.90,&
0.05,0.12,0.22,0.87,0.87,0.88,0.89,0.90,0.92,&
!!****************************************************************
0.04,0.10,0.18,0.33,0.89,0.89,0.90,0.91,0.93,&
0.04,0.08,0.15,0.26,0.90,0.91,0.92,0.92,0.94,&
0.03,0.07,0.13,0.21,0.36,0.92,0.93,0.93,0.94,&
0.03,0.06,0.11,0.18,0.29,0.93,0.93,0.94,0.95,&
!!****************************************************************
0.02,0.05,0.10,0.15,0.24,0.38,0.94,0.95,0.96,&
0.02,0.05,0.08,0.13,0.20,0.31,0.95,0.96,0.96,&
0.02,0.04,0.07,0.11,0.17,0.25,0.40,0.96,0.97,&
0.02,0.04,0.06,0.10,0.15,0.21,0.32,0.97,0.97,&
!!****************************************************************
0.01,0.03,0.06,0.09,0.13,0.18,0.27,0.42,0.97,&
0.01,0.03,0.05,0.08,0.11,0.16,0.23,0.34,0.98,&
0.01,0.02,0.04,0.07,0.10,0.14,0.19,0.28,0.43,&
0.01,0.02,0.04,0.06,0.08,0.12,0.17,0.24,0.35,&
!!****************************************************************
0.01,0.02,0.03,0.05,0.07,0.11,0.15,0.20,0.29,&
0.01,0.02,0.03,0.04,0.07,0.09,0.13,0.18,0.24,&
0.01,0.01,0.03,0.04,0.06,0.08,0.11,0.15,0.21,&
0.01,0.01,0.02,0.03,0.05,0.07,0.10,0.13,0.18/
!!****************************************************************
DATA Ccl_dm_24/0.37,0.37,0.37,0.37,0.37,0.37,0.37,0.37,0.37,&
0.67,0.67,0.67,0.67,0.67,0.67,0.67,0.67,0.67,&
0.71,0.71,0.71,0.71,0.71,0.71,0.71,0.71,0.71,&
0.74,0.74,0.74,0.74,0.74,0.74,0.74,0.74,0.74,&
!!****************************************************************
0.76,0.76,0.76,0.76,0.76,0.76,0.76,0.76,0.76,&
0.79,0.79,0.79,0.79,0.79,0.79,0.79,0.79,0.79,&
0.81,0.81,0.81,0.81,0.81,0.81,0.81,0.81,0.76,&
0.83,0.83,0.83,0.83,0.83,0.83,0.83,0.83,0.83,&
!!****************************************************************
0.84,0.84,0.84,0.84,0.84,0.84,0.84,0.84,0.84,&
0.29,0.29,0.29,0.29,0.86,0.86,0.86,0.86,0.86,&
0.26,0.26,0.26,0.26,0.87,0.87,0.87,0.87,0.87,&
0.23,0.23,0.23,0.23,0.29,0.89,0.89,0.89,0.89,&
!!****************************************************************
0.20,0.20,0.20,0.20,0.26,0.90,0.90,0.90,0.90,&
0.19,0.19,0.19,0.19,0.23,0.92,0.92,0.92,0.92,&
0.17,0.17,0.17,0.17,0.20,0.29,0.29,0.29,0.29,&
0.15,0.15,0.15,0.15,0.19,0.26,0.26,0.26,0.26,&
!!****************************************************************
0.14,0.14,0.14,0.14,0.17,0.23,0.23,0.23,0.23,&
0.12,0.12,0.12,0.12,0.15,0.20,0.20,0.20,0.20,&
0.11,0.11,0.11,0.11,0.14,0.19,0.19,0.19,0.19,&
0.10,0.10,0.10,0.10,0.12,0.17,0.17,0.17,0.17,&
!!****************************************************************
0.09,0.09,0.09,0.09,0.11,0.15,0.15,0.15,0.15,&
0.08,0.08,0.08,0.08,0.10,0.14,0.14,0.14,0.14,&
0.07,0.07,0.07,0.07,0.09,0.12,0.12,0.12,0.12,&
0.06,0.06,0.06,0.06,0.08,0.11,0.11,0.11,0.11/
!!****************************************************************
DATA Ccl_dm_16/0.51,0.51,0.51,0.51,0.60,0.60,0.60,0.60,0.60,&
0.79,0.79,0.79,0.79,0.82,0.87,0.87,0.87,0.87,&
0.82,0.82,0.82,0.82,0.83,0.90,0.90,0.90,0.90,&
0.84,0.84,0.84,0.84,0.84,0.91,0.91,0.91,0.91,&
!!****************************************************************
0.85,0.85,0.85,0.85,0.84,0.91,0.91,0.91,0.91,&
0.87,0.87,0.87,0.87,0.84,0.93,0.93,0.93,0.93,&
0.88,0.88,0.88,0.88,0.85,0.93,0.93,0.93,0.93,&
0.89,0.89,0.89,0.89,0.85,0.94,0.94,0.94,0.94,&
!!****************************************************************
0.90,0.90,0.90,0.90,0.86,0.94,0.94,0.94,0.94,&
0.29,0.29,0.29,0.29,0.88,0.95,0.95,0.95,0.95,&
0.26,0.26,0.26,0.26,0.90,0.95,0.95,0.95,0.95,&
0.23,0.23,0.23,0.23,0.32,0.96,0.96,0.96,0.96,&
!!****************************************************************
0.20,0.20,0.20,0.20,0.28,0.96,0.96,0.96,0.96,&
0.19,0.19,0.19,0.19,0.25,0.97,0.97,0.97,0.97,&
0.17,0.17,0.17,0.17,0.23,0.29,0.29,0.29,0.29,&
0.15,0.15,0.15,0.15,0.19,0.26,0.26,0.26,0.26/
!!****************************************************************
DATA Ccl_dm_12/0.63,0.63,0.63,0.63,0.63,0.63,0.63,0.63,0.63,&
0.90,0.90,0.90,0.90,0.90,0.90,0.90,0.90,0.90,&
0.91,0.91,0.91,0.91,0.91,0.91,0.91,0.91,0.91,&
0.93,0.93,0.93,0.93,0.93,0.93,0.93,0.93,0.93,&
!!****************************************************************
0.93,0.93,0.93,0.93,0.93,0.93,0.93,0.93,0.93,&
0.94,0.94,0.94,0.94,0.94,0.94,0.94,0.94,0.94,&
0.95,0.95,0.95,0.95,0.95,0.95,0.95,0.95,0.95,&
0.95,0.95,0.95,0.95,0.95,0.95,0.95,0.95,0.95,&
!!****************************************************************
0.95,0.95,0.95,0.95,0.95,0.95,0.95,0.95,0.95,&
0.96,0.96,0.96,0.96,0.96,0.96,0.96,0.96,0.96,&
0.96,0.96,0.96,0.96,0.96,0.96,0.96,0.96,0.96,&
0.37,0.37,0.37,0.37,0.37,0.37,0.37,0.37,0.37/
!!****************************************************************
DATA Ccl_dan_24/0.34,0.34,0.34,0.34,0.34,0.34,0.34,0.34,0.34,&
0.55,0.55,0.55,0.55,0.55,0.55,0.55,0.55,0.55,&
0.61,0.61,0.61,0.61,0.61,0.61,0.61,0.61,0.61,&
0.65,0.65,0.65,0.65,0.65,0.65,0.65,0.65,0.65,&
!!****************************************************************
0.68,0.68,0.68,0.68,0.68,0.68,0.68,0.68,0.68,&
0.71,0.71,0.71,0.71,0.71,0.71,0.71,0.71,0.71,&
0.74,0.74,0.74,0.74,0.74,0.74,0.74,0.74,0.74,&
0.77,0.77,0.77,0.77,0.77,0.77,0.77,0.77,0.77,&
!!****************************************************************
0.79,0.79,0.79,0.79,0.79,0.79,0.79,0.79,0.79,&
0.81,0.81,0.81,0.81,0.81,0.81,0.81,0.81,0.81,&
0.83,0.83,0.83,0.83,0.83,0.83,0.83,0.83,0.83,&
0.39,0.39,0.39,0.39,0.39,0.39,0.39,0.39,0.39,&
!!****************************************************************
0.35,0.35,0.35,0.35,0.35,0.35,0.35,0.35,0.35,&
0.31,0.31,0.31,0.31,0.31,0.31,0.31,0.31,0.31,&
0.28,0.28,0.28,0.28,0.28,0.28,0.28,0.28,0.28,&
0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,&
!!****************************************************************
0.23,0.23,0.23,0.23,0.23,0.23,0.23,0.23,0.23,&
0.20,0.20,0.20,0.20,0.20,0.20,0.20,0.20,0.20,&
0.18,0.18,0.18,0.18,0.18,0.18,0.18,0.18,0.18,&
0.16,0.16,0.16,0.16,0.16,0.16,0.16,0.16,0.16,&
!!****************************************************************
0.15,0.15,0.15,0.15,0.15,0.15,0.15,0.15,0.15,&
0.14,0.14,0.14,0.14,0.14,0.14,0.14,0.14,0.14,&
0.12,0.12,0.12,0.12,0.12,0.12,0.12,0.12,0.12,&
0.11,0.11,0.11,0.11,0.11,0.11,0.11,0.11,0.11/
!!****************************************************************
DATA Ccl_dan_16/0.58,0.58,0.58,0.58,0.58,0.58,0.58,0.58,0.58,&
0.75,0.75,0.75,0.75,0.75,0.75,0.75,0.75,0.75,&
0.79,0.79,0.79,0.79,0.79,0.79,0.79,0.79,0.79,&
0.80,0.80,0.80,0.80,0.80,0.80,0.80,0.80,0.80,&
!!****************************************************************
0.80,0.80,0.80,0.80,0.80,0.80,0.80,0.80,0.80,&
0.81,0.81,0.81,0.81,0.81,0.81,0.81,0.81,0.81,&
0.82,0.82,0.82,0.82,0.82,0.82,0.82,0.82,0.82,&
0.83,0.83,0.83,0.83,0.83,0.83,0.83,0.83,0.83,&
!!****************************************************************
0.84,0.84,0.84,0.84,0.84,0.84,0.84,0.84,0.84,&
0.86,0.86,0.86,0.86,0.86,0.86,0.86,0.86,0.86,&
0.87,0.87,0.87,0.87,0.87,0.87,0.87,0.87,0.87,&
0.39,0.39,0.39,0.39,0.39,0.39,0.39,0.39,0.39,&
!!****************************************************************
0.35,0.35,0.35,0.35,0.35,0.35,0.35,0.35,0.35,&
0.31,0.31,0.31,0.31,0.31,0.31,0.31,0.31,0.31,&
0.28,0.28,0.28,0.28,0.28,0.28,0.28,0.28,0.28,&
0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25,0.25/
!!****************************************************************
DATA Ccl_dan_12/0.69,0.69,0.69,0.69,0.69,0.69,0.69,0.69,0.69,&
0.86,0.86,0.86,0.86,0.86,0.86,0.86,0.86,0.86,&
0.89,0.89,0.89,0.89,0.89,0.89,0.89,0.89,0.89,&
0.90,0.90,0.90,0.90,0.90,0.90,0.90,0.90,0.90,&
!!****************************************************************
0.91,0.91,0.91,0.91,0.91,0.91,0.91,0.91,0.91,&
0.91,0.91,0.91,0.91,0.91,0.91,0.91,0.91,0.91,&
0.92,0.92,0.92,0.92,0.92,0.92,0.92,0.92,0.92,&
0.93,0.93,0.93,0.93,0.93,0.93,0.93,0.93,0.93,&
!!****************************************************************
0.94,0.94,0.94,0.94,0.94,0.94,0.94,0.94,0.94,&
0.95,0.95,0.95,0.95,0.95,0.95,0.95,0.95,0.95,&
0.95,0.95,0.95,0.95,0.95,0.95,0.95,0.95,0.95,&
0.50,0.50,0.50,0.50,0.50,0.50,0.50,0.50,0.50/
!!****************************************************************
STOP
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -