+      SUBROUTINE TRANS2 (A,B,M,N,IVAR,NVAR)MC_TITLE TRANS2 Select and transpose variables into I*2, type -1 sector image.C_ARGUMENTS=      INTEGER*2 A(M,N)     ![I] Input array to be transposed.F      INTEGER*2 B(N,NVAR)  ![O] Array containing transposed variables.B      INTEGER*2 IVAR	   ![I] Array containing principal variables.LC_DESCRIPTION The subroutine TRANS2.FOR shall select and transpose variablesLC into an array for a type -1 sector image.  The user should not transfer anC item with a 0 or negative ID. NC This module is invoked by DBLOAD when transferring a file from tape to disk.C_HISTORY Bob Mehlman  UCLAC_END      DO 10 J=1,NVAR        K=IVAR(J)        IF(K.LE.0) GO TO 10          DO 5 I=1,N  5       B(I,J)=A(K,I) 10   CONTINUE       RETURN	      END