*IDENT QTPOSFIX
*/
*/ This modset was needed for quite a while to make qtpos1a bit compare
*/ properly (under my setup: fujitsu. Whether it is needed for other 
*/ setups I don't know). The problem was that GC_ISUM didn't work properly.
*/
*/ It now (2003/03) looks like the problem may well be with something
*/ ?gcom? assuming that MPI_INTEGER was always 32 bit. Or somesuch (Paul
*/ Burton found this). This applies to the gcom that came with vn4.5, and to
*/ vn2.8.
*/
*/ There is a new version of gcom (vn2.9b5) that appears to fix the problem.
*/
*/ It is not clear whether this problem applies at 32 bit or not.
*/
*DECLARE QTPOS1A
*D APB6F401.84
C WMC. Make sure this *is* a real.
      REAL
     &  real_FAILURE(Q_LEVELS)    ! version of LOGICAL FAILURE array,    
*D APB6F401.249,APB6F401.251
C WMC
            real_FAILURE(K)=1.0
          ELSE
            real_FAILURE(K)=0.0
*D APB6F401.255
           real_FAILURE(K)=0.0
*D APB6F401.272
      CALL GC_RSUM(Q_LEVELS,N_PROCS,info,real_FAILURE)                        
*D APB6F401.276
C WMC
C        IF (int_FAILURE(K) .EQ. 0) THEN                                 
        IF (real_FAILURE(K) .lt. 0.1) THEN