-
Notifications
You must be signed in to change notification settings - Fork 0
/
BLKDATA.h
19 lines (19 loc) · 1.06 KB
/
BLKDATA.h
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
c=======================================================================
c** Type statements & common block for data
REAL*8 FREQ(NDATAMX),UFREQ(NDATAMX),DFREQ(NDATAMX),TEMP(NDATAMX),
1 YUNC(NDATAMX),Fqb
INTEGER COUNTOT,NFS1,NFSTOT,NBANDTOT,IB(NDATAMX),JP(NDATAMX),
1 JPP(NDATAMX),VP(NPARMX),VPP(NPARMX),EFP(NDATAMX),EFPP(NDATAMX),
2 TVUP(NDATAMX),TVLW(NDATAMX),FSBAND(NPARMX),IFXFS(NPARMX),
3 NFS(NPARMX),IEP(NPARMX),IEPP(NPARMX),ISTP(NPARMX),
4 IFIRST(NPARMX),ILAST(NPARMX),NTV(NSTATEMX,NISTPMX),FSsame,
5 NTRANS(NPARMX),IBB(NISTPMX,NSTATEMX,9,NPARMX),JMIN(NPARMX),
6 JMAX(NPARMX)
CHARACTER*2 NAME(2)
CHARACTER*3 SLABL(-6:NSTATEMX)
CHARACTER*30 BANDNAME(NPARMX)
COMMON /DATABLK/Fqb,FREQ,UFREQ,YUNC,DFREQ,TEMP,COUNTOT,NFS1,
1 NFSTOT,NBANDTOT,IB,JP,JPP,VP,VPP,EFP,EFPP,TVUP,TVLW,FSBAND,IFXFS,
2 NFS,IEP,IEPP,ISTP,IFIRST,ILAST,NTV,FSsame,
3 NTRANS,IBB,JMIN,JMAX,NAME,SLABL,BANDNAME
c=======================================================================