diff --git a/Fortran/SUB_SECT.f90 b/Fortran/SUB_SECT.f90
index fffdd2a..3264e1c 100644
--- a/Fortran/SUB_SECT.f90
+++ b/Fortran/SUB_SECT.f90
@@ -1,5 +1,5 @@
 !	==================================================================================
-!	 计算断面几何要素的子程序
+!	 璁＄畻鏂潰鍑犱綍瑕佺礌鐨勫瓙绋嬪簭
 !	==================================================================================
 	subroutine sub_sect(	NRIVER				,&
 							NSECT				,&
@@ -27,12 +27,13 @@
 
 	integer River
     ! section
-	REAL::ds(mriver,nriver),bd(nsect,nriver),zd(nsect,nriver),sm(nsect,nriver), rough(nsect,nriver)
+	REAL::ds(mriver,nriver),bd(nsect,nriver),zd(nsect,nriver),&
+		sm(nsect,nriver), rough(nsect,nriver)
     ! BARC
 	REAL::Bs,As,Rs,Cs
 
 !    ----------------------------------------------------------------------------------
-!    Bs、As、Rs、Cs——相应于水位Zs的断面要素（梯形断面）
+!    Bs銆丄s銆丷s銆丆s鈥斺�旂浉搴斾簬姘翠綅Zs鐨勬柇闈㈣绱狅紙姊舰鏂潰锛�
 !    ----------------------------------------------------------------------------------
 	h=Zs-zd(Is,river)
 	Bs=bd(Is,river)+2.0*sm(Is,river)*h