COUPLE

代码说明：

  COUPLE是声场中计算耦合简正波的工具，可以根据输入的海洋环境信息和阵元信息求出声场中的本征函数和耦合简正波系数，进而合成声场，适合于水深缓慢变化（斜坡）的情况，内含说明文件一份（输入、输出文件的解释）(COUPLE is a tool for sound field calculation coupled normal mode, you can ask to speak field eigenfunctions and coupled normal mode coefficients based marine environmental input information and the array element information, and then synthesized sound field, suitable for water depths slow change (slope) of the cases, the Documentation containing a (explain input and output files))

文件列表：

COUPLE
......\couple07
......\........\abortc.for,703,2007-09-27
......\........\AMAT.FOR,3908,2007-09-25
......\........\ar_couple.bat,862,2007-11-25
......\........\ar_couple.txt,862,2007-11-25
......\........\BACKSUB.FOR,553,1992-10-23
......\........\bathy.for,2654,2007-10-10
......\........\BDF.FOR,531,1992-10-23
......\........\BESSJ0.FOR,1043,1992-10-23
......\........\BESSY0.FOR,1042,1992-10-23
......\........\BMAT.FOR,2315,1997-04-23
......\........\BOTDEPS.FOR,1529,2007-09-25
......\........\bounds.for,1571,2007-09-24
......\........\CDFUN.FOR,1535,2007-09-21
......\........\CDJ0.FOR,642,1996-08-19
......\........\CDSRT.FOR,659,1992-10-27
......\........\CDTAN.FOR,683,1996-11-20
......\........\CEXIB.FOR,2699,1995-02-10
......\........\CEXIBD.FOR,2545,1995-02-08
......\........\CEXIW.FOR,1875,1997-04-23
......\........\CEXIWB.FOR,2369,1997-04-24
......\........\CEXIWD.FOR,2006,1997-04-23
......\........\CHDH.FOR,835,1992-10-23
......\........\CHOLDC.FOR,1211,1997-11-14
......\........\CJDJ.FOR,631,1994-11-01
......\........\CLINEQS.FOR,17091,2007-10-31
......\........\COUPLE.BAT,616,2001-06-29
......\........\couple.for,51157,2011-12-17
......\........\couple.lnk,693,2007-11-25
......\........\COUPLE.TXT,616,2001-06-29
......\........\COUPLE07.txt,32454,2007-12-11
......\........\Couple07_TestCases.pdf,125288,2007-11-13
......\........\CoupleReverb.pdf,88983,2002-07-01
......\........\couple_unix.bat,754,2007-12-11
......\........\couple_unix.txt,754,2007-12-11
......\........\CPRES.FOR,6586,2007-02-02
......\........\crscup.for,5377,2007-09-23
......\........\CSDS.FOR,946,1992-10-24
......\........\CSYMEIG.FOR,10118,2000-01-26
......\........\CUPB.FOR,956,1997-04-24
......\........\CUPBW.FOR,2044,1997-04-24
......\........\CUPW.FOR,894,1997-04-24
......\........\CUPWB.FOR,1996,1997-04-24
......\........\CVMULT.FOR,515,1992-10-23
......\........\cwns.for,1536,2007-09-24
......\........\dir.log,4633,2007-12-11
......\........\DREAL.FOR,273,1992-10-23
......\........\EGNVAL.FOR,1537,1992-10-23
......\........\fallsubs_g95.bat,2607,2007-10-31
......\........\fallsubs_g95.txt,2607,2007-10-31
......\........\fallsubs_lf90.bat,1188,2007-11-25
......\........\fallsubs_lf90.txt,1188,2007-11-25
......\........\FILE.FOR,2929,2007-02-02
......\........\flcouple_g95.bat,1000,2007-11-25
......\........\flcouple_g95.txt,1000,2007-11-25
......\........\FLCOUPLE_LF90.BAT,1461,2007-11-25
......\........\flcouple_lf90.txt,1461,2007-11-25
......\........\FORESUB.FOR,701,1995-02-06
......\........\Galerkin_Couple07.pdf,90891,2007-11-09
......\........\GALRKN.FOR,7946,2007-09-27
......\........\GAMA0.FOR,832,1992-10-27
......\........\GAMA00.FOR,775,1994-11-07
......\........\genabc.for,931,2004-09-19
......\........\HEADER.FOR,2247,2007-11-05
......\........\HK01.FOR,560,1996-08-19
......\........\HK02.FOR,590,1996-08-19
......\........\INDEP.FOR,445,1997-04-23
......\........\INDEXX.FOR,2281,1998-12-28
......\........\input.for,7936,2007-10-10
......\........\LF90.FIG,15,2006-08-17
......\........\makefile,3314,2007-11-25
......\........\MGS.FOR,1646,1996-08-19
......\........\MMULT.FOR,391,1992-10-23
......\........\PROPM.FOR,3181,2005-08-03
......\........\PRTMAT.FOR,3625,1997-11-14
......\........\PRTTL.FOR,1111,1997-11-11
......\........\RCF.FOR,1303,1996-08-19
......\........\RWPROF.FOR,5724,2007-09-29
......\........\test1.dat,644,2007-11-11
......\........\test2.dat,684,2007-11-11
......\........\test3.dat,3927,2007-11-11
......\........\test4.dat,14443,2007-10-17
......\........\TMMULT.FOR,1022,1992-10-23
......\........\ZCEXIB.FOR,2574,1995-02-08
......\........\ZCEXIW.FOR,2057,1997-04-23
......\couple97总结.doc,41472,2012-04-11