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.
18 lines
374 B
Fortran
18 lines
374 B
Fortran
5 years ago
|
MODULE BLKMAP
|
||
|
|
||
|
! PARAMETER (MAXPL=500000,MAXELMP=50000)
|
||
|
|
||
|
REAL*8 XCEN,YCEN,RADS,MAP,XMAP,YMAP,CMAP
|
||
|
|
||
|
ALLOCATABLE NOPEL(:,:),XCEN(:),YCEN(:)&
|
||
|
,RADS(:) ,NKEY(:),CMAP(:,:)&
|
||
|
,XMAP(:),YMAP(:),VAL(:),CCMAP(:)
|
||
|
|
||
|
INTEGER IEDGE(15000,2),IGAP(15000),NELFM(15000)
|
||
|
|
||
|
INTEGER NELTS,MAXPL,MAXELMP
|
||
|
|
||
|
ALLOCATABLE imap(:),NCRS(:)
|
||
|
|
||
|
END MODULE
|