PARAMETER ( MXLENF = 15 ) C* C************************************************************************ C* / TYPES / * C* * C* This common area contains type information about a report. * C************************************************************************ CHARACTER*5 LAND, SHIP, MOBIL, DROP, stntyp C* PARAMETER ( LAND = 'LAND ', SHIP = 'SHIP ', + MOBIL = 'MOBIL', DROP = 'DROP ' ) C* COMMON / TYPES / stntyp C* Station type