C
C INCLUDE 'mttwf.inc' C Declaration of the common block used in MTT and WFSRF programs: C C Version: 6.20 C Date: 2008, June 5 C C ------------------------------------------------------------------ INTEGER NOUT,MOUT PARAMETER (MOUT=69) CHARACTER*80 FOUT(0:MOUT+1) CHARACTER*6 CHOUT(MOUT) CHARACTER*6 QNAMES(MOUT) COMMON/MTTWFC/ CHOUT,FOUT,QNAMES SAVE /MTTWFC/ COMMON/MTTWFI/ NOUT SAVE /MTTWFI/ C C NOUT .. Number of character strings stored in CHOUT and FOUT. C CHOUT . Character strings, describing which quantity is to be C interpolated and written into corresponding output C file FOUT. The strings are the same as the names of C the parameters C specifying the names of output files with the interpolated C quantities (NUM,MTT,MP1,...). C CHOUT(I).NE.' ' means that the quantity will be calculated C and stored in the points along the rays. C (Exception: after CHOUT='mtt' always follow three values C of slowness vector which may be marked either by C CHOUT='mp1' to CHOUT='mp3' or by three times CHOUT=' '.) C FOUT .. Filenames of the output files corresponding to the C individual interpolated quantities. C FOUT(I).NE.' ' means that the corresponding quantity will C be interpolated in the gridpoints of the output grid and C written into the output files. C C Coded by Petr Bulant C C======================================================================= C