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,87 @@
+      PARAMETER (MLIN0   =1200000, 
+     *           MGRIEM  =     10,
+     *           MNLT    =   2000,
+     *           MSPHE2  =     20,
+     *           MLIN    = 190000,
+     *           MPRF    =  MLIN0)
+C
+      PARAMETER (MLINM0  =9000000,
+     *           MLINM   =1000000,
+     *           MMLIST  =      3)
+C
+       REAL*4       EXCL0(MLIN0),
+     *              EXCU0(MLIN0),
+     *              GF0(MLIN0),
+     *              EXTIN(MLIN0),
+     *              BNUL(MLIN0),
+     *              GAMR0(MPRF),
+     *              GS0(MPRF),
+     *              GW0(MPRF),
+     *              WGR0(4,MGRIEM),
+     *              EXCLM(MLINM0,MMLIST),
+     *              GFM(MLINM0,MMLIST),
+     *              EXTINM(MLINM0,MMLIST),
+     *              GRM(MLINM0,MMLIST),
+     *              GSM(MLINM0,MMLIST),
+     *              GWM(MLINM0,MMLIST),
+     *              GVDWH2(MLINM0,MMLIST),
+     *              GEXPH2(MLINM0,MMLIST),
+     *              GVDWHE(MLINM0,MMLIST),
+     *              GEXPHE(MLINM0,MMLIST)
+C     
+      COMMON/LINTOT/FREQ0(MLIN0),
+     *              EXCL0,
+     *              EXCU0,
+     *              GF0,
+     *              EXTIN,
+     *              BNUL,
+     *              INDAT(MLIN0),
+     *              INDNLT(MLIN0),
+     *              ILOWN(MLIN0),
+     *              IUPN(MLIN0),
+     *              IJCONT(MLIN0),
+     *              INDLIN(MLIN),
+     *              INDLIP(MLIN),
+     *              NLIN0,NLIN,IRLIST,
+     *              NNLT,NGRIEM
+C
+      COMMON/MOLTOT/FREQM(MLINM0,MMLIST),
+     *              EXCLM,
+     *              GFM,
+     *              EXTINM,
+     *              GRM,GSM,GWM,
+     *              GVDWH2,GEXPH2,GVDWHE,GEXPHE,
+     *              INDATM(MLINM0,MMLIST),
+     *              INMLIN(MLINM,MMLIST),
+     *              INMLIP(MLINM,MMLIST),
+     *              NLINM0(MMLIST),
+     *              NLINML(MMLIST),
+     *              NLINMT(MMLIST),
+     *              IUNITM(MMLIST),
+     *              INACTM(MMLIST),
+     *              IVDWLI(MMLIST),
+     *              NMLIST
+      CHARACTER*40  AMLIST(0:MMLIST)
+      COMMON/LISPAR/AMLIST,
+     *              IBIN(0:MMLIST)
+C
+      COMMON/LINPRF/GAMR0,
+     *              GS0,
+     *              GW0,
+     *              WGR0,
+     *              IPRF0(MPRF),
+     *              ISPRF(MPRF),
+     *              IGRIEM(MPRF),
+     *              ISP0(MSPHE2),NSP
+C
+      COMMON/LINNLT/ABCENT(MNLT,MDEPTH),
+     *              SLIN(MNLT,MDEPTH)
+C
+      COMMON/LINDEP/PLAN(MDEPTH),
+     *              STIM(MDEPTH),
+     *              EXHK(MDEPTH)
+C
+      COMMON/LINCTR/DFRCON,IJCNTR(MLIN),IJCMTR(MLINM,MMLIST)
+      COMMON/MLINRE/FRLASM(MMLIST),ALASTM(MMLIST),TMLIM(MMLIST),
+     *              NXTSEM(MMLIST),IPRSEM(MMLIST),IREADM(MMLIST)
+