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.
65 lines
2.9 KiB
Plaintext
65 lines
2.9 KiB
Plaintext
!IPK LAST UPDATED JULY 17 1998
|
|
!ipk last update Dec 10 1997
|
|
!IPK LAST UPDATED OCT 18 1996
|
|
!
|
|
SAVE
|
|
!
|
|
! This version is compiled for: LARGE
|
|
! MAXE = maximum number of elements = 200000
|
|
! MAXP = maximum number of nodes =400000
|
|
! MAXPL = maximum number of map data points =1800000
|
|
! MAXLIN = maximum number of map lines = 3000
|
|
! MAXLN = maximum number of reordering lines = 20
|
|
! MAELN = maximum number of elements in a reodering list = 300
|
|
! MAXPGEN= maximum number elements in a genreated block = 2000
|
|
! MAXGRD = maximum number of grid points = 3000
|
|
!
|
|
!
|
|
!
|
|
! PARAMETER (MAXE= 200000,MAXP=400000,MAXLIN=6000,MAXECON=60)
|
|
! PARAMETER (MAXLN=20,MAELN=300,MAXPGEN=2000,MAXGRD=3000,MAXSTO=2)
|
|
! PARAMETER (MAXE8=8*MAXE,MAXP2=2*MAXP)
|
|
|
|
! This version is compiled for: MEDIUM
|
|
! MAXE = maximum number of elements =130000
|
|
! MAXP = maximum number of nodes =200000
|
|
! MAXPL = maximum number of map data points =1500000
|
|
! MAXLIN = maximum number of map lines = 3000
|
|
! MAXLN = maximum number of reordering lines = 20
|
|
! MAELN = maximum number of elements in a reodering list = 300
|
|
! MAXPGEN= maximum number elements in a genreated block = 2000
|
|
! MAXGRD = maximum number of grid points = 1000
|
|
! MAXSTO = maximum storage locations = 2
|
|
!
|
|
!
|
|
PARAMETER (MAXPGEN=20000,MAXGRD=1000)
|
|
! PARAMETER (MAXE8=8*MAXE,MAXP2=2*MAXP)
|
|
! PARAMETER (MCRS=7000,MPTS=75)
|
|
|
|
! This version is compiled for: STANDARD
|
|
! MAXE = maximum number of elements = 40000
|
|
! MAXP = maximum number of nodes = 50000
|
|
! MAXPL = maximum number of map data points = 200000
|
|
! MAXLIN = maximum number of map lines = 3000
|
|
! MAXLN = maximum number of reordering lines = 20
|
|
! MAELN = maximum number of elements in a reodering list = 300
|
|
! MAXPGEN= maximum number elements in a genreated block = 2000
|
|
! MAXGRD = maximum number of grid points = 300
|
|
! MAXSTO = maximum storage locations = 2
|
|
!
|
|
!
|
|
! PARAMETER (MAXE= 40000,MAXP=50000,MAXLIN=6000,MAXECON=60)
|
|
! PARAMETER (MAXLN=20,MAELN=300,MAXPGEN=2000,MAXGRD=3000,MAXSTO=2)
|
|
! PARAMETER (MCRS=600,MPTS=50)
|
|
! PARAMETER (MAXE8=8*MAXE,MAXP2=2*MAXP)
|
|
|
|
!
|
|
! CORD is the screen scale variable
|
|
! XUSR is the map scale variable
|
|
! To get to CORD from XUSR use
|
|
! CORD(N,1)=(XUSR(N)+XS)/TXSCAL
|
|
! To get to XUSR from CORD use
|
|
! XUSR(N2) = CORD(N2,1)*TXSCAL - XS
|
|
! XS,YS and TXSCAL are kept in TXFRM.COM
|
|
! REAL*8 XS,YS,TXSCAL
|
|
! COMMON /TXFRM/ XS, YS, TXSCAL |