* installing *source* package ‘PropClust’ ...
** package ‘PropClust’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘gcc-13 (GCC) 13.2.0’
using Fortran compiler: ‘GNU Fortran (GCC) 13.2.0’
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-devel/PropClust/src'
gfortran-13 -fpic -g -O2 -mtune=native -Wall -pedantic -c PropClustParallelTrials.f90 -o PropClustParallelTrials.o
PropClustParallelTrials.f90:3711:29:
3711 | ADJ(J,I)=LOG_POISSON_TAIL(MEAN,NINT(ADJ(I,J)))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:3718:21:
3718 | ADJ(I,J)=MEAN
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:3844:29:
3844 | ADJ(J,I)=LOG_POISSON_TAIL(MEAN,NINT(ADJ(I,J)))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:3851:21:
3851 | ADJ(I,J)=MEAN
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:3941:29:
3941 | ADJ(J,I)=LOG_POISSON_TAIL(MEAN,NINT(ADJ(I,J)))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:3948:21:
3948 | ADJ(I,J)=MEAN
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:4033:29:
4033 | ADJ(J,I)=LOG_POISSON_TAIL(MEAN,NINT(ADJ(I,J)))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:4040:21:
4040 | ADJ(I,J)=MEAN
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:4197:29:
4197 | ADJ(J,I)=LOG_POISSON_TAIL(MEAN,NINT(ADJ(I,J)))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:4204:21:
4204 | ADJ(I,J)=MEAN
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:4377:29:
4377 | ADJ(J,I)=LOG_POISSON_TAIL(MEAN,NINT(ADJ(I,J)))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:4384:21:
4384 | ADJ(I,J)=MEAN
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:5853:29:
5853 | ADJ(J,I)=LOG_POISSON_TAIL(MEAN,NINT(ADJ(I,J)))
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:5860:21:
5860 | ADJ(I,J)=MEAN
| 1
Warning: Possible change of value in conversion from REAL(8) to REAL(4) at (1) [-Wconversion]
PropClustParallelTrials.f90:257:13:
257 | LIST,OUTPUT_UNIT)
| 1
Warning: Unused dummy argument 'list' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:257:25:
257 | LIST,OUTPUT_UNIT)
| 1
Warning: Unused dummy argument 'output_unit' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:155:18:
155 | INTEGER :: I,X
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:109:66:
109 | FUNCTION CALC_LOGLIK(ADJ,TESTMODULE,PHAT,AHAT,NODES,CLUSTERS)
| 1
Warning: Unused dummy argument 'clusters' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:2995:24:
2995 | INTEGER :: NODES,I,J,NODES2,TEMP,TEMP2
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2941:18:
2941 | INTEGER :: I,J,WORDS,WORDSMOD,TEMP
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2937:46:
2937 | SUBROUTINE FILTER_DATA(WORDPAIR_COUNT,LIST,WORDS,WORDSMOD,ORDER_LIST)
| 1
Warning: Unused dummy argument 'list' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:2945:23:
2945 | LOGICAL :: NOT_DONE
| 1
Warning: Unused variable 'not_done' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2937:61:
2937 | SUBROUTINE FILTER_DATA(WORDPAIR_COUNT,LIST,WORDS,WORDSMOD,ORDER_LIST)
| 1
Warning: Unused dummy argument 'wordsmod' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:2897:18:
2897 | INTEGER :: I,J,NODES
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2853:20:
2853 | INTEGER :: I,J,K,NODES,CLUSTERS
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2855:28:
2855 | DOUBLE PRECISION :: TEMP
| 1
Warning: Unused variable 'temp' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2734:20:
2734 | INTEGER :: I,J,K,ORIGINAL_ASSIGNMENT,NODES,CLUSTERS,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2728:93:
2728 | PSUM,ASUM,L2NORM,LOGLIK,L2,QNEWT,QSEC,UPHILL,MAP_LENGTH)
| 1
Warning: Unused dummy argument 'map_length' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:2728:42:
2728 | PSUM,ASUM,L2NORM,LOGLIK,L2,QNEWT,QSEC,UPHILL,MAP_LENGTH)
| 1
Warning: Unused dummy argument 'psum' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:2728:70:
2728 | PSUM,ASUM,L2NORM,LOGLIK,L2,QNEWT,QSEC,UPHILL,MAP_LENGTH)
| 1
Warning: Unused dummy argument 'qnewt' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:2728:75:
2728 | PSUM,ASUM,L2NORM,LOGLIK,L2,QNEWT,QSEC,UPHILL,MAP_LENGTH)
| 1
Warning: Unused dummy argument 'qsec' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:2741:73:
2741 | DOUBLE PRECISION :: LOGLIK,TRIAL_LOGLIK,L2NORM,TRIAL_L2NORM,TEST_CRIT
| 1
Warning: Unused variable 'test_crit' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2728:82:
2728 | PSUM,ASUM,L2NORM,LOGLIK,L2,QNEWT,QSEC,UPHILL,MAP_LENGTH)
| 1
Warning: Unused dummy argument 'uphill' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:2618:22:
2618 | INTEGER :: I,J,K,ORIGINAL_ASSIGNMENT,NODES,CLUSTERS,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2075:18:
2075 | INTEGER :: I,J,ITERATION,ERRORFLAG
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2085:39:
2085 | INTEGER, DIMENSION(2) :: SHAPE_TEST
| 1
Warning: Unused variable 'shape_test' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2082:59:
2082 | LOGICAL :: NOT_CONVERGED2,L2BOOL,INCREASE_FLAG,TESTFLAG,UPHILL
| 1
Warning: Unused variable 'testflag' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2064:74:
2064 | L2BOOL,PSUM,ASUM,NEW_L2,NEW_LOGLIK,QSEC,UPHILL,VEC_LENGTH)
| 1
Warning: Unused dummy argument 'uphill' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:1913:55:
1913 | INTEGER :: I,J,ITERATION,ERRORFLAG,ITS_BEFORE_CHECK
| 1
Warning: Unused variable 'its_before_check' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1913:18:
1913 | INTEGER :: I,J,ITERATION,ERRORFLAG,ITS_BEFORE_CHECK
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1923:39:
1923 | INTEGER, DIMENSION(2) :: SHAPE_TEST
| 1
Warning: Unused variable 'shape_test' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1920:59:
1920 | LOGICAL :: NOT_CONVERGED2,L2BOOL,INCREASE_FLAG,TESTFLAG,UPHILL
| 1
Warning: Unused variable 'testflag' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1902:69:
1902 | NEW_L2,NEW_LOGLIK,QSEC,UPHILL,VEC_LENGTH)
| 1
Warning: Unused dummy argument 'uphill' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:1835:45:
1835 | INTEGER :: ITERATION,NODES,CLUSTERS,I,J,K
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1829:59:
1829 | SUBROUTINE CHECK_CONVERGENCE2(AHAT,AOLD,PHAT,POLD,NODES,CLUSTERS,ITERATION,NOTCONVERGED_BOOL)
| 1
Warning: Unused dummy argument 'nodes' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:1572:25:
1572 | INTEGER :: I, J, K, L
| 1
Warning: Unused variable 'l' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1440:16:
1440 | INTEGER :: I,J,K,ITERATION,NODES,CLUSTERS,INCREASE_WARNINGS
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1440:18:
1440 | INTEGER :: I,J,K,ITERATION,NODES,CLUSTERS,INCREASE_WARNINGS
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1440:20:
1440 | INTEGER :: I,J,K,ITERATION,NODES,CLUSTERS,INCREASE_WARNINGS
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1256:33:
1256 | PSUM,ASUM,NEW_L2,NEW_LOGLIK)
| 1
Warning: Unused dummy argument 'asum' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:1267:18:
1267 | INTEGER :: I,J,K,NODES,CLUSTERS
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1267:20:
1267 | INTEGER :: I,J,K,NODES,CLUSTERS
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1161:90:
1161 | SUBROUTINE UPDATE_PARAMETERS_ONCE(ADJ,TESTMODULE,PHAT,AHAT,NODES,CLUSTERS,L2,PSUM,ASUM,&
| 1
Warning: Unused dummy argument 'asum' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:1172:18:
1172 | INTEGER :: I,J,K,NODES,CLUSTERS
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1172:20:
1172 | INTEGER :: I,J,K,NODES,CLUSTERS
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1103:20:
1103 | INTEGER :: I,J,K,NODES,CLUSTERS,TESTI,TESTJ
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1059:49:
1059 | DOUBLE PRECISION, DIMENSION(CLUSTERS) :: ADEN,PCLUSTERSUM
| 1
Warning: Unused variable 'aden' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1051:33:
1051 | SUBROUTINE UPDATE_AHAT_MM(ADJ,TESTMODULE,PHAT,AHAT,NODES,CLUSTERS,L2,ASUM,PCLUSTERSUM)
| 1
Warning: Unused dummy argument 'adj' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:1054:20:
1054 | INTEGER :: I,J,K,NODES,CLUSTERS
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1051:49:
1051 | SUBROUTINE UPDATE_AHAT_MM(ADJ,TESTMODULE,PHAT,AHAT,NODES,CLUSTERS,L2,ASUM,PCLUSTERSUM)
| 1
Warning: Unused dummy argument 'phat' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:1056:28:
1056 | DOUBLE PRECISION :: TEMP
| 1
Warning: Unused variable 'temp' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1051:44:
1051 | SUBROUTINE UPDATE_AHAT_MM(ADJ,TESTMODULE,PHAT,AHAT,NODES,CLUSTERS,L2,ASUM,PCLUSTERSUM)
| 1
Warning: Unused dummy argument 'testmodule' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:1021:59:
1021 | DOUBLE PRECISION, DIMENSION(CLUSTERS,CLUSTERS) :: ASUM2
| 1
Warning: Unused variable 'asum2' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1016:18:
1016 | INTEGER :: I,J,CURRENT_CLUSTER,NEW_CLUSTER,NODE_POS,ICLUST,OUTPUT_UNIT2,K,KK,NODES,CLUSTERS
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1016:77:
1016 | INTEGER :: I,J,CURRENT_CLUSTER,NEW_CLUSTER,NODE_POS,ICLUST,OUTPUT_UNIT2,K,KK,NODES,CLUSTERS
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1016:80:
1016 | INTEGER :: I,J,CURRENT_CLUSTER,NEW_CLUSTER,NODE_POS,ICLUST,OUTPUT_UNIT2,K,KK,NODES,CLUSTERS
| 1
Warning: Unused variable 'kk' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1016:75:
1016 | INTEGER :: I,J,CURRENT_CLUSTER,NEW_CLUSTER,NODE_POS,ICLUST,OUTPUT_UNIT2,K,KK,NODES,CLUSTERS
| 1
Warning: Unused variable 'output_unit2' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:938:73:
938 | DOUBLE PRECISION ::L2NORM,FACTORIZABILITY,LOGLIK,SUM_SQUARES,CRITERIA
| 1
Warning: Unused variable 'criteria' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:938:45:
938 | DOUBLE PRECISION ::L2NORM,FACTORIZABILITY,LOGLIK,SUM_SQUARES,CRITERIA
| 1
Warning: Unused variable 'factorizability' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:929:71:
929 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I,INITBOOL,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'initbool' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:929:33:
929 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I,INITBOOL,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:929:35:
929 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I,INITBOOL,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:929:37:
929 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I,INITBOOL,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'l' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:929:62:
929 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I,INITBOOL,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'l2i' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:938:64:
938 | DOUBLE PRECISION ::L2NORM,FACTORIZABILITY,LOGLIK,SUM_SQUARES,CRITERIA
| 1
Warning: Unused variable 'sum_squares' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:864:58:
864 | DOUBLE PRECISION, DIMENSION(CLUSTERS) :: CLUSTER_SIZES,NEW_SIZES,TEMP_SIZES,CRITS
| 1
Warning: Unused variable 'cluster_sizes' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:863:67:
863 | DOUBLE PRECISION, DIMENSION(CLUSTERS) :: TEMP_SUMS,CLUSTER_SUMS,NEW_SUMS
| 1
Warning: Unused variable 'cluster_sums' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:864:85:
864 | DOUBLE PRECISION, DIMENSION(CLUSTERS) :: CLUSTER_SIZES,NEW_SIZES,TEMP_SIZES,CRITS
| 1
Warning: Unused variable 'crits' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:858:55:
858 | INTEGER :: CLUSTERS,TEMP2,NODES,I,J,K,L,M,ITERATION,OLD,ITERATIONS
| 1
Warning: Unused variable 'iteration' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:858:43:
858 | INTEGER :: CLUSTERS,TEMP2,NODES,I,J,K,L,M,ITERATION,OLD,ITERATIONS
| 1
Warning: Unused variable 'l' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:858:45:
858 | INTEGER :: CLUSTERS,TEMP2,NODES,I,J,K,L,M,ITERATION,OLD,ITERATIONS
| 1
Warning: Unused variable 'm' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:865:47:
865 | DOUBLE PRECISION :: TEMP_CRIT,CRIT,NEW_CRIT
| 1
Warning: Unused variable 'new_crit' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:864:68:
864 | DOUBLE PRECISION, DIMENSION(CLUSTERS) :: CLUSTER_SIZES,NEW_SIZES,TEMP_SIZES,CRITS
| 1
Warning: Unused variable 'new_sizes' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:863:76:
863 | DOUBLE PRECISION, DIMENSION(CLUSTERS) :: TEMP_SUMS,CLUSTER_SUMS,NEW_SUMS
| 1
Warning: Unused variable 'new_sums' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:858:59:
858 | INTEGER :: CLUSTERS,TEMP2,NODES,I,J,K,L,M,ITERATION,OLD,ITERATIONS
| 1
Warning: Unused variable 'old' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:859:48:
859 | INTEGER, DIMENSION(NODES) :: TESTMODULE,TEMP
| 1
Warning: Unused variable 'temp' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:864:79:
864 | DOUBLE PRECISION, DIMENSION(CLUSTERS) :: CLUSTER_SIZES,NEW_SIZES,TEMP_SIZES,CRITS
| 1
Warning: Unused variable 'temp_sizes' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:863:54:
863 | DOUBLE PRECISION, DIMENSION(CLUSTERS) :: TEMP_SUMS,CLUSTER_SUMS,NEW_SUMS
| 1
Warning: Unused variable 'temp_sums' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:761:45:
761 | INTEGER :: CLUSTERS,TEMP2,NODES,I,J,K,L,M,ITERATION,OLD
| 1
Warning: Unused variable 'm' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:757:68:
757 | SUBROUTINE QUICK_CLUSTER2(ADJ,TESTMODULE,CLUSTERS,NODES,ROW_SUMS)
| 1
Warning: Unused dummy argument 'row_sums' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:764:65:
764 | DOUBLE PRECISION, DIMENSION(NODES) :: ROW_SUMS, ROW_SUMS_TEMP
| 1
Warning: Unused variable 'row_sums_temp' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:762:48:
762 | INTEGER, DIMENSION(NODES) :: TESTMODULE,TEMP
| 1
Warning: Unused variable 'temp' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:768:33:
768 | DOUBLE PRECISION :: TEMP_CRIT,CRIT,NEW_CRIT
| 1
Warning: Unused variable 'temp_crit' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:670:63:
670 | DOUBLE PRECISION, DIMENSION(NODES,CLUSTERS) :: CLUSTER_SUMS
| 1
Warning: Unused variable 'cluster_sums' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:664:67:
664 | SUBROUTINE QUICK_CLUSTER(ADJ,TESTMODULE,CLUSTERS,NODES,ROW_SUMS)
| 1
Warning: Unused dummy argument 'row_sums' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:669:65:
669 | DOUBLE PRECISION, DIMENSION(NODES) :: ROW_SUMS, ROW_SUMS_TEMP
| 1
Warning: Unused variable 'row_sums_temp' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:667:48:
667 | INTEGER, DIMENSION(NODES) :: TESTMODULE,TEMP
| 1
Warning: Unused variable 'temp' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:619:49:
619 | INTEGER :: CLUSTERS,TEMP2,NODES,I,J,ITERATION
| 1
Warning: Unused variable 'iteration' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:626:28:
626 | LOGICAL :: NOT_CONVERGED
| 1
Warning: Unused variable 'not_converged' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:617:70:
617 | SUBROUTINE CHECK_MAXAVGCONV(ADJ,TESTMODULE,CLUSTERS,NODES,ROW_SUMS)
| 1
Warning: Unused dummy argument 'row_sums' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:622:65:
622 | DOUBLE PRECISION, DIMENSION(NODES) :: ROW_SUMS, ROW_SUMS_TEMP
| 1
Warning: Unused variable 'row_sums_temp' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:620:48:
620 | INTEGER, DIMENSION(NODES) :: TESTMODULE,TEMP
| 1
Warning: Unused variable 'temp' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:623:67:
623 | DOUBLE PRECISION, DIMENSION(CLUSTERS) :: CLUSTER_SUMS,TEMP_SUMS
| 1
Warning: Unused variable 'temp_sums' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:624:53:
624 | DOUBLE PRECISION, DIMENSION(CLUSTERS) :: TEMP_VEC
| 1
Warning: Unused variable 'temp_vec' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:577:50:
577 | INTEGER, DIMENSION(NODES) :: TESTMODULE,TEMP
| 1
Warning: Unused variable 'temp' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:523:37:
523 | DOUBLE PRECISION :: LOGLIK,AHATPP,CALC_FAKE_LOGLIK
| 1
Warning: Unused variable 'ahatpp' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:523:54:
523 | DOUBLE PRECISION :: LOGLIK,AHATPP,CALC_FAKE_LOGLIK
| 1
Warning: Unused variable 'calc_fake_loglik' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:511:83:
511 | NEW_CLUSTER, CURRENT_LOGLIK, NODES,CLUSTERS)
| 1
Warning: Unused dummy argument 'clusters' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:519:18:
519 | INTEGER :: I,J,NODES,CLUSTERS,CURRENT_NODE,NEW_CLUSTER
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:523:30:
523 | DOUBLE PRECISION :: LOGLIK,AHATPP,CALC_FAKE_LOGLIK
| 1
Warning: Unused variable 'loglik' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:487:37:
487 | DOUBLE PRECISION :: LOGLIK,AHATPP,CALC_FAKE_LOGLIK
| 1
Warning: Unused variable 'ahatpp' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:487:54:
487 | DOUBLE PRECISION :: LOGLIK,AHATPP,CALC_FAKE_LOGLIK
| 1
Warning: Unused variable 'calc_fake_loglik' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:478:79:
478 | NEW_CLUSTER, CURRENT_L2, NODES,CLUSTERS)
| 1
Warning: Unused dummy argument 'clusters' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:483:18:
483 | INTEGER :: I,J,NODES,CLUSTERS,CURRENT_NODE,NEW_CLUSTER
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:487:30:
487 | DOUBLE PRECISION :: LOGLIK,AHATPP,CALC_FAKE_LOGLIK
| 1
Warning: Unused variable 'loglik' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:454:66:
454 | FUNCTION CALC_L2NORM(ADJ,TESTMODULE,PHAT,AHAT,NODES,CLUSTERS)
| 1
Warning: Unused dummy argument 'clusters' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:425:71:
425 | FUNCTION CALC_FAKE_LOGLIK(ADJ,TESTMODULE,PHAT,AHAT,NODES,CLUSTERS)
| 1
Warning: Unused dummy argument 'clusters' at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:3543:35:
3543 | INTEGER :: A,B,ERROR_POSITION,I,J,WORDS
| 1
Warning: Unused variable 'error_position' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3543:37:
3543 | INTEGER :: A,B,ERROR_POSITION,I,J,WORDS
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3543:39:
3543 | INTEGER :: A,B,ERROR_POSITION,I,J,WORDS
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3451:35:
3451 | INTEGER :: A,B,ERROR_POSITION,I,J,K,LAST,WORDS
| 1
Warning: Unused variable 'error_position' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3255:18:
3255 | INTEGER :: I,J
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3255:20:
3255 | INTEGER :: I,J
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3152:20:
3152 | INTEGER :: I,J,COUNTER,SPACEVAL
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3098:18:
3098 | INTEGER :: I,J,COUNTER
| 1
Warning: Unused variable 'i' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3098:20:
3098 | INTEGER :: I,J,COUNTER
| 1
Warning: Unused variable 'j' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3661:58:
3661 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I
| 1
Warning: Unused variable 'cluster_iterations' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3661:37:
3661 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3661:39:
3661 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I
| 1
Warning: Unused variable 'l' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3669:30:
3669 | LOGICAL :: NOT_CONVERGED,L2
| 1
Warning: Unused variable 'not_converged' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3668:66:
3668 | DOUBLE PRECISION ::L2NORM,LOGLIK,FACTORIZABILITY,SUM_SQUARES,MEAN
| 1
Warning: Unused variable 'sum_squares' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3757:37:
3757 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I,INITBOOL,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3757:39:
3757 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I,INITBOOL,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'l' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3766:66:
3766 | DOUBLE PRECISION ::L2NORM,FACTORIZABILITY,LOGLIK,SUM_SQUARES,MEAN
| 1
Warning: Unused variable 'sum_squares' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3874:37:
3874 | INTEGER :: NODES,CLUSTERS,I,J,K,L2I,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3881:66:
3881 | DOUBLE PRECISION ::L2NORM,LOGLIK,FACTORIZABILITY,SUM_SQUARES,CRITERIA,MEAN
| 1
Warning: Unused variable 'sum_squares' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3968:37:
3968 | INTEGER :: NODES,CLUSTERS,I,J,K,L2I,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3975:66:
3975 | DOUBLE PRECISION ::L2NORM,LOGLIK,FACTORIZABILITY,SUM_SQUARES,CRITERIA,MEAN
| 1
Warning: Unused variable 'sum_squares' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:4081:35:
4081 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I,INITBOOL,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:4081:37:
4081 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I,INITBOOL,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'l' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:4090:64:
4090 | DOUBLE PRECISION ::L2NORM,FACTORIZABILITY,LOGLIK,SUM_SQUARES,CRITERIA,MEAN
| 1
Warning: Unused variable 'sum_squares' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:4246:35:
4246 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I,INITBOOL,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:4246:37:
4246 | INTEGER :: NODES,CLUSTERS,I,J,K,L,CLUSTER_ITERATIONS=0,L2I,INITBOOL,QSEC,MAP_LENGTH
| 1
Warning: Unused variable 'l' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:4255:64:
4255 | DOUBLE PRECISION ::L2NORM,FACTORIZABILITY,LOGLIK,SUM_SQUARES,CRITERIA,MEAN
| 1
Warning: Unused variable 'sum_squares' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:5772:20:
5772 | INTEGER :: I,J,K,ITERATION,NODES,CLUSTERS=2,L2I
| 1
Warning: Unused variable 'k' declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:5776:45:
5776 | DOUBLE PRECISION, DIMENSION(NODES) :: PN
| 1
Warning: Unused variable 'pn' declared at (1) [-Wunused-variable]
gcc-13 -I"/data/gannet/ripley/R/R-devel/include" -DNDEBUG -I/usr/local/include -fpic -g -O2 -Wall -pedantic -mtune=native -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -Wstrict-prototypes -c init.c -o init.o
gcc-13 -I"/data/gannet/ripley/R/R-devel/include" -DNDEBUG -I/usr/local/include -fpic -g -O2 -Wall -pedantic -mtune=native -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -Wstrict-prototypes -c minWhichMin.c -o minWhichMin.o
gcc-13 -shared -g -O2 -Wall -pedantic -mtune=native -Wp,-D_FORTIFY_SOURCE=3 -fexceptions -fstack-protector-strong -fstack-clash-protection -fcf-protection -Werror=implicit-function-declaration -Wstrict-prototypes -fpic -L/usr/local/gcc13/lib64 -L/usr/local/lib64 -L/usr/local/clang18/lib/x86_64-unknown-linux-gnu -o PropClust.so PropClustParallelTrials.o init.o minWhichMin.o -lgfortran -lm -lquadmath
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-devel/PropClust/src'
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-devel/PropClust/src'
make[1]: Leaving directory '/data/gannet/ripley/R/packages/tests-devel/PropClust/src'
installing to /data/gannet/ripley/R/packages/tests-devel/PropClust.Rcheck/00LOCK-PropClust/00new/PropClust/libs
** R
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** building package indices
** testing if installed package can be loaded from temporary location
** checking absolute paths in shared objects and dynamic libraries
** testing if installed package can be loaded from final location
** testing if installed package keeps a record of temporary installation path
* DONE (PropClust)