File: itcode.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 (23 lines) | stat: -rw-r--r-- 566 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
      FUNCTION ITCODE (ITEMX)
C
C     THE FUNCTION RETURNS AN INTEGER CODE NUMBER FOR ITEM.  THE CODE
C     NUMBER IS USED IN UPDATING THE MDI.  IF AN INCORRECT ITEM NAME IS
C     USED, THE VALUE RETURNED WILL BE -1.
C
      COMMON /ITEMDT/ NITEM,ITEM(7,1)
      COMMON /SYS   / SYS(5),IFRST
C
      DO 10 I = 1,NITEM
      IF (ITEMX .EQ. ITEM(1,I)) GO TO 20
   10 CONTINUE
C
C     INVALID ITEM - RETURN -1
C
      ITCODE = -1
      RETURN
C
C     ITEM FOUND - RETURN MDI POSITION POINTER
C
   20 ITCODE = I + IFRST - 1
      RETURN
      END