2,4c2,8 < < < --- > c updated for bigger arrays > > #define _MAXM_ 6000 > #define _MAXCYL_ 50000 > #define _MAXREP_ 200000 > #define _MAXLEV_ 300000 > 102,103c106,107 < COMMON /OBS/ NREP,NLEV,SID( 200000 ),INOB( 200000 ),IMAP(360,181) < COMMON /CKLIST / NDD,INDD( 300000 ) --- > COMMON /OBS/ NREP,NLEV,SID( _MAXREP_ ),INOB( _MAXREP_ ),IMAP(360,181) > COMMON /CKLIST / NDD,INDD( _MAXLEV_ ) 910,911c914,915 < COMMON /OBS/ NREP,NLEV,SID( 200000 ),INOB( 200000 ),IMAP(360,181) < COMMON /CKLIST/ NDD,INDD( 300000 ) --- > COMMON /OBS/ NREP,NLEV,SID( _MAXREP_ ),INOB( _MAXREP_ ),IMAP(360,181) > COMMON /CKLIST/ NDD,INDD( _MAXLEV_ ) 1032c1036 < COMMON /OBS/ NREP,NLEV,SID( 200000 ),INOB( 200000 ),IMAP(360,181) --- > COMMON /OBS/ NREP,NLEV,SID( _MAXREP_ ),INOB( _MAXREP_ ),IMAP(360,181) 1275c1279 < COMMON /OBS/ NREP,NLEV,SID( 200000 ),INOB( 200000 ),IMAP(360,181) --- > COMMON /OBS/ NREP,NLEV,SID( _MAXREP_ ),INOB( _MAXREP_ ),IMAP(360,181) 1626,1627c1630,1631 < COMMON /FPLIST / NFL,INFL( 300000 ) < COMMON /CKLIST / NDD,INDD( 300000 ) --- > COMMON /FPLIST / NFL,INFL( _MAXLEV_ ) > COMMON /CKLIST / NDD,INDD( _MAXLEV_ ) 2054c2058 < COMMON /CKLIST/ NDD,INDD( 300000 ) --- > COMMON /CKLIST/ NDD,INDD( _MAXLEV_ ) 2207c2211 < COMMON /CKLIST/ NDD,INDD( 300000 ) --- > COMMON /CKLIST/ NDD,INDD( _MAXLEV_ ) 2333c2337 < COMMON /OBS/ NREP,NLEV,SID( 200000 ),INOB( 200000 ),IMAP(360,181) --- > COMMON /OBS/ NREP,NLEV,SID( _MAXREP_ ),INOB( _MAXREP_ ),IMAP(360,181) 2545c2549 < COMMON /OBS/ NREP,NLEV,SID( 200000 ),INOB( 200000 ),IMAP(360,181) --- > COMMON /OBS/ NREP,NLEV,SID( _MAXREP_ ),INOB( _MAXREP_ ),IMAP(360,181) 2580c2584 < COMMON /OBS / NREP,NLEV,SID( 200000 ),INOB( 200000 ),IMAP(360,181) --- > COMMON /OBS / NREP,NLEV,SID( _MAXREP_ ),INOB( _MAXREP_ ),IMAP(360,181) 2585,2589c2589,2593 < DIMENSION NIND( 200000 ),RLAT( 200000 ),RLON( 200000 ), < . RDIS( 200000 ),RDIR( 200000 ), < . DIST( 50000 ),DIRN( 50000 ), < . ICOR( 50000 ),IDIR( 50000 ), < . LIND( 50000 ),LTYP( 50000 ),PRES( 50000 ), --- > DIMENSION NIND( _MAXREP_ ),RLAT( _MAXREP_ ),RLON( _MAXREP_ ), > . RDIS( _MAXREP_ ),RDIR( _MAXREP_ ), > . DIST( _MAXCYL_ ),DIRN( _MAXCYL_ ), > . ICOR( _MAXCYL_ ),IDIR( _MAXCYL_ ), > . LIND( _MAXCYL_ ),LTYP( _MAXCYL_ ),PRES( _MAXCYL_ ), 2591c2595 < . SCAT( 50000 ,4,4),CAT( 50000 ,4,4),NONE(4,4), --- > . SCAT( _MAXCYL_ ,4,4),CAT( _MAXCYL_ ,4,4),NONE(4,4), 2597c2601 < DATA MAXCYL / 50000 / , MAXREP / 200000 / --- > DATA MAXCYL / _MAXCYL_ / , MAXREP / _MAXREP_ / 2888c2892 < COMMON /CKLIST/ NDD,INDD( 300000 ) --- > COMMON /CKLIST/ NDD,INDD( _MAXLEV_ ) 3171c3175 < COMMON /CKLIST/ NDD,INDD( 300000 ) --- > COMMON /CKLIST/ NDD,INDD( _MWXLEV_ ) 3254c3258 < COMMON /OBS/ NREP,NLEV,SID( 200000 ),INOB( 200000 ),IMAP(360,181) --- > COMMON /OBS/ NREP,NLEV,SID( _MAXREP_ ),INOB( _MAXREP_ ),IMAP(360,181) 3327c3331 < COMMON /CKLIST/ NDD,INDD( 300000 ) --- > COMMON /CKLIST/ NDD,INDD( _MAXlEV_ ) 3329c3333 < COMMON /OBS/ NREP,NLEV,SID( 200000 ),INOB( 200000 ),IMAP(360,181) --- > COMMON /OBS/ NREP,NLEV,SID( _MAXREP_ ),INOB( _MAXREP_ ),IMAP(360,181) 3340,3343c3344,3347 < DIMENSION NIND( 200000 ),RLAT( 200000 ),RLON( 200000 ), < . DIST( 200000 ),DIRN( 200000 ), < . LIND( 50000 ),LTYP( 50000 ),PRES( 50000 ), < . ICOR( 50000 ),IDIR( 50000 ), --- > DIMENSION NIND( _MEXREC_ ),RLAT( _MAXREP_ ),RLON( _MAXREP_ ), > . DIST( _MAXCYL_ ),DIRN( _MAXCYL_ ), > . LIND( _MAXCYL_ ),LTYP( _MAXCYL_ ),PRES( _MAXCYL_ ), > . ICOR( _MAXCYL_ ),IDIR( _MAXCYL_ ), 3346c3350 < LOGICAL CAT( 50000 ,4,4),NONE(4,4),MORE,GO --- > LOGICAL CAT( _MAXCYL_ ,4,4),NONE(4,4),MORE,GO 3350c3354 < DATA MAXCYL / 50000 / , MAXREP / 200000 / --- > DATA MAXCYL / _MAXCYL_ / , MAXREP / _MAXREP_ / 3590c3594 < COMMON /OBS/ NREP,NLEV,SID( 200000 ),INOB( 200000 ),IMAP(360,181) --- > COMMON /OBS/ NREP,NLEV,SID( _MAXREP_ ),INOB( _MAXREP_ ),IMAP(360,181) 3757c3761 < COMMON /OBS/ NREP,NLEV,SID( 200000 ),INOB( 200000 ),IMAP(360,181) --- > COMMON /OBS/ NREP,NLEV,SID( _MAXREP_ ),INOB( _MAXREP_ ),IMAP(360,181) 4062c4066 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_) 4070c4074 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4079c4083 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4087c4091 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4096c4100 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4104c4108 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4113c4117 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4121c4125 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4130c4134 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4138c4142 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4147c4151 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4155c4159 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4164c4168 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4172c4176 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4181c4185 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4189c4193 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4198c4202 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4206c4210 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4215c4219 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4223c4227 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4232c4236 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4240c4244 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4249c4253 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4258c4262 < PARAMETER (IM = 200000 ) --- > PARAMETER (IM = _MAXREP_ ) 4268c4272 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4276c4280 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4285c4289 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4293c4297 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4302c4306 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4310c4314 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4319c4323 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4327c4331 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4336c4340 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4345c4349 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4355c4359 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4363c4367 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4372c4376 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4381,4382c4385 < PARAMETER (IM = 300000 ) < PARAMETER (JM = 2) --- > PARAMETER (IM = _MAXLEV_ ) 4391c4394 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4399c4402 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4408c4411 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4418c4421 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4429c4432 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4439c4442 < PARAMETER (IM = 300000 ) --- > PARAMETER (IM = _MAXLEV_ ) 4474c4477 < COMMON /OBS/ NREP,NLEV,SID( 200000 ),INOB( 200000 ),IMAP(360,181) --- > COMMON /OBS/ NREP,NLEV,SID( _MAXREP_ ),INOB( _MAXREP_ ),IMAP(360,181) 4498,4499c4501,4502 < DATA MAXREP / 200000 / < DATA MAXLEV / 300000 / --- > DATA MAXREP / _MAXREP_ / > DATA MAXLEV / _MAXLEV_ / 4799c4802 < PARAMETER (MAXM=4000,MAXS=500) --- > PARAMETER (MAXM= _MAXM_ , MAXS=500) 4801c4804 < COMMON /OBS/ NREP,NLEV,SID( 200000 ),INOB( 200000 ),IMAP(360,181) --- > COMMON /OBS/ NREP,NLEV,SID( _MAXREP_ ),INOB( _MAXREP_ ),IMAP(360,181)