Hello Sebastien,
I usually check and remove older executables as part of the troubleshooting process. Regarding the solver, ARTEMIS throws an error if I mix it up.
However, I just noticed that ARTEMIS has now a DEBBUGER option available. So the latest run gives:
Which points to LECWAC1 for errors.
I have added a WRITE statement (WRITE(LU,*) 'LECWAC: START') at the beginning of LECWAC1 (which btw has 2 "USE DECLARATIONS_SPECIAL" statements) as such:
!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
USE DECLARATIONS_TELEMAC
USE DECLARATIONS_ARTEMIS
USE INTERFACE_HERMES
USE DECLARATIONS_SPECIAL
USE BIEF, ONLY : FIND_VARIABLE
!
USE DECLARATIONS_SPECIAL
IMPLICIT NONE
!
CHARACTER(LEN=16),ALLOCATABLE :: VARNAME(:),VARUNIT(:)
INTEGER NBI1,NBCL
INTEGER IPLAN,IFF,ID,KK,J,IDEC,JD
DOUBLE PRECISION :: COORD(MAXDIR*MAXFRE)
REAL CL1(MAXDIR,MAXFRE,1)
REAL XTWC(MAXDIR,MAXFRE),YTWC(MAXDIR,MAXFRE)
REAL STOCKD(MAXDIR)
REAL PI,DEGRAD,EPS
DOUBLE PRECISION :: READTWC(MAXDIR*MAXFRE)
INTEGER :: IERR
CHARACTER(LEN=8) :: FFORMAT
!
!-----------------------------------------------------------------------
!
WRITE(LU,*) 'LECWAC: START'
!> SEB @ HRW: ALGORITHMIC DIFFERENTIATION
PI = 4.D0 * ATAN( 1.D0 )
DEGRAD = PI / 180.D0
! PARAMETER(PI = 3.1415926535897932384626433D0 , DEGRAD=PI/180.D0)
!< SEB @ HRW
!
!-----------------------------------------------------------------------
However, it does not print. Is it possible to have an error in the declarations (that is not announced by the compiler)?
Regards,
Costas