* installing *source* package ‘PropClust’ ...
** this is package ‘PropClust’ version ‘1.4-7’
** package ‘PropClust’ successfully unpacked and MD5 sums checked
** using staged installation
** libs
using C compiler: ‘gcc (GCC) 15.1.1 20250521 (Red Hat 15.1.1-2)’
using Fortran compiler: ‘GNU Fortran (GCC) 15.1.1 20250521 (Red Hat 15.1.1-2)’
make[1]: Entering directory '/data/gannet/ripley/R/packages/tests-devel/PropClust/src'
gfortran -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:10:
257 | LIST,OUTPUT_UNIT)
| 1~~~
Warning: Unused dummy argument ‘list’ at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:257:15:
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:59:
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:43:
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:16:
2945 | LOGICAL :: NOT_DONE
| 1~~~~~~~
Warning: Unused variable ‘not_done’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2937:54:
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:25:
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:84:
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:39:
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:66:
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:72:
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:65:
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:77:
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:30:
2085 | INTEGER, DIMENSION(2) :: SHAPE_TEST
| 1~~~~~~~~~
Warning: Unused variable ‘shape_test’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2082:52:
2082 | LOGICAL :: NOT_CONVERGED2,L2BOOL,INCREASE_FLAG,TESTFLAG,UPHILL
| 1~~~~~~~
Warning: Unused variable ‘testflag’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:2064:69:
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:40:
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:30:
1923 | INTEGER, DIMENSION(2) :: SHAPE_TEST
| 1~~~~~~~~~
Warning: Unused variable ‘shape_test’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1920:52:
1920 | LOGICAL :: NOT_CONVERGED2,L2BOOL,INCREASE_FLAG,TESTFLAG,UPHILL
| 1~~~~~~~
Warning: Unused variable ‘testflag’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1902:64:
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:55:
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:30:
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:87:
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:46:
1059 | DOUBLE PRECISION, DIMENSION(CLUSTERS) :: ADEN,PCLUSTERSUM
| 1~~~
Warning: Unused variable ‘aden’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1051:31:
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:46:
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:25:
1056 | DOUBLE PRECISION :: TEMP
| 1~~~
Warning: Unused variable ‘temp’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:1051:35:
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:55:
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:79:
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:64:
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:66:
938 | DOUBLE PRECISION ::L2NORM,FACTORIZABILITY,LOGLIK,SUM_SQUARES,CRITERIA
| 1~~~~~~~
Warning: Unused variable ‘criteria’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:938:31:
938 | DOUBLE PRECISION ::L2NORM,FACTORIZABILITY,LOGLIK,SUM_SQUARES,CRITERIA
| 1~~~~~~~~~~~~~~
Warning: Unused variable ‘factorizability’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:929:64:
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:60:
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:54:
938 | DOUBLE PRECISION ::L2NORM,FACTORIZABILITY,LOGLIK,SUM_SQUARES,CRITERIA
| 1~~~~~~~~~~
Warning: Unused variable ‘sum_squares’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:864:46:
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:56:
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:81:
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:47:
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:40:
865 | DOUBLE PRECISION :: TEMP_CRIT,CRIT,NEW_CRIT
| 1~~~~~~~
Warning: Unused variable ‘new_crit’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:864:60:
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:69:
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:57:
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:45:
859 | INTEGER, DIMENSION(NODES) :: TESTMODULE,TEMP
| 1~~~
Warning: Unused variable ‘temp’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:864:70:
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:46:
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:61:
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:53:
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:45:
762 | INTEGER, DIMENSION(NODES) :: TESTMODULE,TEMP
| 1~~~
Warning: Unused variable ‘temp’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:768:25:
768 | DOUBLE PRECISION :: TEMP_CRIT,CRIT,NEW_CRIT
| 1~~~~~~~~
Warning: Unused variable ‘temp_crit’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:670:52:
670 | DOUBLE PRECISION, DIMENSION(NODES,CLUSTERS) :: CLUSTER_SUMS
| 1~~~~~~~~~~~
Warning: Unused variable ‘cluster_sums’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:664:60:
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:53:
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:45:
667 | INTEGER, DIMENSION(NODES) :: TESTMODULE,TEMP
| 1~~~
Warning: Unused variable ‘temp’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:619:41:
619 | INTEGER :: CLUSTERS,TEMP2,NODES,I,J,ITERATION
| 1~~~~~~~~
Warning: Unused variable ‘iteration’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:626:16:
626 | LOGICAL :: NOT_CONVERGED
| 1~~~~~~~~~~~~
Warning: Unused variable ‘not_converged’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:617:63:
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:53:
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:45:
620 | INTEGER, DIMENSION(NODES) :: TESTMODULE,TEMP
| 1~~~
Warning: Unused variable ‘temp’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:623:59:
623 | DOUBLE PRECISION, DIMENSION(CLUSTERS) :: CLUSTER_SUMS,TEMP_SUMS
| 1~~~~~~~~
Warning: Unused variable ‘temp_sums’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:624:46:
624 | DOUBLE PRECISION, DIMENSION(CLUSTERS) :: TEMP_VEC
| 1~~~~~~~
Warning: Unused variable ‘temp_vec’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:577:47:
577 | INTEGER, DIMENSION(NODES) :: TESTMODULE,TEMP
| 1~~~
Warning: Unused variable ‘temp’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:523:32:
523 | DOUBLE PRECISION :: LOGLIK,AHATPP,CALC_FAKE_LOGLIK
| 1~~~~~
Warning: Unused variable ‘ahatpp’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:523:39:
523 | DOUBLE PRECISION :: LOGLIK,AHATPP,CALC_FAKE_LOGLIK
| 1~~~~~~~~~~~~~~~
Warning: Unused variable ‘calc_fake_loglik’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:511:76:
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:25:
523 | DOUBLE PRECISION :: LOGLIK,AHATPP,CALC_FAKE_LOGLIK
| 1~~~~~
Warning: Unused variable ‘loglik’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:487:32:
487 | DOUBLE PRECISION :: LOGLIK,AHATPP,CALC_FAKE_LOGLIK
| 1~~~~~
Warning: Unused variable ‘ahatpp’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:487:39:
487 | DOUBLE PRECISION :: LOGLIK,AHATPP,CALC_FAKE_LOGLIK
| 1~~~~~~~~~~~~~~~
Warning: Unused variable ‘calc_fake_loglik’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:478:72:
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:25:
487 | DOUBLE PRECISION :: LOGLIK,AHATPP,CALC_FAKE_LOGLIK
| 1~~~~~
Warning: Unused variable ‘loglik’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:454:59:
454 | FUNCTION CALC_L2NORM(ADJ,TESTMODULE,PHAT,AHAT,NODES,CLUSTERS)
| 1~~~~~~~
Warning: Unused dummy argument ‘clusters’ at (1) [-Wunused-dummy-argument]
PropClustParallelTrials.f90:425:64:
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:22:
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:22:
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:41:
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:18:
3669 | LOGICAL :: NOT_CONVERGED,L2
| 1~~~~~~~~~~~~
Warning: Unused variable ‘not_converged’ declared at (1) [-Wunused-variable]
PropClustParallelTrials.f90:3668:56:
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:56:
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:56:
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:56:
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:54:
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:54:
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:44:
5776 | DOUBLE PRECISION, DIMENSION(NODES) :: PN
| 1~
Warning: Unused variable ‘pn’ declared at (1) [-Wunused-variable]
gcc -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 -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 -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/lib64 -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)