File: mindeg.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 (21 lines) | stat: -rw-r--r-- 519 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
 
      FUNCTION MINDEG (NC,IC,IDEG)
C
C     THIS ROUTINE IS USED ONLY IN BANDIT MODULE
C
C     THIS FUNCTION HAS AS ITS VALUE THE MINIMUM DEGREE OF ANY NODE OF
C     COMPONENT NC IF NC.GT.0
C     IF NC.LE.0, ALL COMPONENTS ARE CONSIDERED.
C
      DIMENSION       IC(1),    IDEG(1)
      COMMON /BANDS / NN
C
      M=600000
      DO 100 I=1,NN
      IF (NC) 40,50,40
   40 IF (IC(I) -NC) 100,50,100
   50 IF (M-IDEG(I)) 100,100,60
   60 M=IDEG(I)
  100 CONTINUE
      MINDEG=M
      RETURN
      END