C+ C NAME: C CvI4 C PURPOSE: C Convert integer*4 numbers between VMS, DOS & UNIX C CALLING SEQUENCE: subroutine CvI4(cOp,N,XX) C INPUTS: C cOp character*3 operating system where the numbers originated C N integer # elements in XX C XX(N) integer*4 array C OUTPUTS: C XX(N) integer*4 converted array C RESTRICTIONS: C cOp should correspond to an entry in the include file 'dirspec.h'. C INCLUDE: include 'dirspec.h' C CALLS: C CvSwap C PROCEDURE: C Byte swapping C- character cOp*3 integer N integer XX(*) parameter (nb = 4) !------- ! Convert from Unix to Linux/DOS/VMS or back by flipping the order of the bytes if ( (cOp .eq. OS__UNIX .and. cOpSys .ne. OS__UNIX) .or. & (cOp .ne. OS__UNIX .and. cOpSys .eq. OS__UNIX) ) call CvSwap(1,nb,N,XX) return end