MODULE Parity_Module
         IMPLICIT NONE
         SAVE
         INTEGER parity   !(3)  !
END MODULE Parity_Module