* installing *source* package ‘mclust’ ...
** using staged installation
** libs
using C compiler: ‘Debian clang version 17.0.4 (1)’
using Fortran compiler: ‘Debian flang-new version 17.0.4 (1)’
flang-new-17  -fpic  -g -O2 -Wall -c dmvnorm.f -o dmvnorm.o
flang-new: warning: argument unused during compilation: '-Wall'
clang-17  -I"/home/hornik/tmp/R-d-clang-17/include" -DNDEBUG   -I/usr/local/include -DUSE_TYPE_CHECKING_STRICT -D_FORTIFY_SOURCE=3   -fpic  -g -O3 -Wall -pedantic -c init.c -o init.o
flang-new-17  -fpic  -g -O2 -Wall -c mclust.f -o mclust.o
flang-new: warning: argument unused during compilation: '-Wall'
./mclust.f:569:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, u, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:577:9: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
          call daxpy( n, (-fac), u(j), 0, x(1,j), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:624:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, u, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:631:9: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
          call daxpy( n, (-one), u(j), 0, x(1,j), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:793:11: warning: Reference to the procedure 'dsyrk' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes
            call dsyrk( 'U', 'T', l, l, one, O(1,1,k), l, zero, w, l)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:660:7: previous reference to 'dsyrk'
        call dsyrk( 'U', 'T', p, n, one, x, n, zero, w, p)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:795:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( j, w(1,j), 1, O(1,j,k), 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:798:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( j-1, w(1,j), 1, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:816:11: warning: Reference to the procedure 'dsyrk' has an implicit interface that is distinct from another reference: incompatible dummy argument #6: incompatible dummy data object shapes
            call dsyrk( 'U', 'N', l, l, one, O(1,1,k), l, zero, w, l)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:660:7: previous reference to 'dsyrk'
        call dsyrk( 'U', 'T', p, n, one, x, n, zero, w, p)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:818:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( j, w(1,j), 1, O(1,j,k), 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:821:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( j-1, w(1,j), 1, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:870:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( n-k, T(k+1,k), 1, T(k,k+1), l)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:890:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( k-1, T(1,k), 1, T(k,1), l)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:1031:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:1462:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( nz, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:1535:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:1541:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:1663:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:1743:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:1749:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2070:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2087:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2240:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2263:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p-i, dummy, 0, U(j,i), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2276:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( j, dummy, 0, U(1,j), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2284:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2289:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2297:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2299:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2346:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2352:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2375:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2498:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2526:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, pscale(1,j), 1, U(1,j), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2536:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2540:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2548:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2550:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2559:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
            call dcopy( p, pmu, 1, w, 1)  
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2563:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sqrt(temp), w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2572:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/const, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2606:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2612:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2639:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2701:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, pscale(j,1), p, pmu, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2705:11: warning: Reference to the procedure 'dtrsv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call dtrsv('U','T','N', i, U(j,j),p,pmu(j),1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2072:11: previous reference to 'dtrsv'
            call dtrsv( 'U', 'T', 'N', p, Sigma, p, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2774:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, U(1,j), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2784:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2788:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2796:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2798:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2811:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2865:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, pscale(1,j), 1, U(1,j), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2875:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2879:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2887:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2889:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2898:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
            call dcopy( p, pmu, 1, w, 1)  
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2902:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sqrt(temp), w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2911:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/const, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2916:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3021:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3129:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3151:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3159:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3164:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3233:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3255:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3261:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3387:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3409:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3418:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3422:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3498:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3520:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3526:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3631:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3635:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3645:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3651:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3685:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3699:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3708:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3712:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3764:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3772:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3776:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3798:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3819:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3836:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3840:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/smin, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3914:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3916:11: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call dgemv( 'N', p, p, one, O(1,1,k), p, 
            ^
./mclust.f:700:9: previous reference to 'dgemv'
          call dgemv( 'N', n, p, one, x, n, v(1,j), 1, zero, work, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:3940:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4047:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4073:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4083:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4086:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, O(1,j,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4092:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4100:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4102:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4148:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4154:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4204:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4249:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, w(p1), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4250:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, (-one), mu(1,k), 1, w(p1), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4251:11: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call dgemv( 'N', p, p, one, O(1,1,k), p, w(p1), 1, zero, s, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:700:9: previous reference to 'dgemv'
          call dgemv( 'N', n, p, one, x, n, v(1,j), 1, zero, work, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4372:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4397:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4407:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4409:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, pscale(1,j), 1, O(1,j,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4415:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4423:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4425:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4434:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
            call dcopy( p, pmu, 1, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4438:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sqrt(const), w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4447:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/term, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4485:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4491:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4541:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4583:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, w(p1), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4584:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, (-one), mu(1,k), 1, w(p1), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4585:11: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call dgemv( 'N', p, p, one, O(1,1,k), p, w(p1), 1, zero, s, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:700:9: previous reference to 'dgemv'
          call dgemv( 'N', n, p, one, x, n, v(1,j), 1, zero, work, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4684:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4694:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4697:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, O(1,j,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4703:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4710:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4712:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4721:11: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
            call dgesvd( 'N', 'O', p, p, O(1,1,k), p, z(1,k), 
            ^
./mclust.f:4111:11: previous reference to 'dgesvd'
            call dgesvd( 'N', 'O', p, p, O(1,1,k), p, s, 
            ^
./mclust.f:4735:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4748:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1) 
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4771:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1) 
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4785:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1) 
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4794:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1) 
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4798:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4854:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4864:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4866:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, pscale(1,j), 1, O(1,j,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4872:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4879:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4881:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4890:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
            call dcopy( p, pmu, 1, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4894:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sqrt(const), w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4903:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/term, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4904:11: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
            call dgesvd( 'N', 'O', p, p, O(1,1,k), p, z(1,k), 
            ^
./mclust.f:4111:11: previous reference to 'dgesvd'
            call dgesvd( 'N', 'O', p, p, O(1,1,k), p, s, 
            ^
./mclust.f:4918:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4931:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1) 
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4954:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1) 
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4971:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1) 
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:4975:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5047:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5186:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, sj, x(j,1), n, x(i,1), n)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5207:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5208:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sj, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5467:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5496:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5500:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5521:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5549:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5555:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5680:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5711:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5715:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5735:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy(p, (pshrnk/const), pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5763:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5769:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5893:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5897:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5918:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5982:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5986:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:5996:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy(p, (pshrnk/const), pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6013:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6126:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6235:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6261:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6264:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6268:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6288:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6289:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6315:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
              call dcopy( p, dummy, 0, shape(1,k), 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6332:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
              call dcopy( p, dummy, 0, shape(1,k), 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6353:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6359:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6506:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6532:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6536:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6540:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6559:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/term, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6564:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6565:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6591:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
              call dcopy( p, dummy, 0, shape(1,k), 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6608:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
              call dcopy( p, dummy, 0, shape(1,k), 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6638:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6644:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6768:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6771:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6775:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6787:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6788:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6817:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6831:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6847:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6918:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6921:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6926:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6944:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/term, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6950:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6951:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6965:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6979:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:6994:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:7083:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:7745:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:7809:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:7815:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:7948:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8017:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8023:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8346:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8480:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy(p, dummy, 0, shape, 1) 
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8481:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy(G, dummy, 0, scale, 1) 
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8495:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8499:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8516:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( G, dble(p), pro, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8546:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy( G, scale, 1, scl, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8569:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy( p, shape, 1, shp, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8620:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8640:24: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        if (.not. EQPRO) call dscal( G, one/dnp, pro, 1)
                         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8653:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8659:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8665:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8835:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy(p, dummy, 0, shape, 1) 
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8836:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy(G, dummy, 0, scale, 1) 
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8850:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8854:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8872:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/term, pmu, 1, mu(1,k), 1) 
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8876:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( G, dble(p), pro, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8906:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy( G, scale, 1, scl, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8931:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy( p, shape, 1, shp, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:8982:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9002:24: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        if (.not. EQPRO) call dscal( G, one/dnp, pro, 1)
                         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9015:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9021:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9027:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 1, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9158:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9162:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9182:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9187:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( G, one/dble(n), pro, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9191:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9192:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9201:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9202:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( G, dummy, 0, scale, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9204:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( G, dble(p), pro, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9219:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy( G, scale, 1, scl, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9242:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy( p, shape, 1, shp, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9272:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9273:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9286:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9290:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9306:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( G, one/dble(n*p), pro, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9367:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9371:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9389:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/term, pmu, 1, mu(1,k), 1) 
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9394:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0,  mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9399:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( G, one/dble(n), pro, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9403:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9404:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9413:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy(p, dummy, 0, shape, 1) 
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9414:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy(G, dummy, 0, scale, 1) 
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9416:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( G, dble(p), pro, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9433:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy( G, scale, 1, scl, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9458:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9459:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9465:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy( p, shape, 1, shp, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9488:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9489:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9503:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9504:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9517:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9521:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9537:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( G, one/dble(n*p), pro, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9620:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9622:11: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call dgemv( 'N', p, p, one, O(1,1,k), p, 
            ^
./mclust.f:700:9: previous reference to 'dgemv'
          call dgemv( 'N', n, p, one, x, n, v(1,j), 1, zero, work, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9651:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9795:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9797:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, O(1,j,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9803:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9811:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9813:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9822:11: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
            call dgesvd( 'N', 'O', p, p, O(1,1,k), p, z(1,k),
            ^
./mclust.f:4111:11: previous reference to 'dgesvd'
            call dgesvd( 'N', 'O', p, p, O(1,1,k), p, s, 
            ^
./mclust.f:9849:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( n, dummy, 0, z(1,nz), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9855:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
              call dcopy( G, dummy, 0, pro, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9861:14: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
               call dcopy( G, dummy, 0, pro, 1)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9881:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9893:28: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            if (.not. EQPRO) call dscal( G, one/dble(n), pro, 1)
                             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9904:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
              call dcopy( n, dummy, 0, z(1,nz), 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9910:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( G, dummy, 0, pro, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9915:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
              call dcopy( G, dummy, 0, pro, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9951:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy (G, dummy, 0, scale, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9955:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy (G, dummy, 0, scale, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9959:28: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            if (.not. EQPRO) call dscal( G, one/dble(n), pro, 1)
                             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9970:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
              call dcopy( n, dummy, 0, z(1,nz), 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9976:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( G, dummy, 0, pro, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9982:14: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
               call dcopy( G, dummy, 0, pro, 1)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:9996:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( p, one/temp, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10010:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
          call dcopy( p, shape, 1, w    , 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10015:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10044:29: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
             if (.not. EQPRO) call dscal( G, one/dble(n), pro, 1)
                              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10055:14: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
               call dcopy( n, dummy, 0, z(1,nz), 1)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10061:16: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                 call dcopy( G, dummy, 0, pro, 1)
                 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10067:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( G, dummy, 0, pro, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10103:29: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
             if (.not. EQPRO) call dscal( G, one/dble(n), pro, 1)
                              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10114:14: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
               call dcopy( n, dummy, 0, z(1,nz), 1)
               ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10120:16: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                 call dcopy( G, dummy, 0, pro, 1)
                 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10126:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( G, dummy, 0, pro, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10138:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( p, one/temp, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10158:24: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        if (.not. EQPRO) call dscal( G, one/dble(n), pro, 1)
                         ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10170:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10176:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10182:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10234:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, w(p1), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10235:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, (-one), mu(1,k), 1, w(p1), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10236:11: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call dgemv( 'N', p, p, one, O(1,1,k), p, w(p1), 1, zero, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:700:9: previous reference to 'dgemv'
          call dgemv( 'N', n, p, one, x, n, v(1,j), 1, zero, work, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10407:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10409:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, pscale(1,j), 1, O(1,j,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10415:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10422:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10424:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10433:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
            call dcopy( p, pmu, 1, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10437:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sqrt(const), w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10446:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/term, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10447:11: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
            call dgesvd( 'N', 'O', p, p, O(1,1,k), p, z(1,k),
            ^
./mclust.f:4111:11: previous reference to 'dgesvd'
            call dgesvd( 'N', 'O', p, p, O(1,1,k), p, s, 
            ^
./mclust.f:10467:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10468:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10481:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10528:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( p, one/temp, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10539:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
          call dcopy( p, shape, 1, w    , 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10548:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10549:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, scale, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10555:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10564:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( p, dummy, 0, shape, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10565:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( G, dummy, 0, scale, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10577:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( p, dummy, 0, shape, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10578:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( G, dummy, 0, scale, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10619:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( p, one/temp, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10649:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10655:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10661:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10698:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, w(p1), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10699:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, (-one), mu(1,k), 1, w(p1), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10700:11: warning: Reference to the procedure 'dgemv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call dgemv( 'N', p, p, one, O(1,1,k), p, w(p1), 1, zero, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:700:9: previous reference to 'dgemv'
          call dgemv( 'N', n, p, one, x, n, v(1,j), 1, zero, work, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10822:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10827:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10830:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, O(1,j,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10836:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10843:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                call dcopy( p, x(i,1), n, w, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10845:15: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
                call dscal( p, sqrt(z(i,k)), w, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10854:13: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
              call dgesvd( 'N', 'O', p, p, O(1,1,k), p, z(1,k),
              ^
./mclust.f:4111:11: previous reference to 'dgesvd'
            call dgesvd( 'N', 'O', p, p, O(1,1,k), p, s, 
            ^
./mclust.f:10871:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10883:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10884:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10896:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10897:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10912:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10913:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10930:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10934:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10943:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy( p, shape, 1, w    , 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10952:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10953:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10959:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10971:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
              call dcopy( p, dummy, 0, shape, 1) 
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:10986:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape, 1) 
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11001:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape, 1) 
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11014:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape, 1) 
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11018:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( p, one/temp, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11033:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( G, one/dble(n), pro, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11100:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11105:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11107:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, pscale(1,j), 1, O(1,j,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11113:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11119:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11121:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11130:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
            call dcopy( p, pmu, 1, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11134:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sqrt(const), w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11143:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/term, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11144:11: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #7: incompatible dummy data object shapes
            call dgesvd( 'N', 'O', p, p, O(1,1,k), p, z(1,k),
            ^
./mclust.f:4111:11: previous reference to 'dgesvd'
            call dgesvd( 'N', 'O', p, p, O(1,1,k), p, s, 
            ^
./mclust.f:11160:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11168:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11169:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11179:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11180:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11195:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11196:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11214:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11215:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11219:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11225:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy( p, shape, 1, w    , 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11234:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11235:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, scale, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11241:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11250:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( p, dummy, 0, shape, 1) 
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11251:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( G, dummy, 0, scale, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11263:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( p, dummy, 0, shape, 1) 
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11264:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( G, dummy, 0, scale, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11278:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape, 1) 
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11292:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape, 1) 
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11305:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape, 1) 
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11309:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( p, one/temp, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11414:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11566:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(j,1), n, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11568:13: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
              call daxpy( p, one, x(j,1), n, x(i,1), n)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11582:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(j,1), n, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11583:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, si, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11588:13: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
              call daxpy( p, sj, x(j,1), n, x(i,1), n)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11648:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy(p, x(i,1), n, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11649:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sj, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11708:7: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
        call daxpy( p, sjop, x(jopt,1), n, x(iopt,1), n)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11712:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, x(lg,1), n, x(jopt,1), n)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11766:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(iold,1), n, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11767:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sj, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11813:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(iold,1), n, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11814:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sj, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11905:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, x(iopt,1), n, v, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:11906:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( p, sjop, v, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12039:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12065:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12069:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12091:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12113:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12119:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12254:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12282:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12286:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12311:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/const, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12316:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12338:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12344:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12473:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12477:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12502:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12563:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12567:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12590:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/const, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12595:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12696:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12820:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12821:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12826:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12846:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( G, one/dble(n), pro, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12866:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( G, one/dble(n), pro, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12880:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( G, one/dble(n), pro, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12891:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( G, one/dble(n), pro, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12893:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( G, one/dble(G), pro, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12907:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:12913:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13085:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13087:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13092:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13112:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/term, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13117:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( G, one/dble(n), pro, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13141:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( G, one/dble(n), pro, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13156:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( G, one/dble(n), pro, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13167:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( G, one/dble(n), pro, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13171:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( G, dummy, 0, pro, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13185:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13191:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13318:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13321:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13325:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13334:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13353:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13365:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13373:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13387:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13396:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13405:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13413:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13423:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( G, one/dble(n), pro, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13476:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13480:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13484:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13503:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/term, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13508:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13509:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13521:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, shape(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13534:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
              call dcopy( p, dummy, 0, shape(1,k), 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13540:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
              call dcopy( p, dummy, 0, shape(1,k), 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13552:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( p, dummy, 0, shape(1,k), 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13558:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( G, one/dble(n), pro, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13624:11: warning: Reference to the procedure 'dpotrf' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dpotrf( 'U', p, Sigma(1,1,k), p, info)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2034:9: previous reference to 'dpotrf'
          call dpotrf( 'U', p, Sigma, p, info)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13667:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13669:11: warning: Reference to the procedure 'dtrsv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call dtrsv( 'U', 'T', 'N', p, Sigma(1,1,k), p, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2072:11: previous reference to 'dtrsv'
            call dtrsv( 'U', 'T', 'N', p, Sigma, p, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13685:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13873:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( psq, dummy, 0, r, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13882:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(j,1), n, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13883:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, si, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13887:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, sj, x(j,1), n, x(k,1), n)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13901:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( m, r(i,i), p, x(j,i), n)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13950:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                call dcopy( p, x(i,1), n, v, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13952:16: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
                 call dscal( p, rthalf, v, 1)
                 ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13955:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
                call dcopy( p, v, 1, u, p)  
                ^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13963:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                call dcopy( m, x(l,ni), n, u(ni,ni), p)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13983:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                call dcopy(p, x(i,1), n, v, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:13984:15: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
                call dscal( p, sj, v, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14006:17: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                  call dcopy( m, u(k,k), p, r(k,k), p)
                  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14015:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( m, x(l,nj), n, s(nj,nj), p)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14029:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                call dcopy( m, s(k,k), p, u(k,k), p)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14043:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                call dcopy(p, x(i,1), n, v, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14044:15: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
                call dscal( p, sj, v, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14053:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                call dcopy( m, x(l,ni), n, v, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14073:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                call dcopy(p, x(i,1), n, v, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14074:15: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
                call dscal( p, sj, v, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14096:17: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                  call dcopy( m, u(k,k), p, r(k,k), p)
                  ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14130:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
        call dcopy( p, x(iopt,1), n, v, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14131:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, siop, v, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14136:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, x(lg,1), n, x(jopt,1), n)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14158:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, r(1,1), p, x(l,1), n)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14201:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy(psq, dummy, 0, u, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14204:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy(m, r(k,k), p, u(k,k), p)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14217:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy(p, x(j,1), n, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14218:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, si, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14228:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                call dcopy( m, x(l,nj), n, v, 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14248:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy(p, x(j,1), n, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14249:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, si, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14271:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                call dcopy(m, u(k,k), p, s(k,k), p)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14284:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy(psq, dummy, 0, u, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14287:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy(m, r(k,k), p, u(k,k), p)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14300:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy(p, x(j,1), n, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14301:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, si, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14310:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( m, x(l,nj), n, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14330:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy(p, x(j,1), n, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14331:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, si, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14354:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
                call dcopy(m, u(k,k), p, s(k,k), p)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14395:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, r(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14414:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy(p, x(i,1), n, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14416:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, rthalf, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14418:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
              call dcopy( p, v, 1, r, p)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14424:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( m, x(l,ni), n, r(ni,ni), p)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14440:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy(p, x(i,1), n, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14441:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sj, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14450:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( m, x(l,nj), n, r(nj,nj), p)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14467:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy(p, x(i,1), n, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14468:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sj, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14477:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( m, x(l,ni), n, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14495:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy(p, x(i,1), n, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14496:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sj, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14515:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy(m, s(k,k), p, r(k,k), p)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14763:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14792:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p-i, dummy, 0, S(j,i), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14818:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( j, dummy, 0, S(1,j), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14821:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14826:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14833:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14835:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14850:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0,  z(1,k), 1) 
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14877:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14883:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:14923:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15048:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15080:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, pscale(1,j), 1, S(1,j), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15085:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15089:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15096:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15098:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15107:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
            call dcopy( p, pmu, 1, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15111:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sqrt(temp), w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15124:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/const, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15128:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0,  z(1,k), 1) 
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15155:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( n, dummy, 0, z(1,nz), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15161:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( G, dummy, 0, pro, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15206:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15277:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, pscale(j,1), p, pmu, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15281:9: warning: Reference to the procedure 'dtrsv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
          call dtrsv('U','T','N', i, S(j,j), p, pmu(j), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2072:11: previous reference to 'dtrsv'
            call dtrsv( 'U', 'T', 'N', p, Sigma, p, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15331:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15335:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( j, dummy, 0, S(1,j), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15341:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15347:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15349:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15367:15: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
                call dcopy( j, dummy, 0, S(1,j), 1)
                ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15373:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15440:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, pscale(1,j), 1, S(1,j), 1 )
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15445:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, mu(1,k), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15449:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, temp, x(i,1), n, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15455:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
              call dcopy( p, x(i,1), n, w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15457:13: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
              call dscal( p, sqrt(z(i,k)), w, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15466:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
            call dcopy( p, pmu, 1, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15470:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sqrt(temp), w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15484:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call daxpy( p, pshrnk/const, pmu, 1, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15488:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
            call dcopy( p, dummy, 0, mu(1,k), 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15712:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, dble(n)/term, mu, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15713:7: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call daxpy( p, pshrnk/term, pmu, 1, mu, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15793:9: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
          call daxpy( n, (-one), mu(j), 0, x(1,j), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15875:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, dble(n)/term, mu, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15876:7: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call daxpy( p, pshrnk/term, pmu, 1, mu, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15883:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)       
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15898:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)       
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15907:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)       
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15923:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)       
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:15928:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16010:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16026:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16035:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16048:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, shape, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16053:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, one/temp, shape, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16113:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, pscale(1,j), 1, U(1,j), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16118:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, x(i,1), n, w, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16119:9: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call daxpy( p, (-one), mu, 1, w, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16129:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy( p, pmu, 1, w, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16130:7: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call daxpy( p, (-one), mu, 1, w, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16132:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, sqrt(term), w, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16151:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, dble(n)/term, mu, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16152:7: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call daxpy( p, pshrnk/term, pmu, 1, mu, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16170:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, x(i,1), n, w, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16171:9: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call daxpy( p, (-one), mu, 1, w, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16179:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy( p, pmu, 1, w, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16180:7: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call daxpy( p, (-one), mu, 1, w, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16188:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, pscale(j,1), p, pmu, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16192:9: warning: Reference to the procedure 'dtrsv' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
          call dtrsv('U','T','N', i, U(j,j),p,pmu(j),1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:2072:11: previous reference to 'dtrsv'
            call dtrsv( 'U', 'T', 'N', p, Sigma, p, w, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16258:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
          call dcopy( p, dummy, 0, U(1,j), 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16262:9: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call daxpy( p, (-one), mu, 1, x(i,1), n)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16395:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( n*p, one/sqrt(dble(n)), x, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16401:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( p, dummy, 0, v, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16409:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( lw, dummy, 0, r, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16411:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
          call dcopy( p, v, 1, s, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16453:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object attributes
        call dcopy( lw, dummy, 0, r, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16466:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16467:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sj, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16474:11: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
            call daxpy( p, sj, x(j,1), n, x(i,1), n)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16525:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, s, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16526:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sj, s, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16537:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
              call dcopy( p, s, 1, v, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16547:7: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
        call daxpy( p, sjop, x(jopt,1), n, x(iopt,1), n)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16550:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, x(lg,1), n, x(jopt,1), n)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16598:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16599:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sj, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16602:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
            call dcopy( lw, r, 1, u, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16635:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
              call dcopy( lw, u, 1, s, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16644:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
          call dcopy( lw, s, 1, r, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16654:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, x(iopt,1), n, v, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16655:9: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
          call dscal( p, sjop, v, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16663:7: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
        call daxpy( p, sjop, x(jopt,1), n, x(iopt,1), n)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16666:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, x(lg,1), n, x(jopt,1), n)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16712:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
            call dcopy( p, x(i,1), n, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16713:11: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
            call dscal( p, sj, v, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16715:11: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
            call dcopy( lw, r, 1, u, 1)
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16725:13: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
              call dcopy( lw, u, 1, s, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16732:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
        call dcopy( p, x(iopt,1), n, v, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16733:7: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
        call dscal( p, sjop, v, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:788:13: previous reference to 'dscal'
              call dscal( l, temp, O(j,1,k), l)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16740:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy( lw, s, 1, r, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16743:7: warning: Reference to the procedure 'daxpy' has an implicit interface that is distinct from another reference: incompatible dummy argument #5: incompatible dummy data object shapes
        call daxpy( p, sjop, x(jopt,1), n, x(iopt,1), n)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:571:9: previous reference to 'daxpy'
          call daxpy( p, fac, x(i,1), n, u, 1)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:16746:9: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #2: incompatible dummy data object shapes
          call dcopy( p, x(lg,1), n, x(jopt,1), n)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclust.f:497:9: previous reference to 'dcopy'
          call dcopy( n, v, 1, r(k,1), lr)
          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
flang-new-17  -fpic  -g -O2 -Wall -c mclustaddson.f -o mclustaddson.o
flang-new: warning: argument unused during compilation: '-Wall'
./mclustaddson.f:156:12: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
             call dscal(p*p, 1.d0/scale(k), U(:,:,k), 1)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:64:11: previous reference to 'dscal'
            call dscal(p, (1.d0/sumZ(k)), M(:,k), 1)     
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:349:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy(p*p*G, dummy, 0, U, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:233:13: previous reference to 'dcopy'
              call dcopy(p, dummy, 0, temp2, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:377:12: warning: Reference to the procedure 'dscal' has an implicit interface that is distinct from another reference: incompatible dummy argument #3: incompatible dummy data object shapes
             call dscal(p*p, 1.d0/scale(k), U(:,:,k), 1)
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:64:11: previous reference to 'dscal'
            call dscal(p, (1.d0/sumZ(k)), M(:,k), 1)     
            ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:572:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy(p*p, dummy, 0, C, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:233:13: previous reference to 'dcopy'
              call dcopy(p, dummy, 0, temp2, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:815:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy(p*p*G, dummy, 0, U, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:233:13: previous reference to 'dcopy'
              call dcopy(p, dummy, 0, temp2, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:866:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy(p*p, dummy, 0, C, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:233:13: previous reference to 'dcopy'
              call dcopy(p, dummy, 0, temp2, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:1145:7: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object shapes
        call dgesvd('A','A', p,p, temp3,p, temp4, temp1,p, temp2,p,
        ^
./mclustaddson.f:145:9: previous reference to 'dgesvd'
          call dgesvd('N', 'O', p, p, O(:,:,k), p, shape(:,k),
          ^
./mclustaddson.f:1186:7: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object shapes
        call dgesvd('A','A', p,p, temp3,p, temp4, temp1,p, temp2,p,
        ^
./mclustaddson.f:145:9: previous reference to 'dgesvd'
          call dgesvd('N', 'O', p, p, O(:,:,k), p, shape(:,k),
          ^
./mclustaddson.f:1422:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy(p*p*G, dummy, 0, U, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:233:13: previous reference to 'dcopy'
              call dcopy(p, dummy, 0, temp2, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:1506:7: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object shapes
        call dgesvd('A','A', p,p, temp3,p, temp4, temp1,p, temp2,p,
        ^
./mclustaddson.f:145:9: previous reference to 'dgesvd'
          call dgesvd('N', 'O', p, p, O(:,:,k), p, shape(:,k),
          ^
./mclustaddson.f:1547:7: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object shapes
        call dgesvd('A','A', p,p, temp3,p, temp4, temp1,p, temp2,p,
        ^
./mclustaddson.f:145:9: previous reference to 'dgesvd'
          call dgesvd('N', 'O', p, p, O(:,:,k), p, shape(:,k),
          ^
./mclustaddson.f:1811:7: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object shapes
        call dgesvd('A','A', p,p, temp3,p, temp4, temp1,p, temp2,p,
        ^
./mclustaddson.f:145:9: previous reference to 'dgesvd'
          call dgesvd('N', 'O', p, p, O(:,:,k), p, shape(:,k),
          ^
./mclustaddson.f:1850:7: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object shapes
        call dgesvd('A','A', p,p, temp3,p, temp4, temp1,p, temp2,p,
        ^
./mclustaddson.f:145:9: previous reference to 'dgesvd'
          call dgesvd('N', 'O', p, p, O(:,:,k), p, shape(:,k),
          ^
./mclustaddson.f:2087:7: warning: Reference to the procedure 'dcopy' has an implicit interface that is distinct from another reference: incompatible dummy argument #4: incompatible dummy data object shapes
        call dcopy(p*p*G, dummy, 0, U, 1)
        ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:233:13: previous reference to 'dcopy'
              call dcopy(p, dummy, 0, temp2, 1)
              ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
./mclustaddson.f:2171:7: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object shapes
        call dgesvd('A','A', p,p, temp3,p, temp4, temp1,p, temp2,p,
        ^
./mclustaddson.f:145:9: previous reference to 'dgesvd'
          call dgesvd('N', 'O', p, p, O(:,:,k), p, shape(:,k),
          ^
./mclustaddson.f:2210:7: warning: Reference to the procedure 'dgesvd' has an implicit interface that is distinct from another reference: incompatible dummy argument #8: incompatible dummy data object shapes
        call dgesvd('A','A', p,p, temp3,p, temp4, temp1,p, temp2,p,
        ^
./mclustaddson.f:145:9: previous reference to 'dgesvd'
          call dgesvd('N', 'O', p, p, O(:,:,k), p, shape(:,k),
          ^
clang-17 -shared -L/home/hornik/tmp/R-d-clang-17/lib -Wl,-O1 -o mclust.so dmvnorm.o init.o mclust.o mclustaddson.o -llapack -L/home/hornik/tmp/R-d-clang-17/lib -lRblas -L/usr/lib/llvm-17/lib -lFortran_main -lFortranRuntime -lFortranDecimal -lm -L/usr/lib/llvm-17/lib -lFortran_main -lFortranRuntime -lFortranDecimal -lm -L/home/hornik/tmp/R-d-clang-17/lib -lR
installing to /srv/hornik/tmp/CRAN/mclust.Rcheck/00LOCK-mclust/00new/mclust/libs
** R
** data
*** moving datasets to lazyload DB
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
*** copying figures
** building package indices
** installing vignettes
** 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 (mclust)