C
C INCLUDE 'mttwf.inc' C Declaration of the common block used in MTT and WFSRF programs: C C Date: 2000, November 20 C C ------------------------------------------------------------------ INTEGER NOUT,MOUT PARAMETER (MOUT=69) CHARACTER*80 FOUT(0:MOUT+1) CHARACTER*5 CHOUT(MOUT) CHARACTER*5 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 specifying C the names of output files with the interpolated quantities C (NUM,MTT,MP1,...). C FOUT .. Filenames of the output files corresponding to the C individual interpolated quantities. C C Coded by Petr Bulant C C======================================================================= C