File: ifp4e.f

package info (click to toggle)
nastran 0.1.95-2
  • links: PTS, VCS
  • area: non-free
  • in suites: bookworm, bullseye
  • size: 122,540 kB
  • sloc: fortran: 284,409; sh: 771; makefile: 324
file content (22 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
 
      SUBROUTINE IFP4E (ID)
C
C     IFP4E, CALLED BY IFP4, CHECKS TO SEE THAT ID IS WITHIN PERMISSABLE
C     RANGE OF FROM 1 TO 499999.
C
      LOGICAL         NOGO
      INTEGER         OUTPUT
      CHARACTER       UFM*23
      COMMON /XMSSG / UFM
      COMMON /SYSTEM/ SYSBUF,OUTPUT
C
      IF (ID .LT. 1) GO TO 100
      IF (ID .LE. 499999) RETURN
C
C     ERROR
C
  100 NOGO = .TRUE.
      WRITE  (OUTPUT,110) UFM,ID
  110 FORMAT (A23,' 4041, ID =',I12,' IS OUT OF PERMISSIBLE RANGE OF 1',
     1       ' TO 499999.')
      RETURN
      END