\setlength{\unitlength}{2.75mm}
\begin{picture}(50,70)(-1.5,-1)
\put(8,66){\line(4,3){4}}
\put(12,69){\line(4,-3){4}}

\put(16,66){\line(-4,-3){4}}
\put(12,63){\line(-4,3){4}}
\put(9.7,65.6){START}
\put(12,63){\vector(0,-1){1.75}}
\put(12,61.25){\line(0,-1){0.75}}
\put(7,57.5){\framebox(10,3){Initialization}}
\put(12,57.5){\vector(0,-1){1.75}}
\put(12,55.75){\line(0,-1){0.75}}
\put(6.8,51){\framebox(10.4,4)}
\put(8.3,53.6){Hourly Loop}
\put(7.3,51.8){DO 10 I=1,NHR}
\put(17.2,53){\vector(1,0){4.5}}
\put(21.7,53){\line(1,0){4.5}}
\put(26.2,53){\line(0,-1){2.5}}
\put(20.3,46.5){\framebox(11.8,4)}
\put(22.4,49.1){Read Hourly}
\put(22.9,47.3){Input Data}
\put(26.2,46.5){\vector(0,-1){1.5}}
\put(26.2,45){\line(0,-1){0.5}}
\put(20.3,40.5){\framebox(11.8,4)}
\put(23.1,43.1){Time Loop}
\put(20.8,41.3){DO 5 J=1,NSTEPS}
\put(32.1,42.5){\vector(1,0){4}}
\put(36.1,42.5){\line(1,0){4}}
\put(40.1,42.5){\line(0,-1){2.5}}
\put(34.7,37){\framebox(10.8,3){CALL HORIZ}}
\put(40.1,37){\line(0,-1){2}}
\put(34.7,32){\framebox(10.8,3){CALL CHMVRT}}
\put(40.1,32){\line(0,-1){2}}
\put(34.7,27){\framebox(10.8,3){CALL HORIZ}}
\put(40.1,27){\line(0,-1){2.5}}
\put(40.1,24.5){\vector(-1,0){4}}
\put(36.1,24.5){\line(-1,0){4}}
\put(20.3,23){\framebox(11.8,3){5 CONTINUE}}
\put(26.2,26){\dashbox{0.5}(0,14.5)}
\put(26.2,35.5){\vector(0,1){0.5}}
\put(26.2,23){\vector(0,-1){1.5}}
\put(26.2,21.5){\line(0,-1){0.5}}
\put(20.3,17){\framebox(11.8,4)}
\put(22.7,19.6){Print Hourly}
\put(24.3,17.8){Output}
\put(26.2,17){\line(0,-1){2.5}}
\put(26.2,14.5){\vector(-1,0){4.5}}
\put(21.7,14.5){\line(-1,0){4.5}}
\put(6.8,13){\framebox(10.4,3){10 CONTINUE}}
\put(12,16){\dashbox{0.5}(0,35)}
\put(12,43.5){\vector(0,1){0.5}}
\put(12,13){\vector(0,-1){2}}
\put(12,11){\line(0,-1){1}}
\put(12,10){\line(1,0){10}}
\put(24.1,10){\circle{4.6}}
\put(22.4,9.5){STOP}

\end{picture}