You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
366 B
Plaintext
15 lines
366 B
Plaintext
5 years ago
|
|
||
|
PARAMETER (MAXPL=500000,MAXELMP=50000)
|
||
|
|
||
|
REAL*8 XCEN,YCEN,RADS,MAP,XMAP,YMAP,CMAP
|
||
|
|
||
|
COMMON /MAPBLK/ NOPEL(MAXELMP,3),XCEN(MAXELMP),YCEN(MAXELMP)&
|
||
|
,RADS(MAXELMP) ,NKEY(MAXELMP),IEDGE(500,2),IGAP(500),CMAP(MAXPL,2)&
|
||
|
,XMAP(MAXPL),YMAP(MAXPL),VAL(MAXPL),NELFM(500)
|
||
|
|
||
|
|
||
|
COMMON /MAPINFO/ NELTS
|
||
|
|
||
|
common /mapc/imap(maxpl),NCRS(MAXPL)
|
||
|
|