File: algpb.f

package info (click to toggle)
nastran 0.1.95-2
  • links: PTS, VCS
  • area: non-free
  • in suites: bookworm, bullseye, sid
  • size: 122,540 kB
  • sloc: fortran: 284,409; sh: 771; makefile: 324
file content (18 lines) | stat: -rw-r--r-- 540 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
      SUBROUTINE ALGPB (IDAT,NTYPE)
C
      INTEGER NA(4)
      DATA    NA / 2 ,     2  ,   3 ,    1 /
C                ZERO, INTEGER, REAL, ALPHA
C
C     RETURN FROM NUMTYP IS            SET NTYPE TO
C       0 -  ZERO                        1 - ALPHA
C       1 -  INTEGER                     2 - INTEGER
C       2 -  REAL                        3 - REAL
C       3 -  BCD
C
C     BLANK IS ALPHA,  ZERO IS INTEGER UNLESS NUMTYP SET IT TO REAL
C
      ITYPE = NUMTYP(IDAT) + 1
      NTYPE = NA(ITYPE)
      RETURN
      END