1 C
2       INTEGER NVSET,NV2LOC,NO2LOC,NOCLAB,NVILAB
3       PARAMETER (NOV = 20, NOC = 20)
4       PARAMETER ( NLABOC = 20, NLABVI = 20)
5       CHARACTER TABOCL(NLABOC)*8,TABVIL(NLABVI)*8
6       LOGICAL ABALOC, FOSOCC, FBOVIR, FBSETV, FBSTVO, MULLOC
7       LOGICAL FBOCIN, LABOCC, LABVIR, FBOOCC
8 C
9       COMMON /LOCINF/ ABALOC, FOSOCC, FBOVIR, FBSETV, FBSTVO, MULLOC,
10      &                FBOCIN, LABOCC, LABVIR, FBOOCC,  NVSET,
11      &                NTVI2L(NOV), NV2LOC, NO2LOC, NVILAB, NOCLAB,
12      &                NTOC2L(NOC),TABOCL,TABVIL
13 C
14