git push -u origin main

2026-03-19 14:05:33 +08:00
commit 1e30b7bc63
739 changed files with 572150 additions and 0 deletions
@@ -0,0 +1,15 @@
+      PARAMETER (MRCORE=20,
+     *           MKU=MDEPTH+MRCORE,
+     *           MEXT=MKU)
+      COMMON/COMANG/BMU(MKU,MDEPTH),WMUJ(MKU,MDEPTH),WMUH(MKU)
+      COMMON/CORADI/RD(MDEPTH),RCORE,RFNORM,PIM(MKU),RAD1(MDEPTH),
+     *              DELZ(MKU,MDEPTH),NUD(MKU),NUDF(MKU),KMU,NREXT,
+     *              NRCORE,NFIRY,NDF
+      COMMON/CORAF/DELZF(MEXT,MDEPF ),DFRQF(MEXT,2*MDEPF )
+      COMMON/COVEL/VEL(MDEPTH),DFRQ(MKU,2*MDEPTH),DVD(MDEPTH),
+     *             XMDOT,XMD4,BETAV,VINF
+      COMMON/EXTMOD/FFQ(MOPAC),FFQV(MOPAC),RDF(MDEPF ),DENSF(MDEPF ),
+     *             VELF(MEXT,MDEPF ),DRAY(MEXT,2*MDEPF ),
+     *             KRAY(MEXT,2*MDEPF ),NOPAC
+      COMMON/OPAVEL/WDIL(MDEPTH),PLANW(MDEPTH),TRAD(MTRAD,MDEPTH),
+     *              DENSCON(MDEPTH)