From 8cfa32cc861e47b1bad4229d1ee2899b06d0eaec Mon Sep 17 00:00:00 2001
From: misaki <1018407731@qq.com>
Date: Thu, 17 Apr 2025 18:53:13 +0800
Subject: [PATCH] 4

---
 Fortran/SUB_appcoef.f90 | 25 +++++++++++++++++--------
 Fortran/SUB_wavedec.f90 |  6 ++++--
 2 files changed, 21 insertions(+), 10 deletions(-)

diff --git a/Fortran/SUB_appcoef.f90 b/Fortran/SUB_appcoef.f90
index aa8d756..06964c8 100644
--- a/Fortran/SUB_appcoef.f90
+++ b/Fortran/SUB_appcoef.f90
@@ -56,23 +56,30 @@
         Lo_D = [0.111540743350080,0.494623890398385,0.751133908021578,0.315250351709243,&
 				-0.226264693965169,-0.129766867567096,0.0975016055870794,0.0275228655300163,&
 				-0.0315820393180312,0.000553842200993802,0.00477725751101065,-0.00107730108499558]
-        Hi_D = [-0.00107730108499558,-0.00477725751101065,0.000553842200993802,0.0315820393180312,0.0275228655300163,-0.0975016055870794,&
-                -0.129766867567096,0.226264693965169,0.315250351709243,-0.751133908021578,0.494623890398385,-0.111540743350080]
+        Hi_D = [-0.00107730108499558,&
+				-0.00477725751101065,0.000553842200993802,0.0315820393180312,0.0275228655300163,&
+				-0.0975016055870794,&
+                -0.129766867567096,0.226264693965169,0.315250351709243,&
+				-0.751133908021578,0.494623890398385,-0.111540743350080]
         
     case('db7')
         lf = 14
         allocate(Lo_D(lf),Hi_D(lf))
-        Lo_D = [0.0778520540850624,0.396539319482306,0.729132090846555,0.469782287405359,-0.143906003929106,&
+        Lo_D = [0.0778520540850624,0.396539319482306,0.729132090846555,0.469782287405359,&
+				-0.143906003929106,&
 				-0.224036184994166,0.0713092192670500,0.0806126091510659,-0.0380299369350346,&
-				-0.0165745416310156,0.0125509985560138,0.000429577973004703,-0.00180164070399983,0.000353713800001040]
+				-0.0165745416310156,0.0125509985560138,0.000429577973004703,&
+				-0.00180164070399983,0.000353713800001040]
         Hi_D = [0.000353713800001040,0.00180164070399983,0.000429577973004703,-0.0125509985560138,&
 				-0.0165745416310156,0.0380299369350346,0.0806126091510659,-0.0713092192670500,&
-				-0.224036184994166,0.143906003929106,0.469782287405359,-0.729132090846555,0.396539319482306,-0.0778520540850624]
+				-0.224036184994166,0.143906003929106,0.469782287405359,&
+				-0.729132090846555,0.396539319482306,-0.0778520540850624]
         
     case('db8')
         lf = 16
         allocate(Lo_D(lf),Hi_D(lf))
-        Lo_D = [0.0544158422430816,0.312871590914466,0.675630736298013,0.585354683654869,-0.0158291052560239,&
+        Lo_D = [0.0544158422430816,0.312871590914466,0.675630736298013,0.585354683654869,&
+				-0.0158291052560239,&
 				-0.284015542962428,0.000472484573997973,0.128747426620186,-0.0173693010020221,&
 				-0.0440882539310647,0.0139810279170155,0.00874609404701566,&
                 -0.00487035299301066,-0.000391740372995977,0.000675449405998557,-0.000117476784002282]
@@ -91,8 +98,10 @@
     case('fk6')
         lf = 6
         allocate(Lo_D(lf),Hi_D(lf))
-        Lo_D = [0.427915032422310,0.812919643136907,0.356369511070187,-0.146438681272577,-0.0771777574069701,0.0406258144232379]
-        Hi_D = [0.0406258144232379,0.0771777574069701,-0.146438681272577,-0.356369511070187,0.812919643136907,-0.427915032422310]
+        Lo_D = [0.427915032422310,0.812919643136907,0.356369511070187,&
+				-0.146438681272577,-0.0771777574069701,0.0406258144232379]
+        Hi_D = [0.0406258144232379,0.0771777574069701,-0.146438681272577,&
+				-0.356369511070187,0.812919643136907,-0.427915032422310]
         
     case('fk8')
         lf = 8
diff --git a/Fortran/SUB_wavedec.f90 b/Fortran/SUB_wavedec.f90
index b910b2c..02d4ab0 100644
--- a/Fortran/SUB_wavedec.f90
+++ b/Fortran/SUB_wavedec.f90
@@ -44,10 +44,12 @@
     case('db6')
         lf = 12
         allocate(Lo_D(lf),Hi_D(lf))
-        Lo_D = [-0.00107730108499558,0.00477725751101065,0.000553842200993802,-0.0315820393180312,0.0275228655300163,0.0975016055870794,&
+        Lo_D = [-0.00107730108499558,0.00477725751101065,0.000553842200993802,&
+				-0.0315820393180312,0.0275228655300163,0.0975016055870794,&
                 -0.129766867567096,-0.226264693965169,0.315250351709243,0.751133908021578,0.494623890398385,0.111540743350080]
         Hi_D = [-0.111540743350080,0.494623890398385,-0.751133908021578,0.315250351709243,0.226264693965169,-0.129766867567096,&
-                -0.0975016055870794,0.0275228655300163,0.0315820393180312,0.000553842200993802,-0.00477725751101065,-0.00107730108499558]
+                -0.0975016055870794,0.0275228655300163,0.0315820393180312,0.000553842200993802,&
+				-0.00477725751101065,-0.00107730108499558]
         
     case('db7')
         lf = 14