From 09b57710b89f2f4f7fb0becb6a8a591949c78672 Mon Sep 17 00:00:00 2001
From: zzx <784670282@qq.com>
Date: Fri, 9 May 2025 17:54:33 +0800
Subject: [PATCH] =?UTF-8?q?=E6=9B=B4=E6=96=B0=20Fortran/SUB=5FSECT.f90?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Fortran/SUB_SECT.f90 | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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