1*-----------------------------------------------------------------------
2*     LINE TYPE ATTRIBUTE
3*-----------------------------------------------------------------------
4*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
5*-----------------------------------------------------------------------
6      SUBROUTINE SZSTYP(ITYPE)
7
8      PARAMETER (MAXTYP=4)
9
10      INTEGER   IPAT(MAXTYP)
11      LOGICAL   LFRST
12      CHARACTER CPAT(MAXTYP)*32
13
14      SAVE
15
16      DATA      CPAT(1)/'11111111111111111111111111111111'/
17      DATA      CPAT(2)/'11111111111100001111111111110000'/
18      DATA      CPAT(3)/'11001100110011001100110011001100'/
19      DATA      CPAT(4)/'11111111100010001111111110001000'/
20
21      DATA      IDASHZ/0/,LFRST/.TRUE./
22
23
24      IF (LFRST) THEN
25        DO 10 N=1,MAXTYP
26          CALL BITPCI(CPAT(N),IPAT(N))
27   10   CONTINUE
28        LFRST=.FALSE.
29      END IF
30
31      ITYPEZ=ITYPE
32      IF (1.LE.ITYPEZ .AND. ITYPEZ.LE.MAXTYP) THEN
33        IDASHZ=IPAT(ITYPEZ)
34      ELSE
35        IDASHZ=ITYPEZ
36      END IF
37
38      CALL SZSTYZ(IDASHZ)
39
40      RETURN
41*-----------------------------------------------------------------------
42      ENTRY SZQTYP(ITYPE)
43
44      ITYPE=ITYPEZ
45
46      RETURN
47      END
48