You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
42 lines
959 B
42 lines
959 B
C Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
|
C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
|
C NTESS, the U.S. Government retains certain rights in this software.
|
|
C
|
|
C See packages/seacas/LICENSE for details
|
|
SUBROUTINE SHFTI(IARAY,N,M,ISTRT,IEND,INT)
|
|
|
|
C THIS SUBROUTINE SHIFTS THE ROWS IN AN INTEGER ARRAY. IF INT>0 THEN
|
|
C ALL ROWS ISTRT TO IEND ARE SHIFTED UP "INT" ROWS. IF INT<0 THE ALL
|
|
C ROWS ISTRT TO IEND ARE SHIFTED DOWN "INT" ROWS.
|
|
|
|
DIMENSION IARAY(N,M)
|
|
|
|
C CALCULATE RANGE AND INCREMENT OF DO LOOP
|
|
|
|
IF(INT.LT.0)THEN
|
|
|
|
C SHIFT DOWN
|
|
|
|
I1=IEND
|
|
I2=ISTRT
|
|
ID=-1
|
|
ELSE IF(INT.GT.0)THEN
|
|
|
|
C SHIFT UP
|
|
|
|
I1=ISTRT
|
|
I2=IEND
|
|
ID=1
|
|
ELSE
|
|
RETURN
|
|
END IF
|
|
|
|
C PERFORM SHIFT
|
|
|
|
DO J=1,M
|
|
DO I=I1,I2,ID
|
|
IARAY(I-INT,J)=IARAY(I,J)
|
|
end do
|
|
end do
|
|
RETURN
|
|
END
|
|
|