Index: tce/ccsdtq_lambda/ccsdtq_density1.F =================================================================== --- tce/ccsdtq_lambda/ccsdtq_density1.F (revision 26276) +++ tce/ccsdtq_lambda/ccsdtq_density1.F (revision 26280) @@ -515,7 +515,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO p1b = noab+1,noab+nvab DO h4b = 1,noab IF (next.eq.count) THEN Index: tce/ccsdt_lambda/ccsdt_lambda3.F =================================================================== --- tce/ccsdt_lambda/ccsdt_lambda3.F (revision 26276) +++ tce/ccsdt_lambda/ccsdt_lambda3.F (revision 26280) @@ -766,7 +766,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO p1b = noab+1,noab+nvab IF (next.eq.count) THEN @@ -805,7 +805,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -922,7 +922,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO p1b = noab+1,noab+nvab IF (next.eq.count) THEN @@ -1021,7 +1021,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -1088,7 +1088,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = 1,noab DO h6b = h5b,noab @@ -1253,7 +1253,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -1306,7 +1306,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO p1b = noab+1,noab+nvab @@ -1356,7 +1356,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -1490,7 +1490,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO p1b = noab+1,noab+nvab @@ -1579,7 +1579,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -1648,7 +1648,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = 1,noab @@ -1815,7 +1815,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -1886,7 +1886,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = 1,noab @@ -2013,7 +2013,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -2062,7 +2062,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h11b = 1,noab IF (next.eq.count) THEN @@ -2101,7 +2101,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -2215,7 +2215,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h11b = 1,noab IF (next.eq.count) THEN @@ -2284,7 +2284,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -2329,7 +2329,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO p7b = noab+1,noab+nvab IF (next.eq.count) THEN @@ -2368,7 +2368,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -2485,7 +2485,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO p7b = noab+1,noab+nvab IF (next.eq.count) THEN @@ -2584,7 +2584,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -2646,7 +2646,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h11b = 1,noab IF (next.eq.count) THEN @@ -2729,7 +2729,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -2798,7 +2798,7 @@ EXTERNAL FACTORIAL nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h11b = 1,noab IF (next.eq.count) THEN @@ -2905,7 +2905,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -2972,7 +2972,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -3099,7 +3099,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -3148,7 +3148,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO p12b = noab+1,noab+nvab DO p1b = noab+1,noab+nvab IF (next.eq.count) THEN @@ -3187,7 +3187,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -3305,7 +3305,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO p12b = noab+1,noab+nvab DO p1b = noab+1,noab+nvab IF (next.eq.count) THEN @@ -3388,7 +3388,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -3457,7 +3457,7 @@ EXTERNAL FACTORIAL nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO p12b = noab+1,noab+nvab DO p1b = noab+1,noab+nvab IF (next.eq.count) THEN @@ -3564,7 +3564,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -3623,7 +3623,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO p12b = noab+1,noab+nvab DO p1b = noab+1,noab+nvab IF (next.eq.count) THEN @@ -3692,7 +3692,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -3754,7 +3754,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h8b = 1,noab DO p1b = noab+1,noab+nvab IF (next.eq.count) THEN @@ -3853,7 +3853,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -3982,7 +3982,7 @@ EXTERNAL FACTORIAL nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = 1,noab DO h6b = h5b,noab @@ -4124,7 +4124,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -4177,7 +4177,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h11b = 1,noab @@ -4224,7 +4224,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -4358,7 +4358,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h11b = 1,noab @@ -4447,7 +4447,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -4498,7 +4498,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h12b = 1,noab @@ -4546,7 +4546,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -4680,7 +4680,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h12b = 1,noab @@ -4769,7 +4769,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -4841,7 +4841,7 @@ EXTERNAL FACTORIAL nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h11b = 1,noab @@ -4931,7 +4931,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -5003,7 +5003,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = 1,noab @@ -5242,7 +5242,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -5295,7 +5295,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO p9b = noab+1,noab+nvab DO p1b = noab+1,noab+nvab @@ -5345,7 +5345,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -5479,7 +5479,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO p9b = noab+1,noab+nvab DO p1b = noab+1,noab+nvab @@ -5568,7 +5568,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -5636,7 +5636,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO p9b = noab+1,noab+nvab DO p1b = noab+1,noab+nvab @@ -5771,7 +5771,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -5836,7 +5836,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO p9b = noab+1,noab+nvab DO p1b = noab+1,noab+nvab @@ -5915,7 +5915,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -5980,7 +5980,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h10b = 1,noab DO p1b = noab+1,noab+nvab @@ -6085,7 +6085,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -6232,7 +6232,7 @@ EXTERNAL FACTORIAL nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -6371,7 +6371,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -6442,7 +6442,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = 1,noab @@ -6609,7 +6609,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -6676,7 +6676,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO p1b = noab+1,noab+nvab @@ -6765,7 +6765,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -6911,7 +6911,7 @@ EXTERNAL FACTORIAL nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO p1b = noab+1,noab+nvab @@ -7084,7 +7084,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -7153,7 +7153,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -7260,7 +7260,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -7331,7 +7331,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -7434,7 +7434,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -7595,7 +7595,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = 1,noab @@ -7765,7 +7765,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -7836,7 +7836,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h9b = 1,noab @@ -7988,7 +7988,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -8149,7 +8149,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -8260,7 +8260,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -8331,7 +8331,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -8458,7 +8458,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -8616,7 +8616,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = 1,noab DO h6b = h5b,noab @@ -8792,7 +8792,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -8869,7 +8869,7 @@ EXTERNAL FACTORIAL nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO p8b = noab+1,noab+nvab DO p1b = noab+1,noab+nvab @@ -9054,7 +9054,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -9201,7 +9201,7 @@ EXTERNAL FACTORIAL nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -9323,7 +9323,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -9401,7 +9401,7 @@ EXTERNAL FACTORIAL nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -9517,7 +9517,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -9675,7 +9675,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -9773,7 +9773,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -9844,7 +9844,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -9971,7 +9971,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO Index: tce/eomccsdt/eomccsdt_y3.F =================================================================== --- tce/eomccsdt/eomccsdt_y3.F (revision 26276) +++ tce/eomccsdt/eomccsdt_y3.F (revision 26280) @@ -6424,7 +6424,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = 1,noab @@ -6591,7 +6591,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -6600,7 +6600,7 @@ END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -6658,7 +6658,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO p1b = noab+1,noab+nvab @@ -6747,14 +6747,14 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -6893,7 +6893,7 @@ EXTERNAL FACTORIAL nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO p1b = noab+1,noab+nvab @@ -7066,14 +7066,14 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -7135,7 +7135,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -7242,7 +7242,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -7251,7 +7251,7 @@ END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -7313,7 +7313,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -7416,7 +7416,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -7425,7 +7425,7 @@ END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -7577,7 +7577,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = 1,noab @@ -7747,7 +7747,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -7756,7 +7756,7 @@ END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -7818,7 +7818,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h9b = 1,noab @@ -7970,7 +7970,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -7979,7 +7979,7 @@ END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -8131,7 +8131,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -8242,7 +8242,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -8251,7 +8251,7 @@ END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -8313,7 +8313,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -8440,7 +8440,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -8449,7 +8449,7 @@ END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -8598,7 +8598,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = 1,noab DO h6b = h5b,noab @@ -8774,7 +8774,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -8783,7 +8783,7 @@ END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -8851,7 +8851,7 @@ EXTERNAL FACTORIAL nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO p8b = noab+1,noab+nvab DO p1b = noab+1,noab+nvab @@ -9036,14 +9036,14 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -9183,7 +9183,7 @@ EXTERNAL FACTORIAL nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -9305,7 +9305,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -9314,7 +9314,7 @@ END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -9383,7 +9383,7 @@ EXTERNAL FACTORIAL nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -9499,7 +9499,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -9508,7 +9508,7 @@ END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -9657,7 +9657,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -9755,7 +9755,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -9764,7 +9764,7 @@ END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END @@ -9826,7 +9826,7 @@ EXTERNAL NXTASK nprocs = GA_NNODES() count = 0 - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) DO h4b = 1,noab DO h5b = h4b,noab DO h6b = h5b,noab @@ -9953,7 +9953,7 @@ END IF END IF END IF - next = NXTASK(nprocs) + next = NXTASK(nprocs,1) END IF count = count + 1 END DO @@ -9962,7 +9962,7 @@ END DO END DO END DO - next = NXTASK(-nprocs) + next = NXTASK(-nprocs,1) call GA_SYNC() RETURN END