program ckand
       INTEGER *4 I1,I2,I3
       write(*,*)'   1010 1010 1010,  2730'
       write(*,*)'        AND'
       write(*,*)'   1011 1101 0001,  3025'
       write(*,*)'         ='
       write(*,*)'   1010 1000 0000,  2688'
       i1=2730
       i2=3025
c      I3 = AND(I1,I2)   ! Linux g77 & SUN
c      write(*,*)' and ',i3
c      I3 = JIAND(I1,I2)    ! HP, VAX
c      write(*,*)i3
       I3 = IAND(I1,I2)     ! PC & Linux g77
       write(*,*)' iand ',i3
       stop 
       END