CKSUM     CKSUM     CKSUM     CKSUM     CKSUM     CKSUM     CKSUM     
          **********************************************
                    **************************
                              ******

REAL FUNCTION CKSUM (ARRAY, NN)
Return the sum of entries in a real array.