C------------------------------------------------------------------------
c        integer function cray2ieg(i1,i2,i3,i4,i5,i6,s1)
c        integer i1,i2,i3,i4,i5,i6
c        character s1
C       dummy routine; only used on Cray supercomputers
c        cray2ieg=0
c        end
C------------------------------------------------------------------------
        integer function ieg2cray(i1,i2,i3,i4,i5,i6,s1)
        integer i1,i2,i3,i4,i5,i6
        character s1
C       dummy routine; only used on Cray supercomputers
        ieg2cray=0
        end