c    -- this routine is machine and compiler dependend.  The appropriate
c    -- command should be selected by the 'conf.csh' script.
c    -- K.S. 21-Aug-98
       SUBROUTINE INTAND(I1,I2,I3) 
       INTEGER *4 I1,I2,I3
c       I3 = AND(I1,I2)   ! Sun
        I3 = AND(I1,I2)   ! Linux (here same as sun)
c      I3 = JIAND(I1,I2)    ! HP, VAX
c      I3 = IAND(I1,I2)     ! PC ?
       RETURN
       END