File: dsprcl.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 (14 lines) | stat: -rw-r--r-- 479 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
        SUBROUTINE DSPRCL ( BLOCK )
      INCLUDE 'DSIOF.COM'
      INCLUDE 'XNSTRN.COM'
        INTEGER BLOCK( 15 )
        INTEGER IDIV( 4 )
        DATA    IDIV / 1, 2, 1, 2 /
        BLOCK(  2 ) = IAND( IBASE( INDCBP ), MASKQ4 )
        BLOCK(  3 ) = IAND( IBASE( INDCBP ), MASKQ3 )
        BLOCK(  3 ) = BLOCK( 3 ) / MULQ3
        BLOCK( 11 ) = NWRDEL( BLOCK( 2 ) )
        BLOCK( 12 ) = IBASE( INDCBP+1 )
        BLOCK( 14 ) = IDIV( BLOCK( 2 ) )
        RETURN
        END