11 lines
416 B
C
11 lines
416 B
C
!------------------CommonBlock-----------------------------
|
|
integer maxmy,maxnx,maxnparams
|
|
parameter(maxmy=10,maxnx=10,maxnparams=30)
|
|
integer my,iknowder,nparams
|
|
double precision targetx(maxnx),targety(maxmy),
|
|
& params(maxnparams)
|
|
common /distcom/targetx,targety,params,
|
|
& my,iknowder,nparams
|
|
save /distcom/
|
|
!----------------------------------------------------------
|