Unable to compile clls

[amontoison]

I have a collection of errors with this package.

../src/clls/clls.F90:2813:13:

 2813 |           END DO
      |             1
Error: Expecting END MODULE statement at (1)
../src/clls/clls.F90:2814:23:

 2814 |           DO i = dims%x_l_start, dims%x_l_end
      |                       1
Error: Symbol ‘dims’ at (1) has no IMPLICIT type
../src/clls/clls.F90:2815:78:

 2815 |             WRITE( sif, "( ' LO BND       X', I8, ' ', ES12.5 )" ) i, X_l( i )
      |                                                                              1
Error: Unexpected WRITE statement in CONTAINS section at (1)
../src/clls/clls.F90:2816:13:

 2816 |           END DO
      |             1
Error: Expecting END MODULE statement at (1)
../src/clls/clls.F90:2817:23:

 2817 |           DO i = dims%x_u_start, dims%x_u_end
      |                       1
Error: Symbol ‘dims’ at (1) has no IMPLICIT type
../src/clls/clls.F90:2818:78:

 2818 |             WRITE( sif, "( ' UP BND       X', I8, ' ', ES12.5 )" ) i, X_u( i )
      |                                                                              1
Error: Unexpected WRITE statement in CONTAINS section at (1)
../src/clls/clls.F90:2819:13:

 2819 |           END DO
      |             1
Error: Expecting END MODULE statement at (1)
../src/clls/clls.F90:2820:23:

 2820 |           DO i = dims%x_u_end + 1, n
      |                       1
Error: Symbol ‘dims’ at (1) has no IMPLICIT type
../src/clls/clls.F90:2821:74:

 2821 |             WRITE( sif, "( ' UP BND       X', I8, ' ', ES12.5 )" ) i, zero
      |                                                                          1
Error: Unexpected WRITE statement in CONTAINS section at (1)
../src/clls/clls.F90:2822:13:

 2822 |           END DO
      |             1
Error: Expecting END MODULE statement at (1)
../src/clls/clls.F90:2823:11:

 2823 |         END IF
      |           1
Error: Expecting END MODULE statement at (1)
../src/clls/clls.F90:2825:47:

 2825 |         WRITE( sif, "( /, 'START POINT', / )" )
      |                                               1
Error: Unexpected WRITE statement in CONTAINS section at (1)
../src/clls/clls.F90:2826:19:

 2826 |         DO i = 1, n
      |                   1
Error: Unexpected DO statement in CONTAINS section at (1)
../src/clls/clls.F90:2828:80:

 2828 |             WRITE( sif, "( ' V  START    ', ' X', I8, ' ', ES12.5 )" ) i, X( i )
      |                                                                                1
Error: Unexpected simple IF statement in CONTAINS section at (1)
../src/clls/clls.F90:2829:11:

 2829 |         END DO
      |           1
Error: Expecting END MODULE statement at (1)
../src/clls/clls.F90:2833:47:

 2833 |                           'GROUP USES', // )" )
      |                                               1
Error: Unexpected WRITE statement in CONTAINS section at (1)
...
...
...
...
...
Error: Function ‘h_val’ at (1) has no IMPLICIT type
../src/clls/clls.F90:7753:53:

 7753 |                 IF ( j /= i ) Z( i ) = Z( i ) + H_val( l ) * X( j )
      |                                                     1
Error: Function ‘h_val’ at (1) has no IMPLICIT type
../src/clls/clls.F90:7755:39:

 7755 |                 Z( j ) = Z( j ) + H_val( l ) * X( i )
      |                                       1
Error: Function ‘h_val’ at (1) has no IMPLICIT type
../src/clls/clls.F90:7759:39:

 7759 |                 Z( i ) = Z( i ) + H_val( l ) * X( j )
      |                                       1
Error: Function ‘h_val’ at (1) has no IMPLICIT type
../src/clls/clls.F90:7748:16:

 7748 |           DO l = H_ptr( j ), H_ptr( j + 1 ) - 1
      |                1
Error: Function ‘h_ptr’ at (1) has no IMPLICIT type
../src/clls/clls.F90:7795:20:

 7795 |         nz_h_free = H_ptr( n + 1 ) - 1
      |                    1
Error: Function ‘h_ptr’ at (1) has no IMPLICIT type
../src/clls/clls.F90:662:47:

  662 |                             inform%SLS_inform )
      |                                               1
Error: There is no specific subroutine for the generic ‘sls_initialize’ at (1)

[nimgould]

Don't worry about this package, it is work in progress and not close to being ready for public use. I'll be working on it once all of the meson/python/julia tasks are done ... sometime in 2024 !!

[amontoison]

Ok, I will add a comment about it in the main meson.build.

[nimgould]

(Really it should be in the forthcoming directory, but let's not worry about that)